'-------------------------------------------------------------------------
'Script adds users to the Administrators 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
'Adds to the local group

Set groupAdd = GetObject("WinNT://"& strComputer &"/Administrators")
groupAdd.Add "WinNT://"& Domain &"/Domain Admins" 


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