Usernamen ermitteln

30/10/2008 - 11:04 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 Herrmann Müller
30/10/2008 - 16:18 | Warnen spam
Ok, dann anders.
Ich habe irgend einen Username aus der Domàne und würde gern dessen
Container (also die Parrent OU) ermitteln. Aber es ist nicht der Username
mit dem ich gerade angemeldet bin.
Kann mir jemand sagen wie ich das machen muss?

Vielen Dank.

mfg

Herrmann

Ähnliche fragen