jmaclaurin
Posts: 877
Score: 18 Joined: 12/5/2002 From: Ottawa, Ont., Canada Status: offline
|
I've read the posts at appdeploy and they all leave me with the same result. But, uninstallx appears to unregister it so I might be able to get away with deleting the files and reg keys. Ewww, autoit... 9-) I found this VB script that I am going to try. It appears to use the same idea. ' 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
< Message edited by jmaclaurin -- 8/8/2008 10:04:56 AM >
|