VBSでスクリプトを実行したユーザがどのグループに属しているか表示させます。
今月のHey, Scripting Guy!のスクリプトがActiveDirectoryに便利そうだったんでこれに多少変更を加えただけですけども。
Option Explicit Dim objDictionary,objNetwork,objADSysInfo Dim strUser,objUser,strGroup,objGroup,strGroupName Dim strGroupNo,strGroupNameMsg Set objDictionary = CreateObject("Scripting.Dictionary") Set objNetwork = CreateObject("Wscript.Network") Set objADSysInfo = CreateObject("ADSystemInfo") strUser = objADSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) strGroupNo = 1 For Each strGroup in objUser.memberOf Set objGroup = GetObject("LDAP://" & strGroup) strGroupName = objGroup.CN strGroupNameMsg = strGroupNameMsg & strGroupName & vbCrlf objDictionary.Add strGroupNo,strGroupName strGroupNo = strGroupNo + 1 Next msgbox strGroupNameMsg Set objDictionary = Nothing Set objNetwork = Nothing Set objADSysInfo = Nothing Set objUser = Nothing