vbs ShellExecute运行外部程序时如何判断外部程序执行成功与否

VBS ShellExecute 运行外部程序并判断执行结果

问题分析

VBScript 中的 ShellExecute 函数虽然可以启动外部程序，但它并不会直接返回程序执行成功与否的明确信息。通常，它会立即返回，而不管目标程序是否运行完成。

解决方法

1. 利用 WMI 获取进程信息

• 原理: 在执行 ShellExecute 后，通过 WMI (Windows Management Instrumentation) 查询系统中的进程，查找目标程序的进程 ID。如果找到对应的进程，通常可以认为程序启动成功。
• 代码示例:

Dim WshShell, objWMIService, objProcess, strProcessName, intProcessID

Set WshShell = CreateObject("Wscript.Shell")
strProcessName = "notepad.exe" ' 要启动的程序

' 启动程序
WshShell.Run strProcessName, 0, True

' 等待一段时间后，查询进程
WScript.Sleep 2000 ' 等待2秒

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objProcess = objWMIService.Get("Win32_Process")

For Each proc In objProcess
    If UCase(proc.Name) = UCase(strProcessName) Then
        intProcessID = proc.ProcessID
        WScript.Echo "进程 " & strProcessName & " 启动成功，进程 ID: " & intProcessID
        Exit For
    End If
Next

If intProcessID = 0 Then
    WScript.Echo "进程 " & strProcessName & " 启动失败"
End If

2. 利用等待命令完成

• 原理: 在 ShellExecute 后，使用 WScript.Sleep 等待一段时间，再执行其他操作，假设这段时间内目标程序已经完成执行。
• 缺点: 这种方法不够精确，如果目标程序运行时间过长，可能会影响后续操作。

3. 创建日志文件

• 原理: 让目标程序在执行完成后生成一个日志文件，然后脚本检查该日志文件是否存在。
• 优点: 比较可靠，可以记录更多的信息。
• 缺点: 需要修改目标程序。

4. 使用第三方工具

• 原理: 利用一些专业的进程管理工具或自动化工具，提供更精确的进程监控和控制功能。
• 优点: 功能强大，可以实现更复杂的监控需求。
• 缺点: 需要引入外部工具，增加复杂性。

注意事项

• 等待时间: 等待时间需要根据目标程序的执行时间来设置，过短可能导致误判，过长会影响效率。
• 进程名: 确保获取的进程名与目标程序的进程名完全一致。
• 错误处理: 对于 WMI 查询或其他操作可能出现的错误，需要进行适当的错误处理。
• 进程终止: 如果需要在脚本中终止目标进程，可以使用 Terminate 方法。

总结

判断外部程序执行成功与否的方法有多种，选择合适的方法取决于具体的需求。一般来说，结合 WMI 查询和等待机制是一种比较常用的方法。对于更复杂的场景，可以考虑使用第三方工具或自定义更复杂的逻辑。

重要提醒： 在实际应用中，需要根据具体的业务需求和系统环境来选择合适的方法。