Но все-таки я выскажусь.Вот рабочий код. Все переменные раскрыты, чтобы было максимально наглядно.
strServer = "bte-dc-01"
Set objWMIService = GetObject("winmgmts:\\" & strServer & "\root\MicrosoftDNS")
' Obtain an instance of the the class
' using a key property value.
Set objShare = objWMIService.Get("MicrosoftDNS_AType.ContainerName='teplo.local',DnsServerName='BTE-DC-01.teplo.local',DomainName='ats.teplo.local',OwnerName='1046.ats.teplo.local',RecordClass='1',RecordData='10.32.99.81'")
' Obtain an InParameters object specific
' to the method.
Set objInParam = objShare.Methods_("CreateInstanceFromTextRepresentation"). _
inParameters.SpawnInstance_()
' Add the input parameters.
objInParam.Properties_.Item("ContainerName") = "teplo.local"
objInParam.Properties_.Item("DnsServerName") = "BTE-DC-01.teplo.local"
objInParam.Properties_.Item("TextRepresentation") = "1046.ats.teplo.local IN A 10.32.99.81"
' Execute the method and obtain the return status.
' The OutParameters object in objOutParams
' is created by the provider.
Set objOutParams = objWMIService.ExecMethod("MicrosoftDNS_AType.ContainerName='teplo.local',DnsServerName='BTE-DC-01.teplo.local',DomainName='ats.teplo.local',OwnerName='1046.ats.teplo.local',RecordClass='1',RecordData='10.32.99.81'", "CreateInstanceFromTextRepresentation", objInParam)
' List OutParams
'Wscript.Echo "Out Parameters: "
'Wscript.echo "RR: " & objOutParams.RR
То есть он работает, все хорошо. Но сам код!
Сначала мы делаем objWMIService.Get, где указываем все эти свойства записи, типа ContainerName, DnsServerName и всякое прочее. Хорошо. Захватили объект, теперь будем применять к нему методы. И что? Создаем еще один объект objInParam, который по сути является списком входных параметров, все тех же .Item("ContainerName") и прочее. Мы же это уже все указали, зачем снова все повторять?
Но и это еще не все. Теперь мы создаем выходной объект, который возвращается методом .ExecMethod и тут вообще феерично. Сначала мы опять как зайцы на барабане вдалбливаем уже два раза указанные данные в виде строки, потом указываем собственно метод, который хотим Exec, и через запятую еще раз указываем все те же данные, уже в виде objInParam.
Что за логика? Кто писал этот фреймворк?
Нет, правда... Или это я дебил и ничего не понимаю в программировании? Ладно бы это был метод, который может изменять разные свойства объекта. Тогда мы в get указываем данные, которые сейчас, а в objOutParams - данные, которые должны примениться в результате действия метода. Но нет же. Единственное назначение этого метода - очищать поле TextRepresentation.
Description:
This method parses the resource record in the TextRepresentation string, and along with the input DNS server
and Container names, defines and instantiates a ResourceRecord object. The method returns a reference to
the new object as an output parameter.
