tuxhunt3r
27.05.2009, aktualisiert um 16:10:52 Uhr
view6299
view12
0
Goto Top

VBS - Auslesen aller Gruppen einer OU samt Unter-OUs mit einigen Bedingungen

FrageVB for ApplicationsEntwicklung
Hallo ans Forum

Ich habe ein kleines Problem bei einem VBScript, welches ich für den Betrieb schreiben sollte. Hier der Code:

Const ADS_SCOPE_SUBTREE = 10
Set objConnection = CreateObject("ADODB.Connection")  
Set objCommand =   CreateObject("ADODB.Command")  
objConnection.Provider = "ADsDSOObject"  
objConnection.Open "Active Directory Provider"  
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000  
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE   

objCommand.CommandText = "SELECT AdsPath,samAccountName FROM 'LDAP://ou=Tralala,dc=beispiel,dc=ch' WHERE objectCategory='group'"    
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
	if Instr(objRecordSet.Fields("samAccountName").Value, "D-") > 0 Then  
		Gruppenname=objRecordSet.Fields("samAccountName").Value  
		UserCounter = 0
		' Mitglieder zählen  
		Set objGroup = GetObject(objRecordSet.Fields("AdsPath").Value)  
		objGroup.GetInfo
 		arrMemberOf = objGroup.GetEx("member")  
		For Each strMember in arrMemberOf
			UserCounter = UserCounter + 1
		Next
		if UserCounter < 2 Then
			'Owner auslesen  
			Owner = GetOwner(objRecordSet.Fields("AdsPath").Value)  
			wscript.echo Gruppenname & ";" & Owner  
		End if
		
		
	End if
Loop

'********************************************************************************************  
' Funktionen:  

Function GetOwner(adsPath)
	Set objGroup = GetObject(adsPath)
	Set objNtSecurityDescriptor = objGroup.Get("ntSecurityDescriptor")  
	GetOwner = objNtSecurityDescriptor.Owner
End Function

Dieses Script soll folgendes machen:
Es soll rekursiv alle Unter-OUs von ou=Tralala,dc=beispiel,dc=ch' abgrasen und von jeder Gruppe, die mit "D-" beginnt und weniger als 2 Mitglieder hat, den Namen, die Anzahl Mitglieder und den Owner auslesen. Wenn ich das Script mit CScript in der CMD-Shell starte, kommt zwar keine Fehlermeldung, allerdings sieht die Ausgabe dann so aus:

D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1
D-Gruppe1;Beispiel\User1

Es wird also dieselbe Gruppe mit demselben Owner unendlich mal angezeigt (so scheint es mir zumindest, ich habs nach einer Minute abgebrochen). Kann mir das einer erklären, rsp. eine Lösung anbieten? Ich werde daraus nicht schlau...


Grüsse aus der Schweiz
TuXHunT3R
ShareTeilen
Auf Facebook teilen Auf X (Twitter) teilen Auf Reddit teilen Auf Linkedin teilen

Content-ID: 116957

Url: https://administrator.de/forum/vbs-auslesen-aller-gruppen-einer-ou-samt-unter-ous-mit-einigen-bedingungen-116957.html

Ausgedruckt am: 17.04.2025 um 14:04 Uhr

12 Kommentare
Neuester Kommentar
Goto Top
76109
76109 27.05.2009 um 16:59:57 Uhr
Goto Top
Hallo TuXHunt3R,

am Ende Deiner Loop-Schleife fehlt ein <objRecordSet.MoveNext>

Gruß Dieter
bastla
bastla 27.05.2009 um 17:12:19 Uhr
Goto Top
Hallo TuXHunt3R und didi1954!

Das eigentliche Problem sollte schon gelöst sein, daher nur noch zwei Anmerkungen:

Wenn der Gruppenname mit "D-" beginnen soll, wäre die genauere Abfrage
If UCase(Left(objRecordSet.Fields("samAccountName").Value, 2)) = "D-" Then

Die Anzahl der Gruppenmitglieder sollte sich etwas direkter auch mit
UserCounter = UBound(objGroup.GetEx("member")) + 1
bestimmen lassen (mit einem On Error Resume Next davor für den Fall, dass die Gruppe keine Mitglieder hat) ...

Grüße
bastla
TuXHunt3R
TuXHunt3R 27.05.2009 um 20:44:20 Uhr
Goto Top
am Ende Deiner Loop-Schleife fehlt ein <objRecordSet.MoveNext>

Mein Gott, bin ich dämlich....... Ich habe sicher eine Stunde nach dem Fehler gesucht und übersehe so einen besch** MoveNext. Herzlichen Dank jedenfalls.

Wenn der Gruppenname mit "D-" beginnen soll, wäre die genauere Abfrage
Danke für den Hinweis, aber die Gross/Kleinschreibung ist egal.


mit einem On Error Resume Next davor für den Fall, dass die Gruppe keine Mitglieder hat
Guter Tipp, ich werde aber sehen, dass ich das irgendwie anders abfangen kann, z.B. mit einer weiteren Iteration.


Ich lass den Beitrag mal noch offen. Ich werde es morgen im Geschäft ausprobieren, gebe dann Feedback und poste das funktionierende Script.
bastla
bastla 27.05.2009 um 21:07:06 Uhr
Goto Top
Hallo TuXHunt3R!
... die Gross/Kleinschreibung ist egal.
Dir vielleicht face-wink, aber VBS unterscheidet da sehr wohl.

Das "genauer" bezog sich allerdings mehr auf die Tatsache, dass mit InStr() im gesamten Text gesucht wird, während Left() nur den Anfang des Strings betrachtet ...

Wie sehr Du Dich auf die Richtigkeit der Gruppennamen verlassen kannst bzw willst (und daher die genannten Aspekte tatsächlich nicht zum Tragen kommen sollten), musst Du natürlich selbst entscheiden.

Grüße
bastla
76109
76109 27.05.2009 um 22:56:31 Uhr
Goto Top
Hallo TuXHunt3R und bastla!

Zitat von @TuXHunt3R:
Mein Gott, bin ich dämlich....... Ich habe sicher eine Stunde
nach dem Fehler gesucht und übersehe so einen besch** MoveNext.
Tja, manchmal sieht man den Wald vor lauter Bäumen nichtface-smile
Danke für den Hinweis, aber die Gross/Kleinschreibung ist egal.
Ist nur egal, wenn Du die Option TextCompare angibst (Default=vbBinaryCompare):
if Instr(1, objRecordSet.Fields("samAccountName").Value, "D-", vbTextCompare) > 0

Gruß Dieter

[Edit] Aufgrund des Hinweises von bastla, die Startposition noch eingefügt, weil diese
bei Angabe der Vergleichsart auch angegeben werden muss (sonst optional).[/Edit]
bastla
bastla 27.05.2009 um 23:27:23 Uhr
Goto Top
... was allerdings einerseits noch immer nicht nur den Anfang des Strings vergleicht und andererseits nur funktioniert, wenn Du auch eine Startposition angibst:
If InStr(1, objRecordSet.Fields("samAccountName").Value, "D-", vbTextCompare) > 0 Then
Grüße
bastla
76109
76109 28.05.2009 um 00:00:28 Uhr
Goto Top
Hallo bastla!

Zitat von @bastla:
... was allerdings einerseits noch immer nicht nur den Anfang des Strings vergleicht
und andererseits nur funktioniert, wenn Du auch eine Startposition angibst:
Wieso denn? Die Startposition ist optional und wird sie nicht angegeben, dann ist die Startposition das 1. Zeichen

Allerdings hast Du insoweit Recht, dass ein "D-" auch an anderer Stelle im Suchstring gefunden werden könnte. In dem Fall müsste der Vergleich If InStr(...) = 1 Then.... heissen.

Aber von dem abgesehen, würde ich persönlich auch UCase(Left..) verwenden.

Gruß Dieter
bastla
bastla 28.05.2009 um 00:08:23 Uhr
Goto Top
@76109
Die Startposition ist optional und wird sie nicht angegeben, dann ist die Startposition das 1. Zeichen
... es sei denn, die MS-Doku wäre korrekt: "The start argument is required if compare is specified."

Grüße
bastla
76109
76109 28.05.2009 um 00:12:14 Uhr
Goto Top
Hallo bastla!

Aja, stimmt. Wenn Vergleich angegeben wird, dann muss auch die Startposition angegeben werden.

Werde es oben ändern.

Gruß Dieter
bastla
bastla 28.05.2009 um 00:21:13 Uhr
Goto Top
Auch ein Test mit
WScript.Echo InStr("Versuch", "U", vbTextCompare)
vs
WScript.Echo InStr(1, "Versuch", "U", vbTextCompare)
spricht dafür, dass der Wert wohl anzugeben ist ...

Grüße
bastla
76109
76109 28.05.2009 um 00:29:50 Uhr
Goto Top
Hallo nochmal,

äh, hab ich doch schon geschrieben oder warst Du wieder zu schnell, während ich meine Antwort noch mal geändert hatte?

Gruß Dieter
bastla
bastla 28.05.2009 um 00:32:02 Uhr
Goto Top
warst Du wieder zu schnell, während ich meine Antort noch mal geändert hatte?
Ausnahmsweise ... face-wink

Grüße
bastla
FrageVB for ApplicationsEntwicklung
Mehr von TuXHunt3RTuXHunt3RWindows Server Datendeduplizierung mit Roaming ProfilesTuXHunt3R - 4 KommentareTuXHunt3RWindows 10 - VPN-Tunnel computerseitig einrichtenTuXHunt3R - 2 KommentareTuXHunt3RNeuer Edge Chromium - Installation mittels MSI + den alten Edge gleich mitentsorgenTuXHunt3R - 7 KommentareTuXHunt3REigenschaften eines einzelnen Mails in einem Postfach auslesenTuXHunt3R - 2 Kommentare
Heiß diskutiert
HappyHannesPing Spikes im HeimnetzHappyHannes - 32 KommentaremirdochegalServer 2025 DC - verliert nach reboot Domänenfirewallprofil - nicht als DC erreichbarmirdochegal - 31 KommentareAndi-75Zugriff auf NAS-Ordner von VM nicht möglichAndi-75 - 25 KommentareYan2021NUC als NAS verwenden?Yan2021 - 25 KommentareMysticFoxDEWindows 11 - Unerträgliche RessourcenverschwendungMysticFoxDE - 22 Kommentaremorpheus82Lancom Router DHCP Zuweisungenmorpheus82 - 21 KommentareStefanKittelCVE am Ende?StefanKittel - 20 KommentarekpunktSuche kabelloses HID-Zeugs (Mäuse und Tastaturen)kpunkt - 20 KommentareStefanKittelIdeen für ein zukünftiges IT-Setup für mich sammelnStefanKittel - 14 Kommentarem.sterRAM Guidem.ster - 13 KommentarejoehuabaAccessPoint Outdoor Kastenjoehuaba - 13 KommentareNeurothikerMikrotik - wie ändere ich ein Interface von slave auf master?Neurothiker - 13 Kommentarelinuxer1Firmware für N7100E gesuchtlinuxer1 - 12 Kommentare