' Kod uaktywnia lub wycza wykaz globalny dla okrelonego kontrolera domeny
' ------ KONFIGURACJA SKRYPTU ------
strDC = "<NazwaKontroleraDomeny>"   ' np. dc01.rallencorp.com
strGCEnable = 1                     ' 1 = wczenie, 0 = wyczenie
' ------ KONIEC KONFIGURACJI ---------

set objRootDSE = GetObject("LDAP://" & strDC & "/RootDSE")
objNTDS = GetObject("LDAP://" & strDC & "/" &  _
                    objRootDSE.Get("dSServiceName"))
objNTDS.Put "options", strGCEnable
objNTDS.SetInfo
