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


use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU------
$strScope = '192.168.1.0';
$strReservedIP = '192.168.1.6';
$strMAC = '000102C8B474';
$strClientName = 'helion-wxp';
$strClientComment = 'Laptop szefa';
$strServer = ''; # pozostaw puste jeeli konfigurujesz lokaln maszyn
# ------ KONIEC KONFIGURACJI ---------

$strCommand = 'netsh dhcp server ' . $strServer . ' scope ' . $strScope . ' add reservedip ' . $strReservedIP . ' ' . $strMAC . ' ' . $strClientName . ' "' . $strClientComment . '"';
# komenda: netsh dhcp server \\<ServerName> scope <ScopeID> add reservedip <ReservedIP> <MAC_Address> <ClientName> <ClientComment> 

print "Uruchamiam komend: $strCommand\n";
print "\n";
$objShell = Win32::OLE->new('Wscript.Shell');
$objProc = $objShell->Exec($strCommand);

do {
    sleep 1;
} until ($objProc->Status != 0);

if ($objProc->ExitCode != 0) {
    print 'KOD WYJCIA: ' . $objProc->ExitCode, "\n";
    print 'BD: ' . $objProc->StdErr->ReadAll, "\n";
}

print 'WYNIK: ' . $objProc->StdOut->ReadAll, "\n";
