vbscript 控制循环结构在一台 Windows 10 台式机上运行良好，但在另一台 Windows 10 笔记本电脑上却无法运行。可能是什么问题？

Question

我有以下 vbscript 代码段，它在一台 Windows 10 桌面上运行良好，但在另一台 Windows 10 笔记本电脑上运行不正常。

Set WshShell = WScript.CreateObject("WScript.Shell")

dim r, i, j
randomize

For j = 1 To 5
For i = 1 To 5
  r = Int(rnd*1000) + 3400
  strMsg = "Loop = " + CStr(j) + " / " + CStr(i) + vbNewLine + "delay = " + CStr(r)  
  strI = " Loop " + CStr(j) + " / " + CStr(i)
  WshShell.Popup strMsg, 13, strI 
  Wscript.Sleep(r)
Next

Next

在桌面上，它工作正常，这意味着我得到了所有带有正确内容的消息弹出窗口。在执行此代码时，我确实在任务管理器详细信息选项卡中看到了 wscript 进程。

在笔记本电脑上，我只看到第一个带有正确值的弹出窗口。控件不会遍历 i 和 j 的其他值。在这里，我也只在任务管理器详细信息选项卡中短暂地看到 wscript 进程，即在第一次迭代期间，而第一个弹出窗口在大约 13 秒后关闭。

哪里出了问题？
可能是 cscript 与 wscript 的问题吗？

谢谢。