22 lines
735 B
Plaintext
22 lines
735 B
Plaintext
|
' run_hidden.vbs
|
||
|
|
' 用途：静默运行传入的命令行程序（无窗口、无闪烁）
|
||
|
|
' 用法：wscript.exe //nologo "run_hidden.vbs" "C:\path\to\your.bat"
|
||
|
|
|
||
|
|
If WScript.Arguments.Count = 0 Then
|
||
|
|
WScript.Quit 1
|
||
|
|
End If
|
||
|
|
|
||
|
|
Dim strCommand
|
||
|
|
strCommand = WScript.Arguments(0)
|
||
|
|
|
||
|
|
' 如果有多个参数（如带参数的命令），可以拼接（本例只传一个 .bat 路径）
|
||
|
|
' 例如：WScript.Arguments(0) 是路径，后续可加 WScript.Arguments(1) 等
|
||
|
|
|
||
|
|
Dim objShell
|
||
|
|
Set objShell = CreateObject("WScript.Shell")
|
||
|
|
|
||
|
|
' 第二个参数 0 表示隐藏窗口（SW_HIDE）
|
||
|
|
' 第三个参数 False 表示不等待进程结束（异步执行）
|
||
|
|
objShell.Run """" & strCommand & """", 0, False
|
||
|
|
|
||
|
|
Set objShell = Nothing
|