<< Back to SMS Scripts list.
' 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.