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, 4346 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
Verschlüsselung & Zertifikate
Meine Wissenssammlung zu Bitlocker
Erfahrungsbericht von DerWoWusste vor 8 StundenVerschlüsselung & Zertifikate1 Kommentar

Die Motivation für diesen Beitrag waren die vielen Posts rund um dieses Thema, die deutlich machen, wie viele Einzelaspekte ...

E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 2 TagenE-Mail11 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 2 TagenHyper-V

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 2 TagenSicherheits-Tools1 Kommentar

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

Heiß diskutierte Inhalte
Netzwerke
Hilfe bei der Planung meines Heimnetzwerks
Frage von DHD082Netzwerke14 Kommentare

Hallo zusammen, wir bauen gerade ein Einfamilienhaus, welches ich mit einem Heimnetzwerk ausstatten möchte. Da ich zwar auch in ...

Tipps & Tricks
Nagstamon und PRTG Monitoring
Frage von Der.ITlerTipps & Tricks13 Kommentare

Hallo Ihr, heute am Sonntag bin ich mal früh aufgestanden um mich mit dem Problem von Gestern zu beschäftigen. ...

Hardware
Sophos SG135 - Routing
Frage von Xaero1982Hardware13 Kommentare

Moin Zusammen, ich ersetze gerade nen alten Cisco DualWAN Router durch eine SG 135. Ich muss bestimmte Ziele über ...

Datenschutz
Gilt ein Ransomware-Befall als Datenpanne nach DSGVO?
Frage von MOS6581Datenschutz12 Kommentare

Moin Kollegen, wenn sich jemand Ransomware einfängt und dadurch bspw. Kundendaten verschlüsselt werden; gilt dies dann als meldepflichtige Datenpanne ...