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


Метод Session.Create

Создает новый экземпляр ресурса и возвращает ссылку на конечную точку (EPR) нового объекта.

Синтаксис

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

Параметры

resourceUri [in]

Идентификатор создаваемого ресурса.

Этот параметр может содержать одно из следующих значений:

resource

XML-код, содержащий содержимое ресурса.

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

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

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

EPR нового ресурса.

Комментарии

Session.Create используется только для создания новых экземпляров ресурса. Используйте метод Session.Put для обновления существующих экземпляров ресурса. После получения нового URI ресурса можно вызвать Session.Get , чтобы получить новый объект. Новый объект содержит все свойства, которые поставщик ресурсов назначает при создании нового объекта. Например, если создать новый прослушиватель протокола WS-Management и получить объект прослушивателя с помощью Session.Get, вы также получите свойства Port, Enabled и ListeningOn .

Имейте в виду, что подключаемый модуль WMI не поддерживает создание ресурсов, отличных от прослушивателя протокола WS-Management.

Для вызова этого метода используется следующий синтаксис.

uri = session.Create("<resourceUri>", "<resource>")

Примеры

В следующем примере кода VBScript вызывается метод Session.Create для создания прослушивателя на локальном компьютере.

'Create a WSMan object
Set oWsman = CreateObject( "WSMAN.Automation" )

'Create a Session object
Set oSession = oWsman.CreateSession

'Define resourceUri and inputXml 
resourceUri = "http://schemas.microsoft.com/wbem/wsman/1/"_
    & "config/Listener?Address=*+Transport=HTTP"

inputXml = _
    "<cfg:Listener xmlns:cfg=""https://schemas.dmtf.org/wbem/wsman/1/"_
    & "config/Listener.xsd"">" _
    & "<cfg:Hostname>" & GetFQDNName() & "</cfg:Hostname>" _            
    & "</cfg:Listener>"

'Perform the create operation.
response = oSession.Create( resourceUri, inputXml )
WScript.Echo "Response message: " & Chr(10) & response

Function GetFQDNName()
    Dim oShell, userDNSDomain, localComputerName
    Set oShell = CreateObject("WScript.Shell")
    userDNSDomain = oShell.ExpandEnvironmentStrings("%USERDNSDOMAIN%")

    localComputerName = _
        oShell.ExpandEnvironmentStrings("%ComputerName%")
    If userDNSDomain = "%USERDNSDOMAIN%" Then
        GetFQDNName= localComputerName
    Else
        GetFQDNName= localComputerName & "." & userDNSDomain
    End If
End Function

Требования

Требование Значение
Минимальная версия клиента
Windows Vista
Минимальная версия сервера
Windows Server 2008
Заголовок
WSManDisp.h
IDL
WSManDisp.idl
Библиотека
WSManDisp.tlb
DLL
WSMAuto.dll

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

Сеанс

Протокол WS-Management