As a system engineer or as a developer sometimes you may need to run multiple programs at once as a sequence or, one by one after some intervals. Following is a VB script created for specific purpose.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFq_6YTPoygk8S1-6N-qtvcr1-3oJMp9kuIr7FCOmqtD-nJjuxUDG8G0B1bgtoRmIRyW714QiXOg9ekTQN8BkG_2-q500pUQLoKWM65aGjn6jMeGti89z5WaoL5fK5VMHbcYWT4rjWIA8S/s1600/egfox_windows_7_desktop_2012___omnimo_ui_by_eg_art-d5jpnhk.jpg)
- weAdmin\imAdmin - Specific use for "Run As"
- C:\Test\Test1\Test1.exe - Path and file name
- admin1234 - Password for the specific user.
- 100 - Some waiting time to initialize 'run as'
- 1000 - waiting time until next program run. (Configure this as you want)
Option explicit Dim oShell set oShell= Wscript.CreateObject("WScript.Shell") oShell.Run "RunAs /noprofile /user:weAdmin\imAdmin ""C:\Test\Test1\Test1.exe""" WScript.Sleep 100 oShell.Sendkeys "admin1234" oShell.SendKeys "{ENTER}" WScript.Sleep 1000 oShell.Run "RunAs /noprofile /user:weAdmin\imAdmin ""C:\Test\Test2\Test2.exe""" WScript.Sleep 100 oShell.Sendkeys "admin1234" oShell.SendKeys "{ENTER}" WScript.Sleep 1000 oShell.Run "RunAs /noprofile /user:weAdmin\imAdmin ""C:\Test\Test3\Test3.exe""" WScript.Sleep 100 oShell.Sendkeys "admin1234" oShell.SendKeys "{ENTER}" WScript.Sleep 1000 oShell.Run "RunAs /noprofile /user:weAdmin\imAdmin ""C:\Test\Test4\Test4.exe""" WScript.Sleep 100 oShell.Sendkeys "admin1234" oShell.SendKeys "{ENTER}" WScript.Sleep 1000 Wscript.Quit