ip_k="127.0.0.1"
Set sh = Server.CreateObject("wscript.shell")
sh.run "%comspec% /c ping -a "&ip_k&" > C:\Inetpub\wwwroot\test\ip_kernel.txt",0,true
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile("C:\Inetpub\wwwroot\test\ip_kernel.txt")
Do While Not ts.AtEndOfStream
data = data & ucase(trim(ts.readline))
loop
if not ts.AtEndOfStream then
response.write "ok"
else
response.write "沒有這個ip"
end if
ts.close
%>