2

現在、vbscript を使用してバッチ ファイルを実行し、バッチが実行されるたびに cmd ウィンドウがポップアップしないようにしています。

私が今達成しようとしているのは、そのバッチ ファイルに引数を渡すことです。vbs は で実行されていwscript "c:\batchlauncher.vbs" "c:\batch.bat"ます。私はこれに似た何かをしようとしています; wscript "c:\batchlauncher.vbs" "c:\batch.bat" ["batch.argument"]私が必要とするものを達成するどんな順序または構文でも。

これは私が持っているものです:

バッチランチャー.vbs

'--------------------8<----------------------
sTitle = "Batch launcher"

Set oArgs = WScript.Arguments
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")

If oArgs.Count <> 1 Then
' Will die after 10 seconds if no one is pressing the OK button
oShell.Popup "Error: You need to supply a file path " _
& "as input parameter!", 10, sTitle, vbCritical + vbSystemModal

Wscript.Quit 1
End If

sFilePath = oArgs(0)

If Not oFSO.FileExists(sFilePath) Then
' Will die after 10 seconds if no one is pressing the OK button
oShell.Popup "Error: Batch file not found", _
10, sTitle, vbCritical + vbSystemModal

Wscript.Quit 1
End If

' add quotes around the path in case of spaces
iRC = oShell.Run("""" & sFilePath & """", 0, True)

' Return with the same errorlevel as the batch file had
Wscript.Quit iRC

'--------------------8<----------------------
4

1 に答える 1