VBS如何向批处理传递命令行参数

spfnug

如题，如何将参数传递给check.bat,即执行"check %1"

 
strComputer = "."
set objectShell=wscript.createObject("wscript.shell")
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _        
    ExecNotificationQuery("select * from __instancecreationevent " _ 
        & " within 1 where TargetInstance isa 'win32_process'")
i = 0
Do While i = 0
    Set objLatestProcess = colMonitoredProcesses.NextEvent
    objectShell.Run "check.bat %1", 1, TRUE 
Loop
复制代码

zqz0012005

objectShell.Run "check.bat " & objLatestProcess.TargetInstance.Name, 1, TRUE