VBS for uninstall a Windows installer

Dear all,

Can someone please help me out with this script? I can't make it work. I am not so familiar with the vb script :(

Thanks for your help!!!!

Code:

Option Explicit 'all variables must be defined



Dim oReg, oShell, oFSO 

Dim UninstallString, ProductCode

Dim strComputer, colItems, objWMIService, objItem

Dim strKeyPath, subkey, arrSubKeys

strComputer = "." 



'********************************

'Enter Product Code Of The Application Here That You Want To Uninstall within the Bracket 

ProductCode = "{88C972E7-D7FC-40F3-9FE5-180957F37B45}"



'********************************



' Get scripting objects needed throughout script.

Set oShell = CreateObject("WScript.Shell")



'**************************

UninstallString = "MsiExec.exe /X{88C972E7-D7FC-40F3-9FE5-180957F37B45} /qn" & " /norestart"



Const HKEY_LOCAL_MACHINE = &H80000002



Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 

strComputer & "\root\default:StdRegProv")

 

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

 

For Each subkey In arrSubKeys 

 

 IF subkey = ProductCode Then 

 oShell.Run UninstallString, 1, True

 End If



Next



Set oShell = Nothing

Set oReg = Nothing

'************* End Code ************

Attached Images