ユーザーをグループへ追加

Option Explicit

Dim strHostName, strUserName, strGroup
Dim objDomain, objGroup

strHostName = "XXXXX"  '←ホスト名(コンピュータ名)を環境に合わせて設定して下さい
strUserName = "TestUser"
strGroup= "TestGroup"

Set objDomain = GetObject("WinNT://" & strHostName)
Set objGroup = objDomain.GetObject("group", strGroup)

objGroup.Add ("WinNT://" & strHostName & "/" & strUserName)

MsgBox "ユーザーをグループへ追加しました"