User aus einer OU

30/10/2008 - 11:03 von Herrmann Müller | Report spam
Hallo,

ich habe die Usernamen einer Windows Domàne mit VB6 wie unten ausgelesen.

Kann mir jemand sagen, wie ich nur die Usernamen einer bestimmten OU dieser
Domàne auslesen kann?


Vielen Dank.

Herrmann



Private Sub Command1_Click()
Dim oADSI As Object
Dim oUser As Object
Dim sDomain As String

' Fehlerbehandlung aktivieren
On Error GoTo ErrHandler

' lokaler PC
sDomain = "Domàne"

' ADSI Container-Objekt erstellen

'Set oADSI = GetObject("WinNT://" & sDomain)

' Benutzer filtern
oADSI.Filter = Array("User")

' alle Benutzernamen auflisten
For Each oUser In oADSI
Debug.Print oUser.Name
Text1.Text = Text1.Text & vbNewLine & oUser.Name
Next

ErrHandler:
' Objekte zerstören
Set oUser = Nothing
Set oADSI = Nothing

End Sub
 

Lesen sie die antworten

#1 Nils Kaczenski [MVP]
30/10/2008 - 17:40 | Warnen spam
Moin,

Herrmann Müller schrieb:
Kann mir jemand sagen, wie ich nur die Usernamen einer bestimmten OU dieser
Domàne auslesen kann?



indem du nicht den WinNT-Provider nimmst, sondern den LDAP-Provider.

Set objOU = GetObject("LDAP://OU=Meine OU,DC=meine,DC=dom")
objOU.Filter = Array("user")
For Each objUser In objOU
WScript.Echo objUser.name
Next


Schöne Grüße, Nils

Nils Kaczenski - MVP Windows Server
www.faq-o-matic.net
Antworten bitte nur in die Newsgroup!
PM: Vorname at Nachname .de
https://mvp.support.microsoft.com/p....Kaczenski

Ähnliche fragen