on error resume next
Dim objDNS, objRR, objDNSServer
' ------ SCRIPT CONFIGURATION ------
strForwardDomain = "xerox.local"
dnsServer = "bplpcsmnps1.xerox.local"
strComputer = "."
Set objDNS = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDNS")
set objRR = objDNS.Get("MicrosoftDNS_ResourceRecord")
set objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name="".""")
' ------ END CONFIGURATION ---------
Const ForReading = 1
strCurrentDir = Left(WScript.ScriptFullName,InstrRev(WScript.ScriptFullName,"\"))
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("om.txt", ForReading)
strServers = objTextFile.ReadAll
objTextFile.Close
arrComputers = Split(strServers, vbCrLf)
for each strComputer in arrComputers
arrPTRInfo = Split(strComputer, ",")
strHostName = arrPTRInfo(0)
arrrevIP = Split(arrPTRInfo(1), ".")
strReverseRRAdd = arrRevIP (3) & "." & arrrevIP(2) & "." & arrRevIP(1) & "." & arrRevIP(0) & ".in-addr.arpa IN PTR " & strHostName & "." & strForwardDomain
strReverseDomain = arrrevIP(2) & "." & arrRevIP(1) & "." & arrRevIP(0) & ".in-addr.arpa"
strNull = objRR.CreateInstanceFromTextRepresentation( _
objDNSServer.Name, _
strReverseDomain, _
strReverseRRAdd, _
objOutParam)
set objRR2 = objDNS.Get(objOutParam)
WScript.Echo "Created Record: " & objRR2.TextRepresentation
next