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