# Kod zwalnia wszystkie adresy IP pobrane z serwera DHCP

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '.';
# ------ KONIEC KONFIGURACJI ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$objAdapterConfig = $objWMI->Get('Win32_NetworkAdapterConfiguration');
$intRC = $objAdapterConfig->ReleaseDHCPLeaseAll();
if ($intRC == 0) {
    print "Zwolniono wszystkie adresy IP pobrane z serwera DHCP.\n";
}
elsif ($intRC == 1) {
    print "Aby zwolni wszystkie adresy IP pobrane z serwera DHCP, trzeba przeadowa system.\n";
}
else {
    print 'Podczas zwalniania wszystkich adresw IP pobranych z serwera DHCP wystpi bd: ' . $intRC, "\n";
}
