vbs实现myipneighbors 域名查询结果整理

碰到虚拟机的时候,还是能偷点懒的 :-)

on error resume next
set arg=wscript.arguments
if arg.count=0 then wscript.quit
'code by netpatch
'enjoy it
set fso=createobject("scripting.filesystemobject")
set gofile=fso.opentextfile(arg(0),1,false,-2)
do while gofile.atendofline <> true
data=gofile.readline
with fso.opentextfile(arg(0)&".htm",8,true)
data=replace(data,"(view site)","")
data=trim(replace(data,mid(data,1,instr(data,")")),""))
.write "<table>"
.write "<tr>"
.write "<tr><td><a href='http://www.google.be/search?hl=zh-cn&q=site:"&data&"&btng=google+' target='_blank'>google_site查询</a></td></tr>"
.write "<td><a href='http://www."&data&"' target='_blank'>www."&data&"</a></td></tr>"
.write "<tr><td><a href='http://www.google.be/search?hl=zh-cn&q=site:"&data&"+inurl:asp|aspx|cfm&btng=google+' target='_blank'>查扩展映射(asp|aspx|cfm)</a></td></tr>"
.write "<tr><td><a href='http://www.google.be/search?hl=zh-cn&q=site:"&data&"+inurl:cgi|jsp|pl|py|php|php3&btng=google+' target='_blank'>查扩展映射(cgi|jsp|pl|py|php|php3)</a></td></tr>"
.write "</table>"
.writeline "<br><br>"
.close
end with
loop
file.close
set fso=nothing
wscript.echo "ok"