' Kod definiuje dla okrelonej grupy jej zakres i typ.
' Tworzona jest uniwersalna grupa zabezpiecze.
' ------ KONFIGURACJA SKRYPTU ------
strGroupDN = "<NazwaWyrniajcaGrupy>"  ' np. cn=SalesGroup,ou=Groups,dc=rallencorp,dc=com
' ------ KONIEC KONFIGURACJI ---------

' Stae pobrane ze zbioru wyliczeniowego ADS_GROUP_TYPE_ENUM
ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = 1
ADS_GROUP_TYPE_GLOBAL_GROUP       = 2
ADS_GROUP_TYPE_LOCAL_GROUP        = 4
ADS_GROUP_TYPE_SECURITY_ENABLED   = -2147483648
ADS_GROUP_TYPE_UNIVERSAL_GROUP    = 8

set objGroup = GetObject("LDAP://" & strGroupDN )
objGroup.Put "groupType", ADS_GROUP_TYPE_UNIVERSAL_GROUP _
                       Or ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo
