Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

VBscripting ifmembership

Frage Entwicklung

Mitglied: DocuSnap-Dude

DocuSnap-Dude (Level 2) - Jetzt verbinden

25.11.2010, aktualisiert 15:02 Uhr, 2481 Aufrufe, 1 Kommentar

VBscripting

Hallo,

ich habe je eine Active Directory-Gruppe "ReportReaders" sowie "Reporteditors.

In jeder dieser gruppen sind keine Einzeluser sondern auch Gruppen enthalten. Das heisst: in "Reportreaders" sind die Mitglieder nicht Müller, Meyer, Schulze sondern z.B. "Einkauf", "Buchhaltung", "Verkauf" enthalten.

meine Frage:

ich möchte im Login abfragen erstellen, welche einen user als Mitglied der "ReportReaders" identifizeiren um dann weitere Schritte zu machen. Ich mache das im VBscript wie folgt (Auszüge):

01.
... 
02.
if isMember("Reportreaders") then 
03.
     '...tu dies 
04.
    '...mach das 
05.
   '...tu jenes 
06.
End If 
07.
 
08.
'## Functions ## 
09.
	'##isMember## 
10.
		Function IsMember(sGroup) 
11.
    		Dim sAdsPath, oUser, oGroup 
12.
	    		If IsEmpty(oGroupDict) Then 
13.
        			Set oGroupDict = CreateObject("Scripting.Dictionary") 
14.
        			oGroupDict.CompareMode = vbTextCompare 
15.
        			sAdsPath = WshNetwork.UserDomain & "/" & WshNetwork.UserName 
16.
        			Set oUser = GetObject("WinNT://" & sAdsPath & ",user") 
17.
 		        	For Each oGroup In oUser.Groups 
18.
            			oGroupDict.Add oGroup.Name, "-" 
19.
        			Next 
20.
        			Set oUser = Nothing 
21.
    			End If 
22.
    		IsMember = CBool(oGroupDict.Exists(sGroup)) 
23.
	End Function
Mein problem: es klappt nicht. Ursache ist, das mein script nicht in die die "Subgroups" schaut sondern eben nur ob direkt in der Gruppe "ReportReaders" ein Müller ist.

Hat da einer eine machbare variante?

Danke für eure Hilfe

Frank
Mitglied: bastla
25.11.2010 um 15:33 Uhr
Hallo frankoehli!

Wäre ich ein "Scripting Guy" würde ich wohl sagen: "Been there, done that ..."

Grüße
bastla
Bitte warten ..
Neue Wissensbeiträge
Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(8)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Datenschutz

Gefährdeter Datenschutz: Firefox löscht lokale Datenbanken nicht

Information von BassFishFox zum Thema Datenschutz ...

Firewall

PfSense OpenVPN beschleunigen

Tipp von Dobby zum Thema Firewall ...

Utilities

CCleaner 5.33 mit Malware infiziert

(27)

Information von SeaStorm zum Thema Utilities ...

Heiß diskutierte Inhalte
Utilities
CCleaner 5.33 mit Malware infiziert (27)

Information von SeaStorm zum Thema Utilities ...

Festplatten, SSD, Raid
gelöst Problem mit DELL 815R Server und Windows Bluescreen (24)

Frage von Leo-le zum Thema Festplatten, SSD, Raid ...

Windows Systemdateien
Windows bootet nicht mehr Fehlermeldung 0xc0000098 (19)

Frage von franzgoerlich zum Thema Windows Systemdateien ...

Windows Netzwerk
Dateien mit Intelligenz per GPO ins Programmverzeichnis (14)

Frage von erwin.t zum Thema Windows Netzwerk ...