LDAP Abfrage Computer OU

EIn kleines Helferlein, dass die OU eines Rechners im AD herausgibt. Es erwartet als Aufruf-Parameter einen Rechnernamen.
Schon vor Urzeiten geschrieben, aber erst jetzt wieder gefunden. :)

'option explicit
on error resume next
Set objNetwork = CreateObject("WScript.Network")
set oargs = wscript.arguments
strcomputer= oargs(0)
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://dc=global,dc=bdfgroup,dc=net' WHERE objectCategory='computer' AND Name='" & strcomputer & "'"
Set objRecordSet = objCommand.Execute
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
while not  objRecordSet.EOF
    strADsPath = objRecordSet.Fields("ADsPath").Value
        wscript.echo strADsPath
        objRecordset.MoveNext()
wend
  • Dienstag, 07 Januar 2020

Leave a comment

You are commenting as guest.