Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS LDAP - Fehler beim Auslesen von Mitgliedern aus Gruppen

Frage Entwicklung

Mitglied: DemseinAdmin

DemseinAdmin (Level 1) - Jetzt verbinden

03.11.2009, aktualisiert 16:21 Uhr, 5572 Aufrufe, 4 Kommentare

Hallo zusammen,

ich habe ein Problem bei einem VB Script.
Ich möchte aus allen Gruppen, die ich dem Script per Textdatei liefere, die Mitglieder auslesen.
Hier der Quelltext:
01.
'Quelle festlegen 
02.
RESULTFILE = "result.txt" 
03.
SOURCEFILE = "ou_res.txt" 
04.
OUNIT = "res" 
05.
If FSO.FileExists(SOURCEFILE) Then 
06.
	Set LIST = FSO.OpenTextFile(SOURCEFILE, 1) 
07.
	Set RESULT = FSO.OpenTextFile(RESULTFILE, 2) 
08.
	Do While Not (LIST.AtEndOfStream) 
09.
		GROUP = LIST.ReadLine 
10.
		Set DOMAENE = GetObject("LDAP://...geheim...") 
11.
		ANZ = 0 
12.
		On Error Resume Next 
13.
		ARRMEMBEROF = DOMAENE.GetEx("member") 
14.
		ANZ = UBound(ARRMEMBEROF) + 1 
15.
		On Error GoTo 0 
16.
		If (ANZ >= 1) then 
17.
			RESULT.WriteLine(GROUP & ";" & ANZ) 
18.
		End If 
19.
	Loop 
20.
	Set LIST = Nothing 
21.
End If
SOURCEFILE ist eine Textdatei mit allen Gruppennamen die ich auslesen möchte
RESULTFILE ist eine Textdatei, in welche der Gruppenname + die ANZahl der Mitglieder geschrieben werden soll.

Hierbei werden auch Gruppen ausgegeben, welche leer sind. Ist ja auch ganz klar, weil ich ihm in der Zeile
01.
ANZ = UBound(ARRMEMBEROF) + 1
sage, dass die ANZahl immer >= 1 ist.
Wie bekomme ich es nun hin, dass mir nur die Gruppen ausgegeben werden, die auch wirklich Mitglieder haben? Oder besser: Bei allen leeren Gruppen steht auch tatsächlich eine "0" dahinter?

Danke euch.

Gruß
Simon
Mitglied: 76109
03.11.2009 um 20:59 Uhr
Hallo DemseinAdmin!

Möglicherweise würde es helfen, wenn Du nach:
01.
ARRMEMBEROF = DOMAENE.GetEx("member") 
den Test:
01.
 If Err.Number = 0 Then ANZ  = UBound(ARRMEMBEROF) + 1 
einfügst. Der Err-Test muss selbstverständlich vor der Anweisung <On Error Goto 0> stehen.
Das Array ARRMEMBEROF bleibt bei einem Fehler unverändert bzw. enthält den Wert vom vorherigen Durchlauf.

Gruß Dieter
Bitte warten ..
Mitglied: DemseinAdmin
04.11.2009 um 09:49 Uhr
Hallo Dieter,

vielen Dank dafür, funktioniert!

Jetzt habe ich noch ein weiteres Problem, bei dem mir nicht so wirklich eine passende Lösung in den Kopf schießt:
Nun kann es ja sein, dass die Gruppen aus denen ich die Benutzer auslese, weitere Untergruppen haben, in welcher die eigentlichen Benutzer stecken. Die werden aber bisher nicht mit ausgelesen, da ich ja nur in der ersten Ebene suche.
Hat da jemand spontan eine gute Idee, wie ich das am besten handhaben kann?

Gruß
Simon
Bitte warten ..
Mitglied: 76109
04.11.2009 um 10:33 Uhr
Hallo Simon!

Freut mich, wenn ich Dir zumindest teilweise helfen konnte. Dein anderes Problem entzieht sich leider meiner Kenntnis

Gruß Dieter
Bitte warten ..
Mitglied: DemseinAdmin
05.11.2009 um 11:00 Uhr
Kein Problem!

Dann setze ich das Thema mal auf gelöst und tüftel mal weiter. Wenn noch jemandem was einfällt, bitte nicht scheuen hier zu antworten.

Gruß
Simon
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

Entwicklung
Zählerstände über SNMP und VBS auslesen (4)

Frage von motofuzy zum Thema Entwicklung ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (32)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...