Se connecter
Inscription
Mot de passe perdu
Jean-Christophe - Trouver le Distinguished Name d'un utilisateur AD sur base de son UserName- Function DN(UserName)
- On Error Resume Next
- Set objConnection = CreateObject("ADODB.Connection")
- objConnection.Open "Provider=ADsDSOObject;"
- Set objCommand = CreateObject("ADODB.Command")
- objCommand.ActiveConnection = objConnection
- Set objRootDSE = GetObject("LDAP://rootDSE")
- objCommand.CommandText = "<LDAP://" & objRootDSE.Get("defaultNamingContext") & ">;(&(objectClass=user)(objectCategory=person)(SAMAccountName=" & UserName & "));AdsPath, cn;subtree"
- strUserCommand = objCommand.CommandText
- Set objRecordset = objCommand.Execute
- If objRecordset.RecordCount <> 0 Then
- objRecordset.MoveFirst
- DN=objRecordset.fields("AdsPath")
- End If
- objConnection.Close
- End Function
Poster un commentaire
Google
Navigateurs
