Cercare un utente in Active Directory a riga di comando

il seguente script in VBSscript permette di effettuare ricerche in Active Directory

[php]

Domain = "dominio.local"
UserName ="andreiono"
SET cn = CREATEOBJECT("ADODB.Connection")
SET cmd = CREATEOBJECT("ADODB.Command")
SET rs = CREATEOBJECT("ADODB.Recordset")

cn.open "Provider=ADsDSOObject;"

cmd.activeconnection=cn
cmd.commandtext="SELECT ADsPath FROM ‘LDAP://" & Domain & _
"’ WHERE sAMAccountName = ‘" & UserName & "’"

SET rs = cmd.EXECUTE

IF err<>0 THEN
FindUser="Error connecting to Active Directory Database:" & err.description
ELSE
IF NOT rs.BOF AND NOT rs.EOF THEN
rs.MoveFirst
FindUser = rs(0)
ELSE
FindUser = "Not Found"
END IF
END IF
cn.close

[/php]

ricerca utente Active Directory, cercare utente in Active Directory, ricerca Active Directory riga di comando, script ricerca Active Directory, cercare in Active Directory da vbscript