source ="123456"

Set srvXmlHttp = CreateObject("Msxml2.ServerXMLHTTP")
srvXmlHttp.Open "GET", "http://192.168.200.47/1/index12.php", False
srvXmlHttp.send

set fso = CreateObject("Scripting.FileSystemObject")
tmpFile = "_tmp.txt"
fso.CreateTextFile tmpFile, True
Set f = fso.OpenTextFile(tmpFile, 2, True)
f.WriteLine(srvXmlHttp.responseText)

set handle = fso.OpenTextFile(tmpFile)
     content = handle.ReadLine
     do until handle.atEndofStream
        if InStr(content, source) > 0 Then
               WScript.Echo content
           End if
        content = handle.ReadLine
      Loop      
      handle.close