{"id":298,"date":"2009-05-10T20:46:38","date_gmt":"2009-05-10T12:46:38","guid":{"rendered":"http:\/\/www.jhouseconsulting.com\/?p=298"},"modified":"2009-11-29T01:25:35","modified_gmt":"2009-11-28T17:25:35","slug":"deployment-script-for-the-ctrl-alt-del-it-consultancy-tools","status":"publish","type":"post","link":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/2009\/05\/10\/deployment-script-for-the-ctrl-alt-del-it-consultancy-tools-298","title":{"rendered":"Deployment Script for the Ctrl-Alt-Del IT Consultancy Tools"},"content":{"rendered":"

A good friend of mine, Warren Simondson from Ctrl-Alt-Del IT Consultancy<\/a>, writes some awesome tools. There are a particular set I use for all Terminal\/Citrix Server deployments I refer to as “User Self-Help Tools”. The below script is what I use to deploy them. Simply add the tools you wish to deploy to an array. It can create shortcuts in a Start Menu folder and\/or on the Desktop simply by setting a couple of boolean values as documented in the script.<\/p>\n

Simply place this script in the same folder with the tools. Setup the arrTools and arrToolNames arrays. Execute it using the cscript processor. And voila…all done \ud83d\ude42<\/p>\n

Enjoy!<\/p>\n


\n‘ Installation script for the Ctrl-Alt-Del IT Consultancy Self-Help Tools.
\n‘ http:\/\/www.ctrl-alt-del.com.au\/CAD_TSUtils.htm
\n‘
\n‘ Instructions:
\n‘ 1) Add the tool executable name in the arrToolExes array.
\n‘ 2) Add the tool name for the shortcut in the arrToolNames array.
\n‘ If you want the shortcut name to match the executable name, create
\n‘ an empty value in the arrToolNames array.
\n‘ 3) Set the blnStartMenuShortcut and blnDesktopShortcut to True or False
\n‘ depending on where you want a shortcut created, if at all.
\n‘ If you only want to publish the tool(s), set both to False.
\n‘ 4) Set the strStartMenuSubFolder for the name of the Start Menu sub folder
\n‘ to create the shortcuts in.
\n‘ Set strStartMenuSubFolder to an empty value, or comment out, to create
\n‘ them in the root of the Start Menu | Programs (All Programs) folder.
\n‘ 5) Set the blnAllUsersStartupFolder to True to create a shortcut for the
\n‘ DEFSET utility in the All Users Startup Folder.
\n‘ 6) Even though these are 32-bit applications…
\n‘ i) They will still run 100% correctly in a 64-bit environment.
\n‘ ii) In a 64-bit environment we deploy them 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.4 on 11th November 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, arrToolExes, arrToolNames, i
\nDim blnStartMenuShortcut, blnDesktopShortcut, strStartMenuSubFolder
\nDim strStartMenuFolder, blnAllUsersStartupFolder, strAUStartup
\nDim strShortcutName<\/p>\n

arrToolExes = Array(“TSSelfServReset.exe”,”TSTaskman.exe”,”TSPassChg.exe”,”DEFSET.exe”)
\narrToolNames = Array(“Session Reset”,”Task Manager”,”Change Password”,”Default Printer Selection”)<\/p>\n

blnStartMenuShortcut = True
\nblnDesktopShortcut = False
\nstrStartMenuSubFolder = “User Self-Help Tools”
\nblnAllUsersStartupFolder = False<\/p>\n

If IsArray(arrToolExes) And IsArray(arrToolNames) Then
\n If UBound(arrToolExes) <> UBound(arrToolNames) Then
\n WScript.Quit(0)
\n End If
\nEnd If<\/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”)
\nstrAUStartup = WshShell.SpecialFolders(“AllUsersStartup”)
\nstrScriptPath = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, “\\”))<\/p>\n

If blnStartMenuShortcut Then
\n If strStartMenuSubFolder <> “” Then
\n strStartMenuFolder = strAUPrograms & “\\” & strStartMenuSubFolder
\n If NOT objFSO.FolderExists(strAUPrograms & “\\” & strStartMenuSubFolder) Then
\n Set objFolder = objFSO.CreateFolder(strAUPrograms & “\\” & strStartMenuSubFolder)
\n End If
\n Else
\n strStartMenuFolder = strAUPrograms
\n End If
\nEnd If<\/p>\n

If IsArray(arrToolExes) And UBound(arrToolExes) > 0 Then
\n If NOT objFSO.FolderExists(strProgramFiles & “\\Ctrl-Alt-Del”) Then
\n Set objFolder = objFSO.CreateFolder(strProgramFiles & “\\Ctrl-Alt-Del”)
\n End If
\n For i = 0 to ubound(arrToolExes)
\n If objFSO.FileExists(strScriptPath & arrToolExes(i)) Then
\n If arrToolNames(i) <> “” Then
\n strShortcutName = arrToolNames(i)
\n Else
\n strShortcutName = arrToolExes(i)
\n If Len(arrToolExes(i)) – instrrev(arrToolExes(i), “.”) = 3 Then
\n strShortcutName = Left(arrToolExes(i), Len(arrToolExes(i)) – 4)
\n End If
\n End If
\n objFSO.CopyFile strScriptPath & arrToolExes(i), strProgramFiles & “\\Ctrl-Alt-Del\\”, True
\n If blnStartMenuShortcut Then
\n Set oShellLink = WshShell.CreateShortcut(strStartMenuFolder & “\\” & strShortcutName & “.lnk”)
\n oShellLink.TargetPath = chr(34) & strProgramFiles & “\\Ctrl-Alt-Del\\” & arrToolExes(i) & chr(34)
\n oShellLink.WorkingDirectory= strProgramFiles & “\\Ctrl-Alt-Del”
\n oShellLink.IconLocation = strProgramFiles & “\\Ctrl-Alt-Del\\” & arrToolExes(i) & “,0”
\n oShellLink.Save
\n End If
\n If blnDesktopShortcut Then
\n Set oShellLink = WshShell.CreateShortcut(strAUDesktop & “\\” & strShortcutName & “.lnk”)
\n oShellLink.TargetPath = chr(34) & strProgramFiles & “\\Ctrl-Alt-Del\\” & arrToolExes(i) & chr(34)
\n oShellLink.WorkingDirectory= strProgramFiles & “\\Ctrl-Alt-Del”
\n oShellLink.IconLocation = strProgramFiles & “\\Ctrl-Alt-Del\\” & arrToolExes(i) & “,0”
\n oShellLink.Save
\n End If
\n If Ucase(arrToolExes(i)) = “DEFSET.EXE” AND blnAllUsersStartupFolder Then
\n Set oShellLink = WshShell.CreateShortcut(strAUStartup & “\\” & strShortcutName & “.lnk”)
\n oShellLink.TargetPath = chr(34) & strProgramFiles & “\\Ctrl-Alt-Del\\” & arrToolExes(i) & chr(34)
\n oShellLink.WorkingDirectory= strProgramFiles & “\\Ctrl-Alt-Del”
\n oShellLink.IconLocation = strProgramFiles & “\\Ctrl-Alt-Del\\” & arrToolExes(i) & “,0”
\n oShellLink.Save
\n End If
\n End If
\n Next
\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":"

A good friend of mine, Warren Simondson from Ctrl-Alt-Del IT Consultancy, writes some awesome tools. There are a particular set I use for all Terminal\/Citrix Server deployments I refer to as “User Self-Help Tools”. The below script is what I use to deploy them. Simply add the tools you wish to deploy to an array. … Read more<\/a><\/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,97],"tags":[137,423,167,417],"class_list":["post-298","post","type-post","status-publish","format-standard","hentry","category-scripting","category-tools","tag-ctrl-alt-del","tag-tools","tag-user-self-help","tag-xenapp"],"aioseo_notices":[],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/298","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/comments?post=298"}],"version-history":[{"count":6,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/298\/revisions"}],"predecessor-version":[{"id":314,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/298\/revisions\/314"}],"wp:attachment":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/media?parent=298"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/categories?post=298"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/tags?post=298"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}