VBスクリプトでActive Directoryからネットワークの詳細を取得していますか？

Question

Active Directoryからユーザーの詳細を入力する必要があります。 ADからユーザーの詳細にアクセスするためのコードを共有する

Answer 1

はじめ

人々は、多くの場合、ネットワークアカウント名または電子メールを渡すことで、アクティブディレクトリを照会するために頼みます。これについては既に多数の記事があり、混乱するかもしれません。ここには、アクティブなディレクトリデータベースからユーザーの詳細にアクセスするための簡単な作業コードがあります。 ADにアクセスするには、接続に有効なネットワークアカウントの資格情報を指定する必要があります。

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