VBScript para desinstalar não encontrar nada

Question

Eu comecei a usar um script de desinstalação padrão, e não estava funcionando, então decidi ver se era mesmo encontrar algum programa, e parece que não é. Ele funciona no Windows 7, mas não no outro servidor do Windows 2003, eu preciso usá-lo. Estou logado como Admnistrator local,

O script abaixo criou o erro:

Line: 4
Char: 1
Error: 0x80041010
Code: 80041010
Source: (null)

Código:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
For Each objSoftware in colSoftware
    MsgBox("hi")
Next

    

Answer 1

O código de erro que você vê é "Classe inválida". Server 2003 não inclui o provedor MSI para WMI por padrão.

De Disponibilidade do sistema operacional de componentes WMI :

Windows Server 2003: The Windows Installer provider—also known as the MSI provider—is included on the CD as an optional Windows component that you can install using Control Panel. Optional installation of the Windows Installer provider ensures backward compatibility with the Windows XP and Windows 2000 feature sets.

Você precisará instalar a partir de

• "Adicionar remover componentes do Windows"
  • "Ferramentas de gerenciamento e monitoramento"
    • "Provedor do WMI Windows Installer"