' Kod zmienia poziom funkcjonalny okrelonej domeny 
' na poziom funkcjonalny domeny systemu Windows Server 2003.
' ------ KONFIGURACJA SKRYPTU ------
strDomain = "<NazwaDNSDomeny>"   ' np. amer.rallencorp.com
' ------ KONIEC KONFIGURACJI ---------

set objDomain = GetObject("LDAP://" & strDomain)
objDomain.GetInfo
if objDomain.Get("msDS-Behavior-Version") <> 2 then
   Wscript.Echo "Zmiana poziomu funkcjonalnego domeny na zgodny z systemem Windows Server 2003..."
   objDomain.Put "msDS-Behavior-Version", 2
   objDomain.SetInfo
else
   Wscript.Echo "Dla domeny ustawiono ju poziom funkcjonalny systemu Windows Server 2003."
end if
