MakeShortcut

MakeShortcut.vbs

if Wscript.Arguments.Count = 0 then
	Wscript.Echo "Usage: make-shortcut.vbs shortcutName shortcutWorkingDir shortcutPath shortcutArgs..."
	Wscript.Quit
end if

Dim shortcutName
Dim shortcutPath
Dim shortcutWorkingDir
Dim shortcutArgs
shortcutName = Wscript.Arguments(0)
shortcutWorkingDir = Wscript.Arguments(1)
shortcutPath = Wscript.Arguments(2)

For count = 3 To WScript.Arguments.Count-1
    shortcutArguments = shortcutArguments & " " & Wscript.Arguments(count)
Next

Set sh = CreateObject("WScript.Shell")
Set shortcut = sh.CreateShortcut(shortcutName)
shortcut.TargetPath = shortcutPath
shortcut.Arguments = shortcutArguments
shortcut.WorkingDirectory = shortcutWorkingDir
shortcut.Save

Wscript.Echo "Made shortcut " & shortcutName & " with target path " & shortcutPath