在ASP中執行Ping命令,並且返回結果

來源:互聯網
上載者:User
執行 在ASP中執行Ping命令,並且返回結果


在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
%>


當然,我們也可以自己編寫相應的組件或者使用一些現成的組件來實現這樣的功能,

這裡就不多說了。





相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。