Find Organizational Units

HEY !

Dette returnerer brugerens distinguishedName, der består af navn,OU og domæne :

    strinitialer = InputBox("Indtast initialer")
    If strinitialer = "" Then WScript.quit
    Const ADS_SCOPE_SUBTREE = 2
    Set objRootDSE = GetObject("LDAP://RootDSE")
    domain = objRootDSE.Get("RootDomainNamingContext")
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =  CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
    objCommand.CommandText = _
        "SELECT distinguishedName FROM 'LDAP://" & domain & "' WHERE objectCategory='user' " & _
        "AND sAMAccountName='" & strinitialer & "'"
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst
    Do Until objRecordSet.EOF
        strobjekt = objRecordSet.Fields("distinguishedName").Value
        objRecordSet.MoveNext
    Loop
    MsgBox strobjekt

/Killer

Hey Nil !
Kunne du bruge det ??

/Killer

Aehm .. Nil ?