VBSでどのグループに属しているか表示する@ActiveDirectory

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

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です