VBSでどのグループに属しているか表示する@ActiveDirectory
VBSでスクリプトを実行したユーザがどのグループに属しているか表示させます。
今月のHey, Scripting Guy!のスクリプトがActiveDirectoryに便利そうだったんでこれに多少変更を加えただけですけども。
Option ExplicitDim objDictionary,objNetwork,objADSysInfo
Dim strUser,objUser,strGroup,objGroup,strGroupName
Dim strGroupNo,strGroupNameMsgSet objDictionary = CreateObject("Scripting.Dictionary")
Set objNetwork = CreateObject("Wscript.Network")Set objADSysInfo = CreateObject("ADSystemInfo")
strUser = objADSysInfo.UserNameSet 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
Nextmsgbox strGroupNameMsg
Set objDictionary = Nothing
Set objNetwork = Nothing
Set objADSysInfo = Nothing
Set objUser = Nothing
Popularity: 3%
トラックバック URI : http://pnpk.net/cms/archives/338/trackback/
【関連記事】
