Может быть, это может помочь: Добавить ресурс DNS
РЕДАКТИРОВАТЬ: Вот VBScript фрагмент , которые могут быть полезны
var sHostName = "SomeMachine"
var strRRsufix = ". IN A 192.168.51.200"; //some ip address
var strRR= sHostName + strRRsufix;
var objDNS = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\MicrosoftDNS");
var objRR = objDNS.Get("MicrosoftDNS_ResourceRecord");
var objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name=\".\"");
objRR.CreateInstanceFromTextRepresentation(objDNSServer.Name, strDomain, strRR);