Método Session.Put
Atualiza um recurso.
Session.Put( _
ByVal resourceUri, _
ByVal resource, _
[ ByVal flags ] _
)
-
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.
O XML que contém o conteúdo do recurso atualizado.
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
Requisito | Valor |
---|---|
Cliente mínimo com suporte |
Windows Vista |
Servidor mínimo com suporte |
Windows Server 2008 |
Cabeçalho |
|
IDL |
|
Biblioteca |
|
DLL |
|