作成 2010.01.08
更新 2010.01.08
更新 2010.01.08
VBScript で特定のグループに所属していたら実行しない２
このスクリプトは、Domain Admins に所属していたらプログラムを実行しません。
特定のユーザーが非常にたくさんのグループに所属していない前提です。
特定のユーザーが非常にたくさんのグループに所属していない前提です。
Option Explicit
Const SKIPGROUP = "Domain Admins"
Const BATCHPATH = "ここにプログラムを指定"
Dim objSysInfo, objUser, entGroup, WshShell
Set WshShell = CreateObject("WScript.Shell")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
' WScript.Echo objUser.ADsPath
For Each entGroup In objUser.Groups
' WScript.Echo entGroup.Name
' 指定したグループと一致したら終了
If entGroup.Name = "CN=" & SKIPGROUP Then WScript.Quit
Next
' プログラムを実行
WshShell.Run "" & BATCHPATH & "", 0, True