vbscript - VB脚本一次打开多个程序

Question

对，我正在寻找一个脚本，我可以在登录后单击以打开各种程序，只是为了节省我一点时间。我已经设法得到一个脚本来打开一个，但作为一个新手，有人可以提供建议。

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run """C:\Program Files (x86)\servicecenter\Run\scguiw32.exe "" ""-

express:dvla.servicecenter.fs.fujitsu.com.12680"""
Set objShell = Nothing

Answer 1

使用 VBScript 或 Powershell 来完成这项工作，您可能想多了。批处理文件将起作用。

@echo off
start "c:\Program Files\Folder 1\program.exe"
start "c:\Program Files\Folder 2\program.exe" -switch -argument
exit

Answer 2

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("Path to program")
wscript.sleep (100)
objShell.Run("Path to program")
wscript.sleep (100)
wscript.quit

Answer 3

我没有 scguiw32.exe，所以我创建了在记事本和 word 中打开文件的简单脚本。

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run "C:\Windows\notepad.exe c:\dump.txt"

objShell.Run """C:\Program Files (x86)\Microsoft Office\Office14\winword.exe"" c:\dump.txt"
Set objShell = Nothing

顺便说一句，您现在可以使用 powershell 而不是 vbscript，并且 powershell 脚本更容易理解。例如上面的一个将是：使用内容创建 run.ps1

& 'C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE' c:\dump.txt
notepad.exe C:\dump.txt

单击它右键单击并选择使用 Powershell 运行

Answer 4

以下是如何使用 vbscript 创建要运行的程序数组，然后执行每个程序。

'---Declare Variables
Dim objShell, strprogram1, strProgram2, colprograms, item

'---Create Scripting Shell Object
Set objShell = CreateObject("WScript.Shell")

'---Create Program Variables
strProgram1 = """C:\Program Files (x86)\servicecenter\Run\scguiw32.exe"" ""-express:dvla.servicecenter.fs.fujitsu.com.12680"""
strProgram2 = "C:\Windows\notepad.exe C:\Dump.txt"

'---Add Variables to an Array
colPrograms = Array(strProgram1,strProgram2)

'---Run each program in the array once
For Each item In colprograms
    objShell.Run item
Next

WScript.Echo "Done."