This script creates a global security group in the specified OU.

CreateGroup "OU=users,OU=students,", "students"

Sub CreateGroup(strOU, strGroup)

strGroupCN = "CN=" & strGroup

Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")

Set objOU = GetObject("LDAP://" & strOU & strDNSDomain )

Set objGroup = objOU.Create("Group",strGroupCN)
objGroup.Put "sAMAccountName", strGroup
objGroup.setInfo

End Sub