Hent brugerne i en OU ud.

Svar til spørgsmål 2 er:
Dim FindUser, objAD, objOU, objUser

FindUser = InputBox("Hvilken bruger vil du søge efter?", "Bruger Søgning")


Set objAD = GetObject("LDAP://localhost:389/dc=fabrikam,dc=com")

For Each objOU in objAD
    If InStr(1, objOU.Name, "OU=") <> 0 Then
        objOU.Filter = Array("user")
        For Each objUser In objOU
            If Instr(1, UCase(objUser.Name), UCase(FindUser)) <> 0 Then
                WScript.Echo "Brugeren findes i følgende OU: " & Right(objOU.Name, (Len(objOU.Name)-3))
                WScript.Echo "Brugeren Hedder: " & Right(objUser.Name, (Len(objUser.Name)-3))
            End If
        Next
    End If
Next

Og deri ligger faktisk også svaret på spørgsmål 1, mærkeligt at der ikke var nogen der svarede på dette .. :)

Men så lærte jeg lidt selv ..

Opdateret version, der virker en del bedre.

'Script ------------
Option Explicit

Dim FindUser, ADPath, objAD, objOU, objectOU, object

FindUser = InputBox("Hvilken bruger vil du søge efter?", "Bruger Søgning")
ADPath = "LDAP://localhost:389/"

Set objAD = GetObject(ADPath & "dc=fabrikam,dc=com")


For Each objOU in objAD
    If InStr(1, objOU.Name, "OU=") <> 0 Then
        Search objOU.distinguishedName
    End If
Next


'---------------------------------------------------------------------------------------------------------
Sub Search(searchOU)
    Set objectOU = GetObject(ADPath & searchOU)
    For Each object In objectOU
        If InStr(1, object.Name, "OU=") <> 0 Then
            Search object.distinguishedName
        Else
            If Instr(1, UCase(object.Name), UCase(FindUser)) <> 0 Then
                WScript.Echo "Brugeren: " & Right(object.Name, (Len(object.Name)-3)) & " findes i følgende Lokation: " & objectOU.distinguishedName
            End If
        End If
    Next
End Sub
'Script End-------------