Software Deployment

We have had some luck with a VB script that does the uninstall of legacy Winzip and then goes on to kick off the msi install of Winzip 9.0. We are fighting an issue with the msi install though in that our company standard has the "My Documents" and "Favorites" paths redirected in the Shell Folders areas under HKCU. If the network drive is not mapped, the install fails. I don't understand why Winzip even bothers to look at those HKCU paths?

sruzich,

I have no problem in removing Winzip installed in MSI. I can always use the upgrade code from old Winzip version and attached in my Upgrade Table of my Winzp 9.0 MSI installation. This will kick off the previous winzip version before the installation of 9.0 in MSI.

I have found a script to remove Winzip 8.0 in VBscript but how can I add the non MSI installed Winzip 9.0.

Let me know,
Thanks,
-jotobax

See below for possible suggestion. Do you have any ideas on how to deal with our "My Documents" User Shell Folders path problem? We would like to install WinZip 9.0 without any reference or dependence on where My Documents is located.

Have you tried something like this?

On Error Resume Next
Set WshShell = CreateObject("Wscript.Shell")


Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\Documents and Settings\All Users\Start Menu\Programs\WinZip 8.1 .lnk")


Dim fs1
Set fs1 = CreateObject("Scripting.FileSystemObject")

main()


sub main()


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