Exemplos de como utilizar scripts do WMI para fazer alterações para os pacotes do Windows Installer

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 305702
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
WMI (Instrumentação de gerenciamento de janela) oferece suporte a uma interface de script que você pode usar para fazer alterações em pacotes de software que estão instaladas usando o Windows Installer. Este artigo contém exemplos que mostram a você como usar o Microsoft Visual Basic Script (VBScript) para criar WMI scripts para instalar, remover e recuperar informações sobre o Windows Installer pacotes.

Mais Informações
Os exemplos de VBScript neste artigo usam a classe WMI Win32_Product . A classe Win32_Product oferece suporte as propriedades a seguir, conforme mostrado no exemplo 1: enumerar instalado pacotes do Windows Installer:
Legenda
Descrição
IdentifyingNumber
InstallDate
InstallLocation
InstallState
Nome
PackageCache
SKUNumber
Fornecedor
Versão

A classe Win32_Product também oferece suporte aos seguintes métodos (como mostrado exemplo 2: instalar um pacote do Windows Installer e exemplo 3: remover um instalado pacote do Windows Installer):
Instalar
Admin
Anunciar
Reinstalar
Atualizar
Configurar
Desinstalar

Exemplo 1: Enumerar pacotes instalados do Windows Installer

Este exemplo gera uma lista de todos os pacotes do Windows Installer instalada no computador. Este exemplo neste artigo usa a propriedade Name , no entanto, você pode modificar o script para usar qualquer propriedade que é suportada pelo Win32_Product .
	'set  computer name - replace variable with appropriate value	Computer = "<ComputerName>"	'obtain collection of Windows Installer packages	Set MSIapps = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer &_ 	"\root\cimv2").ExecQuery("select * from Win32_Product")	'obtain number of program in collection	AppList = AppList & MSIapps.Count & " MSI packages installed:" & VBCRLF & "------" & VBCRLF	'enumerate the names of the packages in the collection	For each App in MSIapps		AppList = AppList & App.Name & VBCRLF	Next	'display list of packages	Wscript.Echo AppList				

Exemplo 2: Instalar um pacote do Windows Installer

Este exemplo instala um pacote do Windows Installer no computador. Como o processo de instalação é transparente para o usuário, talvez não seja adequada em situações onde o usuário deve fornecer informações ou configurar as opções durante a instalação.
	'set variables	Computer = "<ComputerName>"	MSIlocation = "<MSIFile>.msi" 'must be complete path of package	CmdLineOptions = NULL 'no command line options - change as appropriate	AllUsers = FALSE 'install for current user only; set to TRUE to install for all users	'bind to winmgmnt	Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")	'obtain an instance of the products object	Set WMIapp = WMI.Get("Win32_Product")	'install the program	WMIApp.Install MSIlocation, CmdLineOptions, AllUsers				

Exemplo 3: Remover um pacote de instalação Windows instalado

Este exemplo remove um pacote do Windows Installer do computador. A remoção do pacote do computador é transparente para o usuário.
	'set variables	Computer = "<ComputerName>"	AppToRemove = "<MSIApp>" 'case sensitive	'Obtain collection of Windows Installer packages with matching name	Set MSIapp = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select * from Win32_Product")	'enumerate the returned collection	'and remove the Windows Installer package	For each App in MSIapp		If App.Name = AppToRemove Then 			App.Uninstall		End If	Next				

Como usar os exemplos neste verbete

Os scripts a seguir podem ser executados no computador local ou de um computador remoto baseado no Windows 2000. Para usar qualquer um dos exemplos neste artigo, copie o código de exemplo que você deseja usar, colá-lo para o arquivo e, em seguida, salve o arquivo com uma extensão .vbs. Para fazer isso:
  1. Inicie o bloco de notas e abra um documento novo em branco.
  2. Selecione o código de exemplo que você deseja usar e, em seguida, clique em Copiar .
  3. No documento do bloco de notas, clique em Colar .
  4. Faça as modificações que você deseja usar para personalizar o script, conforme apropriado para sua situação.
  5. No menu arquivo , clique em Salvar .
  6. Na caixa de diálogo Salvar como , clique em Todos os arquivos . Na caixa Salvar como tipo , especifique um local onde deseja salvar o arquivo. O nome do arquivo , digite .vbs FileName onde FileName é o nome do arquivo.
  7. Feche o Notepad.
  8. Para executar o script, clique duas vezes no arquivo .vbs.
Observação : para executar esses scripts, você deve tem as permissões apropriadas para executar as operações são especificadas no script. Por exemplo, para usar o exemplo 2, você deve ter as permissões apropriadas que você precisa fazer logon usando uma conta de usuário que tenha as credenciais apropriadas para instalar programas.
Referências
Para obter mais informações sobre a classe Win32_Product , visite o seguinte site da Web Microsoft Developer Network (MSDN):Para obter mais informações sobre tecnologia Windows Installer, visite o seguinte site da Web Microsoft Developer Network (MSDN): Para obter mais informações sobre o WMI, visite o seguinte site da MSDN:

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 305702 - Última Revisão: 12/06/2015 04:46:11 - Revisão: 2.5

Microsoft Windows 2000 Server, Microsoft Windows 2000 Advanced Server, Microsoft Windows 2000 Professional Edition

  • kbnosurvey kbarchive kbmt kbinfo KB305702 KbMtpt
Comentários