Session.Get 方法
检索 URI 指定的资源,并返回资源的当前实例的 XML 表示形式。
语法
Session.Get( _
ByVal resourceUri, _
[ ByVal flags ] _
)
参数
-
resourceUri [in]
-
要检索的资源的标识符。
此参数可以包含以下项之一:
带或不带 选择器的 URI。 使用选择器调用 Get 方法以获取 WMI 资源时,请使用 对象的键属性。 例如,在以下 Visual Basic Scripting Edition (VBScript) 代码示例中,键由
Win32_Service?Name=winmgmt
指定。 对于单一实例类(如 Win32_LocalTime),不能使用选择器。strResourceUri = "http://schemas.microsoft.com/" _ & "wbem/wsman/1/wmi/root/cimv2/Win32_Service?Name=winmgmt" strResourceUri = "http://schemas.microsoft.com/" _ & "wbem/wsman/1/wmi/root/cimv2/Win32_LocalTime"
一个 ResourceLocator 对象,可能包含选择器、片段或选项。
WS 寻址终结点引用,如WS-Management协议标准中所述。 有关 WS-Management 协议的公共规范的详细信息,请参阅 管理规范索引页。
-
flags [in, optional]
-
保留。 必须设置为 0。
返回值
资源的 XML 表示形式。
示例
以下 VBScript 代码示例检索表示本地计算机上的 WMI Winmgmt 服务的 Win32_Service 实例的 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
strResourceUri = "http://schemas.microsoft.com/" _
& "wbem/wsman/1/wmi/root/cimv2/Win32_Service?Name=winmgmt"
On Error Resume Next
xmlResource = objSession.Get( strResourceUri )
WScript.Echo "Response message: " & Chr(10) & xmlResource
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
以下 VBScript 代码示例从远程计算机检索 WMI Winmgmt 服务实例。 远程计算机由完全限定的域名 (servername.domain.com) 标识。 本地版本和远程版本之间的唯一区别是调用 WSMan.CreateSession 时远程计算机的规范。
Const RemoteComputer = "servername.domain.com"
'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.
Dim objSession
Set objSession = objWsman.CreateSession( "https://" & RemoteComputer )
If objSession is Nothing Then
WScript.Echo "Failed to create WSMAN Session object"
WScript.Quit
End If
strResourceUri = "http://schemas.microsoft.com/wbem/wsman/1/wmi/root/cimv2/" _
& "Win32_Service?Name=winmgmt"
On Error Resume Next
xmlResource = objSession.Get( strResourceUri )
WScript.Echo "Response message: " & Chr(10) & xmlResource
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 |
|