Método SWbemPrivilegeSet.AddAsString

Artigo
07/03/2023

Você pode usar o método AddAsString do objeto SWbemPrivilegeSet para adicionar um privilégio a uma coleção SWbemPrivilegeSet usando uma cadeia de caracteres de privilégio. Use este método para adicionar um privilégio ou habilitar um privilégio para objetos SWbemSecurity. Consulte Executar operações privilegiadas usando VBScript.

Para conferir uma explicação dessa sintaxe, consulte Convenções de documentação para API de script.

Sintaxe

objPrivilege = .AddAsString( _
  ByVal strPrivilege, _
  [ ByVal bIsEnabled ] _
)

Parâmetros

strPrivilege: Obrigatórios. Uma das cadeias de caracteres de privilégio. Para obter uma lista completa dessas cadeias de caracteres e as constantes associadas do WMI, consulte Constantes de privilégio. Cada cadeia de caracteres de privilégio representa um privilégio específico. Por exemplo, para adicionar o privilégio que usa para desligar um sistema de computador, use a cadeia de caracteres SeShutdownPrivilege.
bIsEnabled [opcional]: Valor booliano que habilita ou desabilita esse privilégio. O valor padrão é True.

Retornar valor

Se tiver êxito, este método retornará um objeto SWbemPrivilege que representa o novo privilégio. Caso contrário, um objeto nulo será retornado.

Códigos do Erro

Após a conclusão do método AddAsString, o objeto Err pode conter o código de erro na lista a seguir.

wbemErrFailed - 2147749889 (0x80041001): Erro não especificado.

Exemplos

O exemplo de código VBScript a seguir cria uma nova porta para um servidor de impressão usando Win32_TCPIPPrinterPort. SeLoadDriverPrivilege é necessário para esta operação. Consulte Executar operações privilegiadas.

Set objWMIService = GetObject("Winmgmts:")
objWMIService.Security_.Privileges. _
    AddAsString "SeLoadDriverPrivilege", True
Set objNewPort = objWMIService.Get _
    ("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_111.222.111.11"
objNewPort.Protocol = 1
objNewPort.HostAddress = "111.222.111.11"
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = False
objNewPort.Put_

Um exemplo de código que usa esse método também é descrito no tópico SWbemPrivilegeSet.

Requisitos

Requisito	Valor
Cliente mínimo com suporte	Windows Vista
Servidor mínimo com suporte	Windows Server 2008
Cabeçalho	Wbemdisp.h
Biblioteca de tipos	Wbemdisp.tlb
DLL	Wbemdisp.dll
CLSID	CLSID_SWbemPrivilegeSet
IID	IID_ISWbemPrivilegeSet

Confira também

SWbemPrivilegeSet
SWbemPrivilegeSet.Add
SWbemPrivilegeSet.Remove
WbemPrivilegeEnum
Constantes de privilégio
Executar operações privilegiadas
Executar operações privilegiadas usando VBScript

Share via