' Kod tworzy globaln grup zabezpiecze
' ------ KONFIGURACJA SKRYPTU ------
strGroupParentDN = "<NazwaWyrniajcaObiektuNadrzdnegoGrupy>"  ' np. 
                                                                                                                          ' ou=Groups,dc=rallencorp,dc=com
strGroupName     = "<NazwaGrupy>"      ' np. AdministratorzyDzialuSprzedazy
strGroupDescr    = "<OpisGrupy>"      ' np. Administratorzy obsugujcy dzia sprzeday
' ------ KONIEC KONFIGURACJI ---------
' Stae pobrane ze zbioru wyliczeniowego ADS_GROUP_TYPE_ENUM
Const ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = 4
Const ADS_GROUP_TYPE_GLOBAL_GROUP       = 2
Const ADS_GROUP_TYPE_LOCAL_GROUP        = 4
Const ADS_GROUP_TYPE_SECURITY_ENABLED   = -2147483648
Const ADS_GROUP_TYPE_UNIVERSAL_GROUP    = 8

set objOU = GetObject("LDAP://" & strGroupParentDN)
set objGroup = objDomain.Create("group","cn=" & strGroupName)
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP _
                         Or ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.Put "description", strGroupDescr
objGroup.SetInfo
