グループの追加

Option Explicit

Dim strHostName, strGroupName, strPassword
Dim objDomain, objGroup

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

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

objGroup.SetInfo

MsgBox "グループを登録しました"