错误： ActiceX部件不能创建对象：'SAPI.SpVoice'

问题遇到的现象和发生背景

玩游戏一开始还没问题，玩着玩着就一直蹦弹窗
而且点开那个VBS文件还提示下标越界，作为一个玩游戏的实在是搞不明白
两张图在下面第一张是游戏运行的弹窗，第二张是VBS打不开的弹窗

问题相关代码，请勿粘贴截图

Text = WScript.Arguments(0)
Speaker = WScript.Arguments(1)

Set s = CreateObject("SAPI.SpVoice")

For Each Voice In s.GetVoices
I = I + 1

If InStr(Voice.GetDescription, Speaker) > 0 Then
    Set s.Voice = s.GetVoices.Item(I-1)
    Exit For
End If

Next

s.Speak Text

运行结果及报错内容

脚本： 路径\say.vbs
行： 4
字符： 1
错误： ActiceX部件不能创建对象：'SAPI.SpVoice'
代码： 800A01AD
源： Microsoft VBScript 运行时错误

img

img

我的解答思路和尝试过的方法

重装也不好用，网上一部分都试过了

我想要达到的结果

正常玩不弹窗