1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'* Script name: start_shcut_withargs.vbs '* Created on: 21/07/16 '* Author: BlueSkies '* Purpose: Launches shortcuts taking the shortcut path and name from arguments '* Usage: wscript start_shcut_withargs.vbs "FolderName1" "FolderName2" "ShortcutName" '* Version: 0.1 '================================================================== Option Explicit Dim WshShell, strAllUsersFld, strLnkpath, strAppFld1, strAppFld2, strShrtLnk Set WshShell = WScript.CreateObject("WScript.Shell") strAllUsersFld = WshShell.SpecialFolders("AllUsersStartMenu") if WScript.Arguments.Count = 3 Then strAppFld1 = Wscript.Arguments(0) strAppFld2 = Wscript.Arguments(1) strShrtLnk = Wscript.Arguments(2) strLnkpath = Chr(34) & strAllUsersFld & "\Programs\" & strAppFld1 & "\" & strAppFld2 & "\" & strShrtLnk & ".lnk" & Chr(34) ElseIf WScript.Arguments.Count = 2 Then strAppFld1 = Wscript.Arguments(0) strShrtLnk = Wscript.Arguments(1) strLnkpath = Chr(34) & strAllUsersFld & "\Programs\" & strAppFld1 & "\" & strShrtLnk & ".lnk" & Chr(34) Else strShrtLnk = Wscript.Arguments(0) strLnkpath = Chr(34) & strAllUsersFld & "\Programs\" & strShrtLnk & ".lnk" & Chr(34) End If 'WScript.Echo strLnkpath WshShell.Run strLnkpath, 1, True set WshShell = nothing