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

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

set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\MicrosoftDNS")
set objItem = objWMIService.Get("MicrosoftDNS_NSType")
errResult = objItem.CreateInstanceFromPropertyData _
    (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, strNSHost)
