Код, приведенный в верхнем примере, имеет некоторые проблемы с активностью задачи во время загрузки сайта. Веб-сайт загружается за 2 минуты, но задача уже выполнена за 1 секунду, что приводит к проблеме, когда вы выполняете ее каждые 5 минут. Если веб-сайт загружается за 10 минут, а задание уже выполнено за 1 секунду, он будет выполнен снова, пока я хочу, чтобы он дождался загрузки сайта.
Итак, я сделал следующее (этот скрипт будет держать задачу занятой, пока сайт загружается):
dim URL, oArgs, objXML
Set oArgs = WScript.Arguments
URL = oArgs(0)
on error resume next
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.async = "false"
objXML.load(URL)
Set objXML = Nothing