Submitted By: Mohammed Athif Khaleel

Uninstalls WinZip.exe without the need for user intervention.

Visual Basic
Edit|Remove
' Uninstall WinZip
'
' This script uninstalls WinZip 8.0 cleanly with no user prompting
'
' Steve Shockley, 08Nov2001

On Error Resume Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

main()


sub main()

    'Let's find out where WinZip is installed

WZPath=regget("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\winzip32.exe\")

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

    WshShell.Run WZPath & " /uninstallx",0,TRUE

    FullWZPath = replace(WZPath, "PROGRA~1", "Program Files")

    DeleteAFolder(left(FullWZPath,(len(FullWZPath)-13)))

end sub


function regget(value)
  on error resume next
  Set regedit = CreateObject("WScript.Shell")
  regget=regedit.RegRead(value)
end function

function DeleteAFolder(filespec)
   Dim fso
   on error resume next
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.DeleteFolder(filespec)
end function