Тема: VBS: Добавить запись в DNS
Граждане, помогите написать код, добавляющий A-запись в днс?
Интернет облазил, нормальных примеров на VBS нет, только на PS.
Пока у меня так. Что делать дальше - никак не соображу.
strHostName = "test"
strZoneName = "ats.teplo.local"
strIP = "192.168.0.5"
strServer = "bte-dc-01"
strNameSpace = "root\microsoftDNS"
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer (strServer, strNameSpace)
Set objDNS = objService.Get("MicrosoftDNS_ResourceRecord")
Set objMethod = objDNS.Methods_("CreateInstanceFromTextRepresentation")
'wscript.quit
Set ObjInParam = objMethod.inParameters.SpawnInstance_()
ObjInParam.TextRepresentation = strHostName & "." & strZoneName & ". IN A " & strIP
ObjInParam.DnsServerName = strServer
ObjInParam.ContainerName = strZoneName
wscript.echo ObjInParam.DnsServerName
wscript.echo ObjInParam.ContainerName
wscript.echo ObjInParam.TextRepresentation
Set ObjRR = objDNS.ExecMethod_("CreateInstanceFromTextRepresentation", ObjInParam)
Что имеем на выходе:
bte-dc-01
ats.teplo.local
test.ats.teplo.local. IN A 192.168.0.5
C:\TEMP\ats\test.vbs(23, 1) SWbemObjectEx: Generic failure