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

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

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

BTW你现在可以使用powershell而不是vbscript，而PowerShell脚本更容易理解。例如，上面将是：创建包含内容的run.ps1

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

单击右键并选择Run with Powershell

Answer 3

以下是如何使用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."

Answer 4

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

VB脚本一次打开多个程序

4 个答案: