VB.NET: Obtenir le nom Complet d'AD

Je suis en train d'essayer d'obtenir le nom complet d'un utilisateur donné leur nom d'utilisateur "domaine\usarname". Essayé un couple de différents exemples, mais aucune ne semble fonctionner.
Je suis l'aide de Visual Basic .Net 2010.

J'ai eu à l'origine le code suivant dans VBS et porté à VBA et travaillent bien. Si j'essaie d'utiliser le même code dans VB.NET 2010-je obtenir de multiples erreurs et le chemin LDAP n'est pas trouvé, même si je l'entrer manuellement.

Function FindUser()
On Error GoTo Err
Dim objRoot As Variant
Dim LDAPdomainName As String
Dim UserName As String
Dim UserDomain As String
Dim cn As Variant
Dim cmd As Variant
Dim rs As Variant
UserName = VBA.Environ("UserName") ' Gets Current User
UserDomain = VBA.Environ("UserDomain") 'Gets Current User's Domain
Set objRoot = GetObject("LDAP://RootDSE")
Domain= objRoot.Get("defaultNamingContext") 
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 & "'"
'To see all attributes names available, connect with Active Directory Explorer and add to Select.
cmd.commandtext = "SELECT cn, mail  FROM 'LDAP://" & Domain & "' WHERE sAMAccountName = '" & UserName & "'"
Set rs = cmd.Execute
Do Until rs.EOF
Debug.Print rs("cn") & " E-mail: " & rs("mail")
rs.MoveNext
Loop
Exit_Err:
If Not rs Is Nothing Then rs.Close
If Not cn Is Nothing Then cn.Close
Set rs = Nothing
Set cmd = Nothing
Set cn = Nothing
Exit Function
Err:
If Err <> 0 Then
MsgBox "Error connecting to Active Directory Database: " & Err.Description
Else
If Not rs.BOF And Not rs.EOF Then
rs.MoveFirst
MsgBox rs(0)
Else
MsgBox "Not Found"
End If
End If
Resume Exit_Err
End Function
  • ce que vous avez essayé jusqu'à présent ? Vous devez ajouter un peu de code que vous avez testé jusqu'à présent, nous ne proposons pas quelque chose que vous avez déjà exploré.
  • Eh bien, ce qu'il a essayé n'a pas marché, donc tout ce qui fonctionne est une proposition valable.
InformationsquelleAutor Rick | 2011-10-27