Script for an Unattended WinZip Uninstall

A small batch file that will allow you to perform an unattended uninstall of the WinZip application (in other words, no user prompts during the uninstall).
Here's a small batch file from Steve Shockley that will allow you to perform an unattended uninstall of the WinZip application (in other words, no user prompts during the uninstall). The VBScript deploys an undocumented WinZip command via SMS to uninstall the application. Feedback is welcomed from the author.

Download the wzkill.vbs file.

<< Back to SMS Scripts list.


The contents of the batch file are as follows:


' 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

Disclaimer: We hope that the information in these pages is valuable to you. Your use of the information contained in these pages, however, is at your sole risk. All information on these pages is provided "as -is", without any warranty, whether express or implied, of its accuracy, completeness, fitness for a particular purpose, title or non-infringement, and none of the third-party products or information mentioned in the work are authored, recommended, supported or guaranteed by me. We shall not be liable for any damages you may sustain by using this information, whether direct, indirect, special, incidental or consequential, even if it has been advised of the possibility of such damages.





0 Comments (click to add your comment)
Comment and Contribute

 


(Maximum characters: 1200). You have characters left.