Je veux interroger Active Directory à l'aide de VBScript (ASP classique). Comment puis-je accomplir ça?
3 Réponses :
Pour regarder tous les membres d'une ou, essayez ceci ... Pour effectuer une recherche personnalisée de DNS Essayez ceci ... p> set conn = createobject("ADODB.Connection")
Set iAdRootDSE = GetObject("LDAP://RootDSE")
strDefaultNamingContext = iAdRootDSE.Get("defaultNamingContext")
Conn.Provider = "ADsDSOObject"
Conn.Open "ADs Provider"
strQueryDL = "<LDAP://" & strDefaultNamingContext & ">;(&(objectCategory=person)(objectClass=user));distinguishedName,adspath;subtree"
set objCmd = createobject("ADODB.Command")
objCmd.ActiveConnection = Conn
objCmd.Properties("SearchScope") = 2 ' we want to search everything
objCmd.Properties("Page Size") = 500 ' and we want our records in lots of 500
objCmd.CommandText = strQueryDL
Set objRs = objCmd.Execute
While Not objRS.eof
' do something with objRS.Fields("distinguishedName")'
objRS.MoveNext
Wend
Ken, si je voulais obtenir la valeur "SamaccountName" pour une valeur de prénom et de nom de nom, basé sur votre premier exemple, je ferais si objou.firstname = "alan" et objou.lastname = "smith" puis svariable = objou. SamAccountName serait-ce correct?
Un meilleur moyen serait de réellement utiliser le prénom / nom de dernière personne que vous recherchez dans la requête ... Strêterydl = "
Vous voulez utiliser Interfaces de service Active Directory (ADSI )
the ADSI Scripting Primer est un bon endroit pour commencer à apprendre et à trouver des exemples. (BTW, ces liens se réfèrent à Windows 2000, mais sont valables pour les versions ultérieures de Windows).
J'ai dû demander à Winad par Oldskool Nom d'utilisateur, ce script .vbs imprime les comptes d'utilisateurs.
Le script de test reçoit d'abord un objet utilisateur par une chaîne entièrement qualifiée, son juste un exemple. Deuxième partie fait la requête réelle de Smith * Filtre.
winadsearch.vbs
ActiveXperts.com/activmonitor/windowsmanagement/adminscripts / ...