Session.Put 方法

更新资源。

语法

Session.Put( _
  ByVal resourceUri, _
  ByVal resource, _
  [ ByVal flags ] _
)

parameters

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 管理协议 标准中所述。 有关WS-Management协议的公共规范的详细信息，请参阅 管理规范索引页。

resource [in]

更新的资源内容。

flags [in， optional]

保留。 必须设置为 0。

返回值

包含更新的资源内容的 XML。

示例

以下 VBScript 代码示例将数据写入 Win32_WMISetting 对象。 必须在 Resource 参数的 XML 中包含对象的所有非数组属性。 属性的顺序并不重要。

'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
标头	WSManDisp.h
IDL	WSManDisp.idl
库	WSManDisp.tlb
DLL	WSMAuto.dll

另请参阅

会话