Deployment Script for the very cool Convert utility

by Jeremy Saunders on November 29, 2009

Here is a deployment script for the very cool convert.exe utility from Josh Madison.

Enjoy!


‘ Installation script for convert.exe (http://www.joshmadison.com/software)

‘ Notes:
‘ 1) Even though this a a 32-bit application…
‘ i) It will still run 100% correctly in a 64-bit environment.
‘ ii) In a 64-bit environment we deploy it to the “%ProgramFiles%”
‘ location and not the “%ProgramFiles(x86)%” location. This provides
‘ a single location for the published application regardless of the
‘ system architecture type.

‘ Revision 1.2 on 21st October 2009.
‘ Written by Jeremy@jhouseconsulting.com on 30th December 2008.

Option Explicit

Dim objfso, objFolder, wshShell, oShellLink, strAUPrograms, strAUDesktop
Dim strProgramFiles, strScriptPath, blnStartMenuShortcut, blnDesktopShortcut

blnStartMenuShortcut = True
blnDesktopShortcut = False

set WshShell = WScript.CreateObject(“WScript.Shell”)
set objfso = CreateObject(“Scripting.FileSystemObject”)

strProgramFiles = WshShell.ExpandEnvironmentStrings(“%ProgramFiles%”)
strAUPrograms = WshShell.SpecialFolders(“AllUsersPrograms”)
strAUDesktop = WshShell.SpecialFolders(“AllUsersDesktop”)
strScriptPath = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, “\”))

If objFSO.FileExists(strScriptPath & “Convert.exe”) Then
If NOT objFSO.FolderExists(strProgramFiles & “\JoshMadison”) Then
Set objFolder = objFSO.CreateFolder(strProgramFiles & “\JoshMadison”)
End If
If NOT objFSO.FolderExists(strProgramFiles & “\JoshMadison\convert”) Then
Set objFolder = objFSO.CreateFolder(strProgramFiles & “\JoshMadison\convert”)
End If
objFSO.CopyFile strScriptPath & “Convert.exe”, strProgramFiles & “\JoshMadison\convert\”, True
If blnStartMenuShortcut Then
Set oShellLink = WshShell.CreateShortcut(strAUPrograms & “\Convert.lnk”)
oShellLink.TargetPath = chr(34) & strProgramFiles & “\JoshMadison\convert\convert.exe” & chr(34)
oShellLink.WorkingDirectory= strProgramFiles & “\JoshMadison\convert”
oShellLink.IconLocation = strProgramFiles & “\JoshMadison\convert\convert.exe” & “,0”
oShellLink.Save
End If
If blnDesktopShortcut Then
Set oShellLink = WshShell.CreateShortcut(strAUDesktop & “\Convert.lnk”)
oShellLink.TargetPath = chr(34) & strProgramFiles & “\JoshMadison\convert\convert.exe” & chr(34)
oShellLink.WorkingDirectory= strProgramFiles & “\JoshMadison\convert”
oShellLink.IconLocation = strProgramFiles & “\JoshMadison\convert\convert.exe” & “,0”
oShellLink.Save
End If
End If

Set WshShell = Nothing
Set objfso = Nothing
Set objFolder = Nothing
Set oShellLink = Nothing

WScript.Quit(0)

Jeremy Saunders

Jeremy Saunders

Technical Architect | DevOps Evangelist | Software Developer | Microsoft, NVIDIA, Citrix and Desktop Virtualisation (VDI) Specialist/Expert | Rapper | Improvisor | Comedian | Property Investor | Kayaking enthusiast at J House Consulting
Jeremy Saunders is the Problem Terminator. He is a highly respected IT Professional with over 35 years’ experience in the industry. Using his exceptional design and problem solving skills with precise methodologies applied at both technical and business levels he is always focused on achieving the best business outcomes. He worked as an independent consultant until September 2017, when he took up a full time role at BHP, one of the largest and most innovative global mining companies. With a diverse skill set, high ethical standards, and attention to detail, coupled with a friendly nature and great sense of humour, Jeremy aligns to industry and vendor best practices, which puts him amongst the leaders of his field. He is intensely passionate about solving technology problems for his organisation, their customers and the tech community, to improve the user experience, reliability and operational support. Views and IP shared on this site belong to Jeremy.
Jeremy Saunders
Jeremy Saunders

Previous post:

Next post: