Avatar billede bfjmnemonic Nybegynder
12. februar 2004 - 16:25 Der er 2 kommentarer og
1 løsning

Hent brugerne i en OU ud.

Hej eXperten.

2 Spørgsmål.

Hvordan henter man en liste med brugere i en bestæmt OU i AD ud?

Hvordan laver man et script der fortæller hvilken OU en bruger er i?
Avatar billede bfjmnemonic Nybegynder
15. februar 2004 - 00:43 #1
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
Avatar billede bfjmnemonic Nybegynder
15. februar 2004 - 00:44 #2
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 ..
Avatar billede bfjmnemonic Nybegynder
15. februar 2004 - 16:27 #3
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-------------
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester