Vbscript 如何在不调用word的情况下获取使用VBS运行的应用程序列表？

我们正在使用下面的脚本杀死任何可能干扰信息亭操作的打开窗口

它使用word返回正在运行的应用程序而不是进程的列表

问题是我调用Word的脚本不断崩溃。似乎应该有一种方法可以做到这一点，而不需要求助于文字

这是我正在使用的代码

sub closeWindows()
Set Word = CreateObject("Word.Application")
Set Tasks = Word.Tasks
For Each Task in Tasks
If Task.Visible AND Task.Name = "Sign Up for Facebook" Then Task.Close()
If Task.Visible AND Task.Name = "Log In | Facebook: Facebook" Then Task.Close()
Next
Word.Quit
end sub
Do
closeWindows
Wscript.Sleep 1000
Loop

---

有两个选项比您建议的解决方案更可取：

锁定/加固信息亭，以防止使用不需要的应用程序

如果您使用这样的“看门狗”脚本，请使用已知良好的应用程序（而不是您不想要的应用程序）填充该脚本

这两种选择都比保留黑名单更具可持续性