'AppLaunch.vbs
Dim sAppPath
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
' Path to the application
sAppPath = "D:\Program Files\HoldSlipQPrint\Hold Slip QPrint.lnk"
' Executes the program then closes the script.
Return = WshShell.Run(sAppPath, 1, false)
Wscript.quit
|