Тема: VBScript: DNS WMI Provider
Граждане, кто-нибудь работал с этой шнягой?
https://docs.microsoft.com/en-us/window … i-provider
Что-то я читаю-читаю, и никак не разберусь. Возможно, уровень английского не позволяет.
Мне надо в цикле пройтись по записям и изменить их свойства.
Получить список записей удается:
strServer = "bte-dc-01"
strNameSpace = "root\microsoftDNS"
strDomain = "ats.teplo.local"
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer (strServer, strNameSpace)
set objDNS = objService.Get("MicrosoftDNS_Server.name="".""")
'Проверяем подключение:
ObjService.Security_.impersonationlevel = 3
If Err.Number then
Call Wscript.Echo( "Error 0x" & CStr(Hex(Err.Number)) & _
" occurred in connecting to server " _
& strServer & ".")
If Err.Description <> "" Then
Call Wscript.Echo( "Error description: " & Err.Description & "." )
End If
Err.Clear
blnConnect = True 'An error occurred
End If
'Запрос записей
Set objDNS = objService.ExecQuery("Select * from MicrosoftDNS_ResourceRecord where DomainName=""" & strDomain & """",,48)
For Each objInst in objDNS
wscript.echo objInst.TextRepresentation
Next
Код выводит в консоль список имеющихся записей. Но вот как изменить их свойства - никак не могу разобраться. По сути, мне нужно отключить вот эту опцию (см приложенную картинку). То есть, как я понимаю, надо как-то сделать get записи, изменить ее свойства и сохранить. Кто-нибудь может показать пример кода, а то я что-то голову сломал... Из примеров на docs.microsoft.com ничего не понятно, в гугле примеров практически нет. На powershell еще встречаются, а на vbs практически ничего не нашел.
Спасибо.