' ---------------------------------------------------------------
' rdo :
'      "Windows Server 2003 i Windows 2000. Receptury"
' Wydawca : HELION
' ISBN: 83-246-0063-9
' Adres: ftp://ftp.helion.pl/przyklady/ WSW2RE.zip
' ---------------------------------------------------------------


' ------ KONFIGURACJA SKRYPTU------
strFile = "c:\dhcp.txt"
strServer = "" ' pozostaw puste jeeli konfigurujesz lokaln maszyn
' ------ KONIEC KONFIGURACJI ---------

strCommand = "netsh dhcp server " & strServer & " export " & strFile & " all"
' komenda: netsh dhcp server \\<ServerName> export C:\dhcp.txt all

WScript.Echo "Uruchamiam komend: " & strCommand
WScript.Echo
set objShell = CreateObject("Wscript.Shell")
set objProc  = objShell.Exec(strCommand)

Do
   WScript.Sleep 100
Loop Until objProc.Status <> 0

if objProc.ExitCode <> 0 then
   WScript.Echo "KOD WYJCIA: " & objProc.ExitCode
   WScript.Echo "BD: " & objProc.StdErr.ReadAll
end if

WScript.Echo "WYNIK: " & objProc.StdOut.ReadAll
