Проверьте, есть ли на веб-странице определенный текст

Question

Мне нужен VBScript, который чекает, если на веб-странице есть ТЕКСТ. У меня не было проблем с IE, но из-за некоторых обстоятельств мне нужно использовать FF/Chrome.

Dim page 
Dim ff 
page = "myURL" 
Set ff = CreateObject("Shell.Application") 
ff.ShellExecute "firefox.exe", page, "", "", 1 
WScript.Sleep 3000 
Dim login 
Set login = CreateObject("WScript.Shell") 
login.SendKeys "{TAB}" 
login.SendKeys ("login") 
login.SendKeys "{TAB}" 
login.SendKeys ("passwd") 
login.SendKeys "{ENTER}" 
Set login = Nothing 
WScript.Sleep 2000 

Открыть → → Войти, а затем мне нужно, чтобы получить всплывающее сообщение, если страница содержит текст (в системе) или нет. Используя IE, я получил это, хорошо, но как точно я могу сделать то же самое для Firefox?

If InStr(IEapp.Document.body.innertext, "Test") Then 
    WScript.Echo "1:ok" 
Else 
    WScript.Echo "0:down" 
End If 

Answer 1

С VBScript вы не можете. Firefox и Chrome не поддерживают автоматизацию COM. Вы можете сделать это с чем-то вроде AutoIt или Selenium, но у меня нет опыта с ними.