How to check whether a mozilla web page is completely loaded using wscript.exe

Dim oShell, oWSHShell, sTitle, wndw, bMatch
sHTMLTitle = "Test Web Page"
set oShell = createobject("shell.application")
set oWSHShell = createobject("Wscript.shell")

bMatch = false
do until bMatch = true
  for each wndw in oShell.windows
    if instr(lcase(typename(wndw.document)), "htmldocument") > 0 then
      sTitle = wndw.document.title
      if Instr(sTitle, sHTMLTitle)<> 0  then
        do until wndw.document.readyState = "complete"
        loop
        oWSHShell.sendkeys "123"
        bMatch = true
        exit for
      end if
    end if
  next
loop