Простой VBScript не работает надежно

Question

Итак, я работал с VBS очень жарко, но я никогда не сталкивался с этой проблемой при таких простых вещах, как эта. Ниже приведено текущее состояние моего сценария, чтобы перейти через Проводник к определенному файлу, открыть его и заменить одно значение в нем (последний бит все еще находится в работе.) Моя проблема заключается в том, что сценарий не выполняется последовательно. Иногда он только открывает окно проводника, а затем, похоже, ничего не делает, но иногда работает отлично. Когда этого не происходит, я проверяю диспетчер задач, чтобы убедиться, что скрипт все еще выполняется, что должно быть, но он не отображается в процессах. Есть идеи?

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "explorer"
WScript.Sleep 700
WshShell.AppActivate "File Explorer"
WScript.Sleep 500
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100

WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{RIGHT}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("~")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("T")
WScript.Sleep 100
WshShell.SendKeys("E")
WScript.Sleep 100
WshShell.SendKeys("S")
WScript.Sleep 100
WshShell.SendKeys("S")
WScript.Sleep 100
WshShell.SendKeys("~")
WScript.Sleep 100
WshShell.SendKeys("T")
WScript.Sleep 100
WshShell.SendKeys("~")
WScript.Sleep 100
WshShell.SendKeys("^{H}")