Script Examples vbscript autoit php batch

User Member of AD Group

(4)
Artikel bewerten
(8)

Script for testing the Membership of an Computer in an Active Directory 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
<<< Computer Member of AD Group vbscript - Access (mdb) Datei generieren >>>


neue Themen

Stichwortsuche auf dieser Seite:
19.05.2012 02:21 zZ 6 Leser online
Powered by cms.libe.net 2004-2012