Partilhar via


Método Session.Create

Cria uma nova instância de um recurso e retorna a EPR (referência de ponto de extremidade) do novo objeto.

Sintaxe

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

Parâmetros

resourceUri [in]

Identificador do recurso a ser criado.

Esse parâmetro pode conter um dos seguintes:

recurso

O XML que contém o conteúdo do recurso.

sinalizadores [in, opcional]

Reservado. Deve ser definido como 0.

Valor retornado

A EPR do novo recurso.

Comentários

Session.Create é usado apenas para criar novas instâncias de um recurso. Use o método Session.Put para atualizar instâncias existentes de um recurso. Depois de obter o novo URI de recurso, você pode chamar Session.Get para recuperar o novo objeto. O novo objeto contém todas as propriedades que o provedor de recursos atribui ao criar o novo objeto. Por exemplo, se você criar um novo ouvinte de protocolo WS-Management e recuperar o objeto ouvinte usando Session.Get, também obterá as propriedades Port, Enabled e ListeningOn .

Lembre-se de que o plug-in WMI não dá suporte à criação de nenhum recurso que não seja um ouvinte de protocolo WS-Management.

A sintaxe a seguir é usada para chamar esse método.

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

Exemplos

O exemplo de código VBScript a seguir chama Session.Create para criar um ouvinte no computador 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 Valor
Cliente mínimo com suporte
Windows Vista
Servidor mínimo com suporte
Windows Server 2008
Cabeçalho
WSManDisp.h
IDL
WSManDisp.idl
Biblioteca
WSManDisp.tlb
DLL
WSMAuto.dll

Confira também

Session

Protocolo WS-Management