# Kod definiuje domylne przekierowania

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

# ------ KONFIGURACJA SKRYPTU ------
$strServer = '<NazwaSerwera>'; # np. dns1.rallencorp.com
$arrForwarders = ['<IP1>', '<IP2>']; 
# ------ KONIEC KONFIGURACJI ---------

$objDNS = Win32::OLE->GetObject('winMgmts:\\\\' . $strServer . '\\root\\MicrosoftDNS');
$objDNSServer = $objDNS->Get('MicrosoftDNS_Server.Name="."');
$objDNSServer->{Forwarders} = $arrForwarders;
$objDNSServer->Put_;
print "Z powodzeniem zdefiniowano domylne przekierowania.\n";
