VBS - AD-Accounts liste

[Butterbrot 10]

Hallo zusammen

 

Kann mir jemand sagen wie ich via LDAP-Abfrage alle User-Accounts ausgeben kann?

 

Ich habe im "Windows Script Referenz" eine Lösung gefunden. Jedoch werden nicht alle Accounts aufgelistet... WIESO?

 

' Global Catalog suchen
Set gc = GetObject("GC:")
For each child in gc
	Set enterprise = child
Next

'ObjektFSO wird definiert
set objFSO = CreateObject("Scripting.FileSystemObject")

'FilePfade bei Bedarf anpassungen nötig
txtPID	= "C:\Temp.txt"
txtPIPMember = "C:\" & strGroupInput & ".txt"

If IsEmpty(enterprise)then
	MsgBox "Nicht an einer Domäne angemeldet"
	WScript.quit
End If

' ADO initialisieren
Set Connection = CreateObject("ADODB.Connection")
Connection.Provider = "ADsDSOObject"
Connection.Open

Set Command = CreateObject("ADODB.Command")
Command.ActiveConnection = Connection

' Suchbefehl festlegen
Command.CommandText = "<" & enterprise.ADsPath & ">;(&(objectCategory=person)(objectClass=user));name;subTree"
Set rs = Command.Execute

' Ergebnis anzeigen (kurz)
WScript.Echo vbTab & rs.GetString

rs.MoveFirst

Do until rs.eof
	liste = liste & rs("name") & vbCrLf
	rs.MoveNext
Loop
[/Code]

 

thx 4 helping :)

[Butterbrot 10]

... kann mir niemand helfen? Dabei sollte doch dies zu den Grundbedürfnissen eines jeden Admins gehören...

[blub 115]

Füg den Befehl nach diesen Zeilen

Set Command = CreateObject("ADODB.Command")

Command.ActiveConnection = Connection

noch ein:

objCommand.Properties("Page Size") = 1000

 

dann gehts. Sonst werden dir nur die ersten 1000 Objekte ausgegeben

 

Es geht aber auch kürzer in einer Zeile :-)

 

For /f "tokens=3,* delims==," %%i in ('CScript //nologo C:\supporttools\search.vbs "LDAP://dc=test,dc=com" /S:subtree /Q /C:"&(ObjectCategory=user)"') do ECHO %%i,%%j>>D:\Userleins.csv

 

 

cu

blub

[Butterbrot 10]

Nei leider war dies nicht das Problem... :(

[blub 115]

bitte nicht ganz so viel Information auf einmal!

 

cu

blub