User Member of AD Group


This script looks if the actually logged on User is in an specified Active Directory Group: (in this Example: ActiveDirectoryGroup1 or ActiveDirectoryGroup2)

Dim WSHShell, objNET, objSysInfo, objUser, strUserDN, strGroups, Group, GroupName
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set objNET = WScript.CreateObject("WScript.Network")
Set objSysInfo = WScript.CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
  
strGroups = objUser.GetEx("memberOf")   
For Each Group in strGroups
Set ThisGroup = GetObject("LDAP://" & Group)
GroupName = ThisGroup.CN

Select Case GroupName
   Case "ActiveDirectoryGroup1"
Wscript.echo "User is Member of ActiveDirectoryGroup1"
WScript.Quit(0) 
   Case "ActiveDirectoryGroup2"
        Wscript.echo "User is Member of ActiveDirectoryGroup2"
End Select
Next
positive Bewertung({{pro_count}})
Beitrag bewerten:
{{percentage}} % positiv
negative Bewertung({{con_count}})

DANKE für deine Bewertung!


Top-Artikel in diesem Bereich

vbscript string

vbscript string

geändert: 11.10.2016 von Bernhard (Erstveröffentlichung: 06.01.2011)

Strings werden zum Speichern und durch Aufruf von Funktionen zum Manipulieren von Text verwendet. (Ein String ist eine gespeicherte Zeichenfolge) ... weiterlesen

VBScript .vbs Datum und Zeit Funktionen Syntax Referenz

VBScript .vbs Datum und Zeit Funktionen Syntax Referenz

geändert: 31.03.2020 von Bernhard (Erstveröffentlichung: 06.01.2011)

Datum und Zeit Funktionen in vbscript ... weiterlesen

Preview wie erstelle ich eine vbscript Datei .vbs - Grundlagen

wie erstelle ich eine vbscript Datei .vbs - Grundlagen

geändert: 31.03.2020 von Bernhard (Erstveröffentlichung: 04.01.2008)

Zum Erstellen der vbscript Datei genügt ein einfacher Editor. Eine in Windows abgespeicherte Textdatei mit der Eindung .vbs kann direkt ausgeführt werden. ... weiterlesen


Fragen / Kommentare