Const ADS_GROUP_TYPE_GLOBAL_GROUP           = &h00000002
Const ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP     = &h00000004
Const ADS_GROUP_TYPE_LOCAL_GROUP            = &h00000004
Const ADS_GROUP_TYPE_UNIVERSAL_GROUP        = &h00000008
Const ADS_GROUP_TYPE_SECURITY_ENABLED       = &h80000000

strGroupName="Sales Users"
strGroupSAM="SalesUsers"

set objdomain=GetObject("LDAP://OU=Staff,DC=MyDomain,DC=local")
set objGroup=objDomain.Create("Group","CN=" & strGroupName)
objGroup.put "sAMAccountName",strGroupSAM
objGroup.put "GroupType",ADS_GROUP_TYPE_GLOBAL_GROUP Or _
ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo