Vbs code change to work on a different website

Const strInputFile = "input.txt"
Const strOutputFile = "output.txt"

Const C_URL = "http://mtas.surfcontrol.com/mtas/MTAS.asp"


Const C_TXT = " is in our list and categorized as "

Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objHTTP = CreateObject("MSXML2.XMLHTTP")

Set objInput = objFSO.OpenTextFile(strInputFile, 1, False)
Set objOutput = objFSO.CreateTextFile(strOutputFile, True)

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
While Not objInput.AtEndOfStream
      ' do this now _inside_ the loop because result page does not contain the input form
      objIE.Navigate C_URL
      While objIE.busy = True Or objIE.ReadyState <> 4
            WScript.Sleep 100
      Wend

      strURL = Trim(objInput.ReadLine)
      If strURL <> "" Then
            objIE.Document.form1.URL.Value = strURL
            objIE.Document.form1.submit
            While objIE.busy = True Or objIE.ReadyState <> 4
                  WScript.Sleep 100
            Wend
            ' find category text; note: first integer, then string
            strCategory = InStr(1, objIE.Document.body.innerText, C_TXT, vbTextCompare)
            If strCategory = 0 Then
                  objOutput.WriteLine strURL & ",NOT FOUND"
                  'WScript.Echo strURL & ",NOT FOUND"
            Else
                  strCategory = Mid(objIE.Document.body.innerText, strCategory + Len(C_TXT))
                  strCategory = Left(strCategory, InStr(strCategory, vbCrLf) - 1)
                  'following line is not necessary because property .innerText already strips out HTML
                  'strcategory = Replace(strcategory, "<font color=#CC0000><b>", "")
                  strCategory = Trim(strCategory)
                  objOutput.WriteLine strURL & "," & strCategory
                  'WScript.Echo strURL & "," & strCategory
            End If
      End If
Wend
objInput.Close
objOutput.Close

'Set objHTTP = Nothing
objIE.Quit

Select allOpen in new window