# Kod zmienia poziom funkcjonalny lasu, gdzie znajduje si
# komputer z systemem Windows Server 2003, na ktrym zalogowa si
# uytkownik wykonujcy skrypt.

use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objRootDSE = Win32::OLE->GetObject("LDAP://RootDSE");
my $objDomain = Win32::OLE->GetObject("LDAP://cn=partitions," .
                           $objRootDSE->Get("configurationNamingContext") );
if ($objDomain->Get("msDS-Behavior-Version") != 2) {
   print "Prba zmiany poziomu funkcjonalnego na zgodny z systemem Windows Server 2003...\n";
   $objDomain->Put("msDS-Behavior-Version", 2);
   $objDomain->SetInfo;
}
else {
   print "Dla lasu ustawiono ju poziom funkcjonalny systemu Windows Server 2003.\n";
}
