UninstallCutePDF.vbs

Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.Length = 0 Then
  Set ObjShell = CreateObject("Shell.Application")
  ObjShell.ShellExecute "wscript.exe" _
    , """" & WScript.ScriptFullName & """ RunAsAdministrator", , "runas", 1
  WScript.Quit
End if

Set oShell = WScript.CreateObject("WScript.Shell")

Set fShell = CreateObject("Scripting.FileSystemObject")

oShell.Run """%PROGRAMFILES(X86)%\Acro Software\CutePDF Writer\Setup64.exe"" /uninstall"

WScript.Sleep 1000

oShell.SendKeys "{ENTER}"

WScript.Sleep 2500

oShell.SendKeys "{ENTER}"

WScript.Sleep 5000

strCom = "taskkill /F /IM uninscpw.exe"

oShell.Run strCom, 0, True