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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 90545
Url: https://administrator.de/contentid/90545
Printed on: April 18, 2024 at 21:04 o'clock
3 Comments
Latest comment
Hi
Das sollte Dir weiterhelfen:
http://www.microsoft.com/technet/scriptcenter/scripts/ad/computer/cptrv ...
Gruß L.
Das sollte Dir weiterhelfen:
http://www.microsoft.com/technet/scriptcenter/scripts/ad/computer/cptrv ...
Gruß L.
Moin moin
Sorry das ich mich erst jetzt melde, aber ich war im Urlaub (2 Wochen kein PC).
Also die Beschreibung die gezogen wird ist nicht die im AD am Computerobject angegeben wird, sondern die Computerbeschreibung die Du am Client unter den Sytemeigenschaften angeben kannst.
Warum das so ist? Keine Ahnung.
Gruß L.
Sorry das ich mich erst jetzt melde, aber ich war im Urlaub (2 Wochen kein PC).
Also die Beschreibung die gezogen wird ist nicht die im AD am Computerobject angegeben wird, sondern die Computerbeschreibung die Du am Client unter den Sytemeigenschaften angeben kannst.
Warum das so ist? Keine Ahnung.
Gruß L.