<< 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
One of the ways around the issues of security and control that make some businesses wary of cloud computing is to build a private cloud -- one that remains within the corporate firewall and is wholly controlled internally. Private clouds also increase the agility of IT an organization's IT infrastructure and make it easier to roll out new technology projects. Download this eBook to get the facts behind the private cloud and learn how your organization can get started.