A batch script file (plus a supplemental VB script) that opens all of the apps we use at work at the beginning of each shift.

morningCoffee

@echo off

rem THIS LINE OPENS MULTIPLE INTERNET EXPLORER LINKS (IN TABS), USING A SEPARATE VB SCRIPT
cscript //nologo ie_tabs.vbs

rem OPEN AGENT AND RESOURCE MANAGER
start "" "C:\Program Files (x86)\Syntellect\Agent\agent.exe"
start "" "C:\Program Files (x86)\Syntellect\RsrcMgr\resman.exe"


rem OPEN TELETRACKING TRANSFERCENTER MODULE
start "" "C:\Program Files (x86)\Teletracking\TransferCenter\TransferCenter.exe"

rem OPEN ONENOTE
start "C:\Program Files (x86)\Microsoft Office\Office14\ONENOTE.EXE" "G:\Patient_Throughput\~Departments\Transfer Center and Bed Board\Open Notebook.onetoc2" 
"G:\Patient_Throughput\~Departments\Transfer Center and Bed Board\Open Notebook.onetoc2"

rem START ACTIVE DASHBOARD
start "" "C:\Program Files\Healthware Systems\ActiveDASHBOARD\Dashboard.exe"

rem START OUTLOOK
start "" "C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE"

rem OPEN INQUICKER IN A GOOGLE CHROME WINDOW
start chrome https://console.inquicker.com/ascensionhealth



_____________
_____________
The following exists as a separate file, within the same directory as the primary batch script file:


'This is a supplement script for "morningCoffee,"
'that uses Virtual Basic to open up the necessary website applications

Option Explicit

Const navOpenInNewWindow = &h1
Const navOpenInNewTab = &h800
Const navOpenInBackgroundTab = &h1000

Dim intLoop       : intLoop = 0
Dim intArrUBound  : intArrUBound = 0
Dim navFlags      : navFlags = navOpenInBackgroundTab

Dim arrstrUrl(5) 'this array contains 5 websites (declared below). increment this count to add additional websites

Dim objIE

    intArrUBound = UBound(arrstrUrl)

    arrstrUrl(0) = "http://txausdcmclweb01.txaus.ds.sjhs.com/eznotify/Login.jsf"
    arrstrUrl(1) = "http://txausdcmcwapp25/XT/Login.aspx"
    arrstrUrl(2) = "http://compass.seton.org/"
    arrstrUrl(3) = "http://amion.com/"
    arrstrUrl(4) = "http://txausdcmcwapp95/RestrictedPhys/listing.asp?last=A&search=name&sort=name"
    arrstrUrl(5) = "http://intranet/"

    set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate2 arrstrUrl(0)

    For intLoop = 1 to intArrUBound

        objIE.Navigate2 arrstrUrl(intLoop), navFlags

    Next

    objIE.Visible = True
    set objIE = Nothing