Top-Themen

Aktuelle Themen (A bis Z)

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-Script Erweitern um das Auslesen von Benutzern in einer Hauptgruppen

Mitglied: Alecane

Alecane (Level 1) - Jetzt verbinden

16.09.2011, aktualisiert 14:13 Uhr, 4327 Aufrufe, 5 Kommentare

Hallo Community ;)

ich benutze foglendes VBS-Script um mir alle Aktivierten Benutzer einer Gruppe in eine Text-Datei Schreiben zu lassen.
Doch nun habe ich eine Hauptgruppe angegeben, welche mehrere Untergruppen mit deren Benutzern enthält, dabei Meckert mein Script.

Bin leider totaler Anfänger, könnt ihr mir weiterhelfen, wie ich das Problem lösen kann?

Script:
01.
Const ListFile = ".\Aktive_Benutzer_der_Gruppe_Test.txt" 
02.
Const Delim = ";" 
03.
Const FOR_APPENDING = 8 
04.
Const ADS_UF_ACCOUNTDISABLE = 2 
05.
 
06.
Set objgroup = GetObject ("LDAP://CN=Test,OU=test,DC=test,DC=DE") 
07.
 
08.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
09.
Set objFile = objFSO.OpenTextFile(ListFile, FOR_APPENDING, True) 
10.
 
11.
For Each objUser In objGroup.Members 
12.
	If Not objUser.userAccountControl AND ADS_UF_ACCOUNTDISABLE Then 
13.
    		UserInfo = objUser.sAMAccountName & Delim & objUser.Name 
14.
    		Set colGroups = objUser.Groups 
15.
    		For Each objGroup in colGroups 
16.
        	UserInfo = UserInfo & Delim & objGroup.CN 
17.
        	GetNested(objGroup) 
18.
  		Next 
19.
	    objFile.WriteLine UserInfo 
20.
	End if 
21.
next 
22.
objFile.Close 
23.
 
24.
WScript.Echo "Fertig" 
25.
 
26.
Function GetNested(objGroup) 
27.
    On Error Resume Next 
28.
    colMembers = objGroup.GetEx("memberOf") 
29.
    For Each strMember in colMembers 
30.
        strPath = "LDAP://" & strMember 
31.
        Set objNestedGroup = _ 
32.
        GetObject(strPath) 
33.
        GetNested(objNestedGroup) 
34.
    Next 
35.
End Function
Grüße Alecane

[Edit Biber] Codeformatierung wie auch von Logan000 erbeten. [/Edit]
Mitglied: Logan000
16.09.2011 um 14:05 Uhr
Moin Moin

Erstmal möchte ich die die Code-Tags aus der Formatierungshilfe nahelegen wenn du hier Code oder Fragmente davon hier postest.
Weiterhin Meckern Skripte nicht, sondern geben meist eine Fehlermeldung mit Zeilenangabe aus.

Zu deinem Skript / Problem:

Wenn ich das richtig verstanden habe, hast im Skript eine Gruppe angegben die nicht nur User enthält sondern auch andere Gruppen.

In den Zeilen
01.
... 
02.
For Each objUser In objGroup.Members 
03.
If Not objUser.userAccountControl AND ADS_UF_ACCOUNTDISABLE Then 
04.
...
behandelst du aber alle Gruppen Mitglieder nur als User.
Stellt sich die Frage was soll mit denn Gruppen in deinem Skript geschehen?

Gruß L.
Bitte warten ..
Mitglied: bastla
16.09.2011 um 15:23 Uhr
Hallo Alecane!

Vielleicht hilft Dir dieses Script weiter ...

Grüße
bastla
Bitte warten ..
Mitglied: Alecane
26.09.2011 um 11:58 Uhr
Hallo,

danke für deine Erklärung.

Also ich möchte, das die User der Untergruppen ausgelesen werden.

Ich gebe eine Hauptgruppe mit mehreren Untergruppen und deren Benutzer an und möchte folgendes Ergebnis geliefert bekommen:

Benutzer-ID;Vollständiger Name;Gruppe1;Gruppe2;....

Kannst du mir nun folgen oder brauchst noch mehr Infos?

Grüße Alecane
Bitte warten ..
Mitglied: Logan000
26.09.2011 um 14:06 Uhr
Moin Moin

Zitat von Alecane:
Also ich möchte, das die User der Untergruppen ausgelesen werden.
Ich gebe eine Hauptgruppe mit mehreren Untergruppen und deren Benutzer an und möchte folgendes Ergebnis geliefert bekommen:
Benutzer-ID;Vollständiger Name;Gruppe1;Gruppe2;....
Kannst du mir nun folgen oder ...
Ich denke schon:
Du möchtest die geschachtelten Gruppen recursiv durchsuchen um eine eine Benutzerliste mit entsprechenden Gruppenmitgliedschaften zu erstellen.
... brauchst noch mehr Infos?
Ja allerdings.
Das Beispiel von Bastla liefert (grob) genau das was du suchst.
Also woran hakt es nun?

Gruß L.
Bitte warten ..
Mitglied: Alecane
27.09.2011 um 08:18 Uhr
Das Script von bastia sollte in mein Script oder andersherum eingebunden werden, doch das ist mir zu Komplex.

Da ich in meinem noch den Zusatz mit der Text-Funktion habe und des Filters von Aktiven Benutzern.

Grüße Alecane
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Windows Server 2008R2 VBS Script Benutzer deaktivieren

gelöst Frage von mkspawnVB for Applications4 Kommentare

Hallo, folgendes Problem, es sollen mittels VBS das per Task Scheduler gestartet wird alle lokalen Benutzer einer Bestimmten Gruppe ...

VB for Applications

VBS - Vor- und Nachnamen auslesen

Frage von Ah3n0bar6usVB for Applications2 Kommentare

Ich könnte noch einmal (teuren) Rat gebracuhen. Ich versuche mir dem u.a. Script den kompletten Namen eines Nutzers vom ...

Batch & Shell

Eventlog Druckjobs mit VBS auslesen

Frage von joni2000deBatch & Shell4 Kommentare

Hallo zusammen, ich lese mit folgendem Code das Eventlog aus um die Druckjobs zu ermitteln. Das funktioniert auf dem ...

Entwicklung

Zählerstände über SNMP und VBS auslesen

Frage von motofuzyEntwicklung4 Kommentare

Hallo ihr lieben, ich suche ein Script das in VBS oder Powershell geschrieben ist und mir die Zählerstände der ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 3 StundenHumor (lol)1 Kommentar

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 15 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 16 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 19 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...