LDAP Benutzer finden, DN Path auslesen

From: Simon (simong_at_gmx.net)
Date: 08/26/04 

Date: Thu, 26 Aug 2004 10:11:19 +0200

Hallo WSH Gurus

Dieses Script prüft ob ein Benutzer im AD existiert.
Wie kann ich erreichen das mir das Script den LDAP Path (dn) ausgibt ??

Danke im voraus

***************+

CheckForUser("Benutzername")
Sub CheckForUser(samAccountName)
    dtStart = TimeValue(Now())
    strUserName = samAccountName
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"

    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection

    objCommand.CommandText = _
        "<LDAP://dc=ntdomain,dc=net>;(&(objectCategory=User)" & _
            "(samAccountName=" & strUserName & "));samAccountName;subtree"

    Set objRecordSet = objCommand.Execute

    If objRecordset.RecordCount = 0 Then
        WScript.Echo "sAMAccountName: " & strUserName & " does not exist."
    Else
        WScript.Echo strUserName & " exists."' & samAccountName.Path
    End If

    objConnection.Close
    WScript.Echo "Script completed in " & _
        Second(TimeValue(now()) - dtStart) & _
            " second or less."
End Sub

Relevant Pages