Obtention des détails de réseau à partir d'Active Directory dans un script VB?

Question

Nous souhaitons renseigner les détails des utilisateurs à partir d'Active Directory. Partager mon code pour accéder aux détails de l'utilisateur à partir de AD.

Answer 1

Présentation

Les gens demandent souvent pour interroger le répertoire actif en passant nom ou par courriel de compte réseau. De nombreux articles sont déjà disponibles à ce sujet, et on pourrait être confus. Voici un code de travail simple pour accéder aux détails de l'utilisateur à partir de la base de données Active Directory - Veuillez noter que pour accéder à AD, vous devez spécifier des informations d'identification de compte réseau valides dans la connexion.

function GetADDetails(userId) 
    Set objConn = Server.CreateObject("ADODB.Connection") 
    objConn.provider ="ADsDSOObject" 
    objConn.Properties("User ID") = "domain\userId" 'specify domain and 
    network account 
    objConn.Properties("Password") = "password" 'specify network password 
    objConn.Properties("Encrypt Password") = True 
    objConn.open "Active Directory Provider" 
    Set objCom = CreateObject("ADODB.Command") 
    Set objCom.ActiveConnection = objConn 
    strTarget="GC://abc.com" 'your domain name 
    objCom.CommandText ="select sn, givenName, sAMAccountName, name,mail,  
    telephoneNumber FROM '"+strTarget+"' where sAMAccountname='"+userId+"'" 
    Set objRS = objCom.Execute 
    If Not (objRS.EOF Or objRS.BOF) Then 
    GetADDetails=objRS.GetRows 
    Else 
    GetUserData = Null 
    End If 
    'Close objects and remove from memory 
    objRS.Close 
    objConn.Close 
    Set objRS = Nothing 
    Set objConn = Nothing 
    Set objCom = Nothing 
end function