On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")
agentVersion = WshShell.RegRead("HKEY_LOCAL_MACHINE\Software\AdventNet\DesktopCentral\DCAgent\DCAgentVersion")
if Err Then
	Err.Clear
Else
	WshShell.Run "msiexec.exe /x{6AD2231F-FF48-4D59-AC26-405AFAE23DB7} /q",0,True
End If