' Kod zwalnia wszystkie adresy IP pobrane z serwera DHCP
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objAdapterConfig = objWMI.Get("Win32_NetworkAdapterConfiguration")
intRC = objAdapterConfig.ReleaseDHCPLeaseAll()
if intRC = 0 then
   WScript.Echo "Zwolniono wszystkie adresy IP pobrane z serwera DHCP."
elseif intRC = 1 then
   WScript.Echo "Aby zwolni wszystkie adresy IP pobrane z serwera DHCP, trzeba przeadowa system."
else
   WScript.Echo "Podczas zwalniania wszystkich adresw IP pobranych z serwera DHCP wystpi bd: " & intRC
end if
