Метод Session.Put
Обновление ресурса.
Session.Put( _
ByVal resourceUri, _
ByVal resource, _
[ ByVal flags ] _
)
-
resourceUri [in]
-
Идентификатор обновляемого ресурса.
Этот параметр может содержать один из элементов, содержащихся в следующем списке:
URI с селекторами или без нее. При вызове метода Put для получения ресурса WMI используйте свойство ключа или свойства объекта . Например, в следующем примере кода Visual Basic Scripting Edition (VBScript) ключ указывается с помощью
Win32_Service?Name=winmgmt
.strResourceUri = "http://schemas.microsoft.com/" & _ "wbem/wsman/1/wmi/root/cimv2/Win32_Service?Name=winmgmt"
Объект ResourceLocator, который может содержать селекторы, фрагменты или параметры.
Справочник по конечной точке WS-Addressing, как описано в стандарте протокола WS-Management. Дополнительные сведения об общедоступной спецификации для протокола WS-Management см. на странице индекса спецификаций управления.
-
ресурс [в]
-
Обновленное содержимое ресурса.
-
flags [in, optional]
-
Зарезервировано. Должен иметь значение 0.
XML-код, содержащий обновленное содержимое ресурса.
В следующем примере кода VBScript данные записываются в объект Win32_WMISetting . Необходимо включить все свойства объекта, не относящиеся к массиву, в XML параметра Resource . Порядок свойств не имеет значения.
'Create a WSMan object.
Set objWsman = CreateObject( "WSMAN.Automation" )
If objWsman is Nothing Then
WScript.Echo "Failed to create WSMAN Automation object"
WScript.Quit
End If
'Create a Session object.
Set objSession = objWsman.CreateSession
If objSession is Nothing Then
WScript.Echo "Failed to create WSMAN Session object"
WScript.Quit
End If
'Change the property value by putting
'the new XML content into the resource.
Dim strResourceUri, strReturnedResourceUri, newXmlContent
strResourceUri = "http://schemas.microsoft.com/wbem/wsman/1/" _
& "wmi/root/cimv2/Win32_WMISetting"
newXmlContent = _
"<p:Win32_WMISetting xmlns:p=""http://schemas.microsoft.com/" & _
"wbem/wsman/1/wmi/root/cimv2/Win32_WMISetting"">" & _
"<p:LoggingLevel>2</p:LoggingLevel></p:Win32_WMISetting>"
On Error Resume Next
strReturnedResourceUri = objSession.Put(reourceUri, newXmlContent)
WScript.Echo "Returned resource Uri:" & Chr(10) & _
strReturnedResourceUri
If Err.Number <> 0 Then
DisplayErrorInfo
End If
On Error Goto 0
Sub DisplayErrorInfo()
WScript.Echo "An error has occurred."
WScript.Echo
WScript.Echo "Error Info"
WScript.Echo "-----------"
WScript.Echo "Number : 0x" & hex(Err.number)
WScript.Echo "Description : " & Err.Description
WScript.Echo "Source : " & Err.Source
WScript.Echo "HelpFile : " & Err.helpfile
WScript.Echo "HelpContext : " & Err.HelpContext
WScript.Echo Err.Clear
End Sub
Требование | Значение |
---|---|
Минимальная версия клиента |
Windows Vista |
Минимальная версия сервера |
Windows Server 2008 |
Заголовок |
|
IDL |
|
Библиотека |
|
DLL |
|