' CreateLocalGroup_NT4.vbs - Create an NT Local Group
' 1999-01-10 stephen.campbell@marchview.com

option explicit

dim sDomain       ' Domain
dim sServer       ' Server
dim sGroup        ' New Group
dim sDescription  ' Group's Description
dim oServer       ' Server
dim oGroup
dim aMembers      ' Global groups/users this local group should contain
dim sMember       ' 

sDomain="MARCH"
sServer="SABER"
sGroup="AtlantaShares"
sDescription="Access to Atlanta Sharename"
aMembers=array("AtlantaUsers","FredGreen")  ' Groups this group should contain

set oServer = GetObject("WinNT://" + sDomain + "/" + sServer + ",computer")
set oGroup = oServer.Create("group",sGroup)
oGroup.Description = sDescription
oGroup.SetInfo

WScript.echo "Created local group " + sGroup 

' Now add the members to this group
for each sMember in aMembers
  oGroup.add("WinNT://" + sDomain + "/" + sMember)
  WScript.echo "Added " + sMember + " to group " + sGroup
next

WScript.quit