FindServer.vbs的ASP版本  FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本 FindServer.vbs的ASP版本 FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本 |
文谷 www.wengu.com
来源：网络 作者：佚名
时间：2006-4-10 浏览人数：
|
FindServer.vbs的ASP版本 FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本
默认情况下Users用户没有执行Cscript的权限,所以今天渗透的时候顺便写了一下这个ASP版本.....凑活用吧......注意主机必须有WSH 5.6以上的版本...而且支持WSH和ICMP.本探测主机也需要支持ICMP......仅此而已....
OK....下面是代码
程序代码：
<Html>
<Head>
<Title>Naruto! FindServer</title>
</Head>
</Body>
<!--Codz By kEvin1986-->
<!--版权所有~-->
<!--Copyright (c) 2002-2005 kEvin1986-->
<font size=2>
<%
Timeout=300 '你可以设置脚本超时时间来延长程序的执行延时.
Server.ScriptTimeOut = Timeout
Response.Write "当前脚本超时时间为"&Timeout/60&"分钟<Br>"&vbcrlf
On Error Resume Next '容错处理
Dim Wsh
Set Wsh=Server.CreateObject("Wscript.Shell") '创建WSH运行对象
LocalIP=Request.ServerVariables("LOCAL_ADDR") '获取本机IP
LocalNet=Replace(LocalIP,Split(LocalIP,".")(3),"") '获取本机所在网段
Response.Write "当前IP:"&LocalIP&"<Br>"&vbcrlf&"当前网段:"&LocalNet&"*<Br>"&vbcrlf&"<Hr>"&vbcrlf&"相同交换机下的主机:"&vbcrlf
'开始执行探测模块
sStart=Request("Start")
sEnd=Request("End")
If NOT sStart="" or sEnd="" Then
For i=sStart to sEnd
sResult=Wsh.exec("ping.exe "&LocalNet&i&" -l 1 -n 1").StdOut.Readall '运行并取得结果
If Instr(sResult,"TTL=128") Then '分析结果
Response.Write "<li>"&LocalNet&i&"<Br>"&vbcrlf '输出结果
count=count+1 '统计所有机器
End If
Next
If Count=0 Then
Response.Write "<Br><li>从 "&LocalNet&sStart&" 到 "&LocalNet&sEnd&" 没有与本机在同一交换机下的机器<Br>"&vbcrlf
Else
Response.Write "<li>一共有"&Count&"台主机与本机在同一交换机下<Br>"&vbcrlf
End If
End If
Set Wsh=Nothing '释放Wsh
'探测结束
%>
<Hr><Form method="POST">
从 <%=LocalNet%><Input Name=Start type=text size=1> 探测到 <%=LocalNet%><Input Name=End type=text size=1>
<input type=submit value='开始探测'>
</form>
</font>
</body>
</Html>
FindServer.vbs的ASP版本 FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本 |
|
|
版权与免责声明：① 本网转载其他媒体稿件是为传播更多的信息，此类稿件不代表本网观点，版权归原作者所有，本网不承担此类稿件侵权行为的连带责任。
② 本站原创文章，转载时请注明出自文谷及作者姓名
③在本网 BBS上发表言论者，文责自负。
④如您因版权等问题需要与本网联络，请在30日内联系 。
FindServer.vbs的ASP版本 FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本 FindServer.vbs的ASP版本 FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本2006-4-10 22:53:51FindServer.vbs的ASP版本
|
