欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-03-21 11:06:07
碰到虚拟机的时候,还是能偷点懒的 :-)复制代码 代码如下: on error resume next set arg=wscript.arguments if arg.c...
碰到虚拟机的时候,还是能偷点懒的 :-)
复制代码 代码如下:

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"