# From the book "Windows XP Cookbook"
# ISBN: 0596007256

# ------ SCRIPT CONFIGURATION ------

use Win32::OLE qw(in);

$strComputer = '.';
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colNAs = $objWMI->ExecQuery('select * ' . ' from Win32_NetworkAdapter ' . ' where manufacturer = \'Intel\' ');
foreach my $objNA (in $colNAs) {
    $colSubNAConfig = $objWMI->ExecQuery('ASSOCIATORS OF {Win32_NetworkAdapter.DeviceID=\'' . $objNA->DeviceID . '\'} ' . ' WHERE resultClass = win32_NetworkAdapterConfiguration ');

    foreach my $objNAConfig (in $colSubNAConfig) {
        if ($objNAConfig->DHCPEnabled == 1) {
            $intRC = $objNAConfig->RenewDHCPLease();
            if ($intRC == 0) {
                print 'Renewed IP address for ' . $objNA->Name, "\n";
            }
            elsif ($intRC == 1) {
                print 'You must reboot to renew the IP address for ' . $objNA->Name, "\n";
            }
            else {
                print 'There was an error renewing the IP address for ' . $objNA->Name . ': ' . $intRC, "\n";
            }
        }
    }
}