Add/Remove programs uninstall remotely via vbscript?

[Ross1811]

Hello everyone,

I am looking for a way to uninstall some programs from the "Add/Remove" control component within windows xp. Is there anyway to automate this so I could uninstall something remotely?


Thanks,
Ross

 

[RobSzar]

There are several ways, you can use WMI

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSoftware = objWMIService.ExecQuery _
    ("Select * from Win32_Product Where Name = 'Personnel database'")

For Each objSoftware in colSoftware
    objSoftware.Uninstall()
Next