# Kod zmienia poziom funkcjonalny okrelonej domeny 
# na poziom funkcjonalny domeny systemu Windows Server 2003.

# ------ KONFIGURACJA SKRYPTU ------
my $strDomain = "<NazwaDNSDomeny>";   # np. amer.rallencorp.com
# ------ KONIEC KONFIGURACJI ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objDomain = Win32::OLE->GetObject("LDAP://$strDomain");
$objDomain->GetInfo;
if ($objDomain->Get("msDS-Behavior-Version") != 2) {
   print "Zmiana poziomu funkcjonalnego domeny na zgodny z systemem Windows Server 2003...\n";
   $objDomain->Put("msDS-Behavior-Version", 2);
   $objDomain->SetInfo;
}
else {
   print "Dla domeny ustawiono ju poziom funkcjonalny systemu Windows Server 2003.\n";
}