在ASP中执行Ping命令,并且返回结果
2005-02-19 10:29:20 来源:WEB开发网在Win2000系统中,可以通过Wscript.Shell对象的Exec方法执行命令,
简单的代码如下:
<% Response.Buffer = true %>
<%
url = "www.toPRonet.com"
Set objWShell = CreateObject("WScript.Shell")
Set objCmd = objWShell.Exec("ping " & url)
strPResult = objCmd.StdOut.Readall()
set objCmd = nothing: Set objWShell = nothing
strStatus = "离线"
if InStr(strPResult,"TTL=")>0 then strStatus = "在线"
response.write url & " 状态为: " & strStatus
response.write ".<br>" & replace(strPResult,vbCrLf,"<br>")
response.write "<br><hr>慈勤强编写,欢迎访问<a href='http://blog.csdn.net/cQQ'
target='_blank'>http://blog.csdn.net/cqq</a>"
%>
在XP系统或者Windows.NET Server系统中,可以使用WMI来实现,
代码如下:
<%
url = "www.topronet.com"
WMI = "winmgmts:{impersonationLevel=impersonate}"
wqlQuery = "SELECT StatusCode FROM Win32_PingStatus WHERE Address" & _
" = '" & url & "'"
set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Response.write url & " 状态 "
For Each result in PingResult
if clng(result.StatusCode)>0 then
response.write "离线"
else
response.write "在线"
end if
Next
%>
当然,我们也可以自己编写相应的组件或者使用一些现成的组件来实现这样的功能,
这里就不多说了。
- ››asp.net页面弄成伪静态页面
- ››Asp.net 中将汉字转换成拼音的方法
- ››ASP.NET及JS中的cookie基本用法
- ››ASP.NET获取MS SQL Server安装实例
- ››asp.net实现调用百度pai 在线翻译英文转中文
- ››ASP.NET页面选项进行提示判断
- ››Asp.net定时执行程序
- ››ASP.NET中利用DataList实现图片无缝滚动
- ››ASP.NET验证控件RequiredFieldValidator
- ››ASP.NET中使用System.Net.Mail发邮件
- ››ASP.NET中获取用户控件中控件的ID
- ››ASP.NET中FileBytes写成文件并存档
更多精彩
赞助商链接