Método Session.Create

Crea una nueva instancia de un recurso y devuelve la referencia de punto de conexión (EPR) del nuevo objeto.

Sintaxis

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

Parámetros

resourceUri [in]

Identificador del recurso que se va a crear.

Este parámetro puede contener una de las siguientes opciones:

resource

Xml que contiene contenido de recursos.

flags [in, optional]

Reservado. Se debe establecer en 0.

Valor devuelto

EpR del nuevo recurso.

Observaciones

Session.Create solo se usa para crear nuevas instancias de un recurso. Use el método Session.Put para actualizar las instancias existentes de un recurso. Después de obtener el nuevo URI de recurso, puede llamar a Session.Get para recuperar el nuevo objeto. El nuevo objeto contiene las propiedades que el proveedor de recursos asigna al crear el nuevo objeto. Por ejemplo, si crea un nuevo agente de escucha de protocolo WS-Management y recupera el objeto de escucha mediante Session.Get, también obtiene las propiedades Port, Enabled y ListeningOn .

Tenga en cuenta que el complemento WMI no admite la creación de ningún recurso que no sea un agente de escucha de protocolo de WS-Management.

La sintaxis siguiente se usa para llamar a este método.

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

Ejemplos

En el siguiente ejemplo de código de VBScript se llama a Session.Create para crear un agente de escucha en el equipo local.

'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

Requisitos

Requisito Value
Cliente mínimo compatible
Windows Vista
Servidor mínimo compatible
Windows Server 2008
Encabezado
WSManDisp.h
IDL
WSManDisp.idl
Biblioteca
WSManDisp.tlb
Archivo DLL
WSMAuto.dll

Consulte también

Sesión

Protocolo WS-Management