'-------------------------------------------------------------------------
'Script creates one local group 
'
'8/27/03 Todd Woolums (twoolums@toddwoolums.com)
'Version 1.0
'-------------------------------------------------------------------------

'Set some string variables up

Domain = "Domain" 'Sets the string varaible to the domain

strComputer = "." 'Sets target computer to local machine

'Sets the object to the local machine
'Creates the Local Group

Set objComputer = GetObject("WinNT://" & strComputer & ",computer") 
Set objGroupAdd = objComputer.Create("group", "Your Group Name") 
objGroupAdd.SetInfo

'Adds to the local group

Set groupQA = GetObject("WinNT://"& strComputer &"/Your Group Name")
groupAdd.Add "WinNT://"& Domain &"/User1" 
groupAdd.Add "WinNT://"& Domain &"/User2" 


MsgBox "Group has been added.", vbOKOnly + vbInformation