Windows 10下如何用VBScript同步启动全屏Acrobat与背景媒体并修复脚本错误？

问题背景 #

需要在Windows 10中用VBScript实现：

• 启动Adobe Acrobat Reader全屏显示指定PDF
• 后台同步播放媒体文件
  现有脚本功能可实现，但触发objAVDoc的「object required」错误（代码800A01A8）；尝试实例化objAVDoc后又出现800A01AD错误，脚本终止。

错误原因分析 #

1. 原脚本中objAVDoc未定义直接使用，导致800A01A8错误
2. 错误创建Acrobat COM对象：
   • AcroPDF.PDDoc/AcroPDF.AVDoc不是正确的Acrobat自动化对象，且Reader可能不支持部分Acrobat Pro的COM接口
   • AcroExch.GetActiveDoc需要Acrobat Pro环境，Reader无法调用，导致800A01AD（自动化服务器无法创建对象）
3. 用SendKeys+Sleep的方式不可靠，进程启动时间不稳定，容易导致后续操作失败

可行解决方案 #

方案1：基于进程监控的简化脚本（兼容Reader/Pro） #

放弃错误的COM对象循环，改用监控Acrobat进程的方式，同时确保音频和PDF同步启动：

Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

' 配置路径
acrobatPath = """C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe"""
pdfFile = "C:\Users\X\Documents\Test.pdf"
soundFile = "C:\Users\X\Documents\Test.wav"

' 启动Acrobat并直接进入全屏
objShell.Run acrobatPath & " /A ""fullscreen=yes"" " & """" & pdfFile & """", 1, False

' 等待Acrobat进程启动
Do
    WScript.Sleep 200
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='Acrobat.exe'")
Loop Until colProcesses.Count > 0

' 启动后台音频播放
Set objWMPlayer = CreateObject("WMPlayer.OCX.7")
objWMPlayer.settings.autoStart = True
objWMPlayer.settings.volume = 100
objWMPlayer.URL = soundFile

' 监控Acrobat进程，直到退出
Do
    WScript.Sleep 500
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='Acrobat.exe'")
Loop Until colProcesses.Count = 0

' 停止音频播放
objWMPlayer.close()

改进点说明：

• 直接用Acrobat命令行参数/A "fullscreen=yes"启动时就进入全屏，无需SendKeys
• 通过WMI监控Acrobat进程，替代不可靠的Sleep和未定义的COM对象循环
• 音频播放后持续监控进程，直到Acrobat关闭再停止音频

方案2：使用Acrobat Pro COM对象（仅适用于Acrobat Pro） #

如果安装的是Acrobat Pro而非Reader，可通过官方自动化接口实现更精确的控制：

Set objAcroApp = CreateObject("AcroExch.App")
Set objAVDoc = CreateObject("AcroExch.AVDoc")
Set objWMPlayer = CreateObject("WMPlayer.OCX.7")

' 配置路径
pdfFile = "C:\Users\X\Documents\Test.pdf"
soundFile = "C:\Users\X\Documents\Test.wav"

' 打开PDF并进入全屏
If objAVDoc.Open(pdfFile, "") Then
    objAcroApp.Show
    objAcroApp.FullScreen = True
    
    ' 启动后台音频
    objWMPlayer.settings.autoStart = True
    objWMPlayer.settings.volume = 100
    objWMPlayer.URL = soundFile
    
    ' 等待文档关闭
    Do While objAVDoc.IsOpen
        WScript.Sleep 100
    Loop
End If

' 清理资源
objAcroApp.Exit
Set objAVDoc = Nothing
Set objAcroApp = Nothing
objWMPlayer.close()
Set objWMPlayer = Nothing

注意事项：

• 该方案仅支持Acrobat Pro，Reader不提供AcroExch系列COM对象
• 无需额外启动进程，直接通过COM接口控制Acrobat，稳定性更高

内容的提问来源于stack exchange，提问作者sparrow