以下のスクリプトを使用して、キオスクの操作を妨げる可能性のある開いているウィンドウを強制終了します。
word を使用して、プロセスではなく実行中のアプリケーションのリストを返します。
問題は、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