# Kod ponownie uruchamia usug Serwer DNS na okrelonym komputerze

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

# ------ KONFIGURACJA SKRYPTU ------
$strServer = '<NazwaSerwera>'; # np. dns1.rallencorp.com
# ------ KONIEC KONFIGURACJI ---------

$objDNS = Win32::OLE->GetObject('winMgmts:\\\\' . $strServer . '\\root\\MicrosoftDNS');
$objDNSServer = $objDNS->Get('MicrosoftDNS_Server.Name="."');

$objDNSServer->StopService();
if (Win32::OLE->LastError()) {
    print 'Metoda StopService zwrcia bd: ' . ('' . Win32::OLE->LastError()), "\n";
    exit 0;
}

$objDNSServer->StartService();
if (Win32::OLE->LastError()) {
    print 'Metoda StartService zwrcia bd: ' . ('' . Win32::OLE->LastError()), "\n";
    exit 0;
}

print "Ponowne uruchomienie usugi zakoczyo si powodzeniem.\n";
