{"id":448,"date":"2009-11-29T02:12:57","date_gmt":"2009-11-28T18:12:57","guid":{"rendered":"http:\/\/www.jhouseconsulting.com\/?p=448"},"modified":"2009-11-29T02:13:51","modified_gmt":"2009-11-28T18:13:51","slug":"deployment-script-for-the-very-cool-convert-utility","status":"publish","type":"post","link":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/2009\/11\/29\/deployment-script-for-the-very-cool-convert-utility-448","title":{"rendered":"Deployment Script for the very cool Convert utility"},"content":{"rendered":"

Here is a deployment script for the very cool convert.exe<\/a> utility from Josh Madison<\/a>.<\/p>\n

Enjoy!<\/p>\n


\n‘ Installation script for convert.exe (http:\/\/www.joshmadison.com\/software)
\n‘
\n‘ Notes:
\n‘ 1) Even though this a a 32-bit application…
\n‘ i) It will still run 100% correctly in a 64-bit environment.
\n‘ ii) In a 64-bit environment we deploy it to the “%ProgramFiles%”
\n‘ location and not the “%ProgramFiles(x86)%” location. This provides
\n‘ a single location for the published application regardless of the
\n‘ system architecture type.
\n‘
\n‘ Revision 1.2 on 21st October 2009.
\n‘ Written by Jeremy@jhouseconsulting.com on 30th December 2008.
\n‘
\nOption Explicit<\/p>\n

Dim objfso, objFolder, wshShell, oShellLink, strAUPrograms, strAUDesktop
\nDim strProgramFiles, strScriptPath, blnStartMenuShortcut, blnDesktopShortcut<\/p>\n

blnStartMenuShortcut = True
\nblnDesktopShortcut = False<\/p>\n

set WshShell = WScript.CreateObject(“WScript.Shell”)
\nset objfso = CreateObject(“Scripting.FileSystemObject”)<\/p>\n

strProgramFiles = WshShell.ExpandEnvironmentStrings(“%ProgramFiles%”)
\nstrAUPrograms = WshShell.SpecialFolders(“AllUsersPrograms”)
\nstrAUDesktop = WshShell.SpecialFolders(“AllUsersDesktop”)
\nstrScriptPath = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, “\\”))<\/p>\n

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

Set WshShell = Nothing
\nSet objfso = Nothing
\nSet objFolder = Nothing
\nSet oShellLink = Nothing<\/p>\n

WScript.Quit(0)
\n<\/dirtycode><\/p>\n","protected":false},"excerpt":{"rendered":"

Here is a deployment script for the very cool convert.exe utility from Josh Madison. Enjoy!<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[5],"tags":[170],"class_list":["post-448","post","type-post","status-publish","format-standard","hentry","category-scripting","tag-convertexe"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t