Active Directory Computer Properties auslesen und in textdatei schreiben

Hallo,

mit diesen Script möchte ich die Beschreibung der Computer aus der Active Directory auslesen.
Leider gelingt es mir nicht das Attribut "description" auszulesen.

Hat jemand eine Idee wie ich auf "description" zugreifen kann?

Gruß 51125479


'ScriptStart

const FileName ="ausgabe.txt"
set cmd = createobject("ADODB.Command")
set cn = createobject("ADODB.Connection")
set rs = createobject("ADODB.Recordset")

cn.open "Provider=ADsDSOObject;"
cmd.activeconnection = cn
set objRoot = getobject("LDAP:RootDSE")


cmd.commandtext = "<LDAP:" & objRoot.get("defaultNamingContext") & ">;(objectCategory=Computer);" & "name,description;subtree"

cmd.properties("page size")=1000

set rs = cmd.execute
set objFSO = createobject("Scripting.FileSystemObject")
set objCSV = objFSO.createtextfile(FileName)

q = ""

while rs.eof <> true and rs.bof <> true
objcsv.writeline(q & rs("name") & q & "," & q & rs("description") & q & "," & q)
rs.movenext
wend

objCSV.Close
cn.close