# Kod tworzy na serwerze DNS rekord NS (name server)

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

$strDNSServer = '<NazwaSerwera>';
$strContainer = '<NazwaKontenera>';
$strOwner = '<NazwaWaciciela>';
$intRecordClass = 1;
$intTTL = 600;
$strNSHost = '<NazwaSerweraNazw>';
$strComputer = '.';

$objWMIService = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\MicrosoftDNS');
$objItem = $objWMIService->Get('MicrosoftDNS_NSType');
$errResult = $objItem->CreateInstanceFromPropertyData($strDNSServer, $strContainer, $strOwner, $intRecordClass, $intTTL, $strNSHost);
