Метод Session.Get

Статья
06/13/2023

Извлекает ресурс, указанный в 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-Addressing , как описано в стандарте протокола WS-Management. Дополнительные сведения об общедоступной спецификации протокола WS-Management См. на странице индекса спецификаций управления.

flags [in, необязательный]

Зарезервировано. Должен иметь значение 0.

Возвращаемое значение

XML-представление ресурса.

Примеры

В следующем примере кода VBScript извлекается XML-представление экземпляра Win32_Service , представляющего службу WMI Winmgmt на локальном компьютере.


'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
Заголовок	WSManDisp.h
IDL	WSManDisp.idl
Библиотека	WSManDisp.tlb
DLL	WSMAuto.dll

См. также раздел

Сеанс

Поделиться через