Create a global security group.
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2 Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000 Set objOU = GetObject("LDAP://cn=users,dc=wisesoft,dc=co,dc=uk") Set objGroup = objOU.Create("Group", "cn=MyGlobalSecurityGroup1") objGroup.Put "sAMAccountName", "MyGlobalSecurityGroup1" objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or _ ADS_GROUP_TYPE_SECURITY_ENABLED objGroup.SetInfo