Here's some code for you to try. It uses external Windows objects to run an uninstall of a fictional application (My Application) in VBScript:

strComputer = ''.''
Set objWMIService = GetObject(''winmgmts:'' _
& ''{impersonationLevel=impersonate}!\'' & strComputer & ''rootcimv2'')

Set colSoftware = objWMIService.ExecQuery _
(''Select * from Win32_Product Where Name = 'My Application''')

For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next