IT Management Daily
Storage Daily
Security Daily
FREE NEWSLETTERS
search
 

follow us on Twitter


internet.commerce
Be a Commerce Partner















internet.com
IT
Developer
Internet News
Small Business
Personal Technology

Search internet.com
Advertise
Corporate Info
Newsletters
Tech Jobs
E-mail Offers




Products
 LinqConnect Express (LinqConnect Express)
 LinqConnect 2.00 (Devart)
 EMS SQL Manager for MySQL (EMS Database Management Solutions, Inc.)
 EMS SQL Management Studio for MySQL (EMS Database Management Solutions, Inc.)
 Database Designer for PostgreSQL (MicroOLAP Technologies LTD)
 ESBFinCalc Pro - Financial Calculator (ESB Consultancy)
» Enterprise IT Planet » Resources » SMS Scripts

Script for an Unattended WinZip Uninstall

September 26, 2003

Email Print Digg This Add to del.icio.us
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.

Email Print Digg This Add to del.icio.us

SMS Scripts Archives