# Kod definiuje dla okrelonej grupy jej zakres i typ.
# Tworzona jest uniwersalna grupa zabezpiecze.

# ------ KONFIGURACJA SKRYPTU ------
my $strGroupDN = "<NazwaWyrniajcaGrupy>";  # np. cn=SalesGroup,ou=Groups,dc=rallencorp,dc=com
# ------ KONIEC KONFIGURACJI ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
# Stae pobrane ze zbioru wyliczeniowego ADS_GROUP_TYPE_ENUM
my $ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = 4;
my $ADS_GROUP_TYPE_GLOBAL_GROUP       = 2;
my $ADS_GROUP_TYPE_LOCAL_GROUP        = 4;
my $ADS_GROUP_TYPE_SECURITY_ENABLED   = -2147483648;
my $ADS_GROUP_TYPE_UNIVERSAL_GROUP    = 8;

my $objGroup = Win32::OLE->GetObject("LDAP://" . $strGroupDN );
$objGroup->Put("groupType", $ADS_GROUP_TYPE_UNIVERSAL_GROUP | $ADS_GROUP_TYPE_SECURITY_ENABLED);
$objGroup->SetInfo;
