Método Session.Put

Artigo
06/13/2023

Atualiza um recurso.

Sintaxe

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

Parâmetros

resourceUri [in]

O identificador do recurso a ser atualizado.

Esse parâmetro pode conter um dos elementos contidos na lista a seguir:

URI com ou sem seletores. Ao chamar o método Put para obter um recurso WMI, use a propriedade key ou as propriedades do objeto . Por exemplo, no exemplo de código VBScript (Visual Basic Scripting Edition) a seguir, a chave é especificada por Win32_Service?Name=winmgmt.
```
strResourceUri = "http://schemas.microsoft.com/" & _ 
  "wbem/wsman/1/wmi/root/cimv2/Win32_Service?Name=winmgmt"
```
Objeto ResourceLocator que pode conter seletores, fragmentos ou opções.
Referência de ponto de extremidade de endereçamento WS, conforme descrito no padrão WS-Management Protocol. Para obter mais informações sobre a especificação pública do protocolo WS-Management, consulte Página de índice de especificações de gerenciamento.

recurso [in]

O conteúdo do recurso atualizado.

sinalizadores [in, opcional]

Reservado. Deve ser definido como 0.

Valor retornado

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

Exemplos

O exemplo de código VBScript a seguir grava dados no objeto Win32_WMISetting . Você deve incluir todas as propriedades não matrizes do objeto no XML do parâmetro Resource . A ordem das propriedades não é significativa.


'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 

'Change the property value by putting
'the new XML content into the resource.
Dim strResourceUri, strReturnedResourceUri, newXmlContent
strResourceUri = "http://schemas.microsoft.com/wbem/wsman/1/" _
  & "wmi/root/cimv2/Win32_WMISetting"
newXmlContent = _
  "<p:Win32_WMISetting xmlns:p=""http://schemas.microsoft.com/" & _
  "wbem/wsman/1/wmi/root/cimv2/Win32_WMISetting"">" & _
  "<p:LoggingLevel>2</p:LoggingLevel></p:Win32_WMISetting>" 

On Error Resume Next
strReturnedResourceUri = objSession.Put(reourceUri, newXmlContent)
WScript.Echo "Returned resource Uri:" & Chr(10) & _
  strReturnedResourceUri
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

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

Compartilhar via