สภาพแวดล้อมการทำงาน, NT (เซิร์ฟเวอร์, เวิร์กสเตชัน), W2K
ต้องติดตั้ง WSH2.0 หรือสูงกว่าบนเซิร์ฟเวอร์
หากระบบของคุณไม่ได้ติดตั้ง WSH2.0 ในปัจจุบันคุณสามารถดาวน์โหลดได้จากที่อยู่ต่อไปนี้
http://www.microsoft.com/msdownload/vbscript/scripting.asp
รวม WSH2.0
ด้านล่างคือซอร์สโค้ด
<%@language = "vbscript"%>
<%ตัวเลือก Explicit%>
-
ifrequest.form ("frmhost") = "" แล้ว
'ตั้งค่าเริ่มต้น
strip = request.serverVariables ("remote_addr")
อื่น
strip = request.form ("frmhost")
endif
-
<html>
<head>
<title> dnslookup [v1.0] </title>
</head>
<bodybgcolor = "#ffffff">
<formMethod = "post" name = "frmrdns">
<labelfor = "frmhost"> <u> โฮสต์: </u> </lable>
<inputType = "text" name = "frmhost" id = "frmhost"
value = "<%= strip%>">
<inputType = "ปุ่ม" name = "BTNSUBMIT" id = "BTNSUBMIT"
value = "lookup" onclick = "document.frmrdns.submit ()">>
</form>
<fontface = "Arial" size = "2" color = "#003366">
-
rmethod = ucase (request.serverVariables ("request_method"))))))))))))))))))
ifrmethod = "โพสต์" แล้ว
'lookuphost
strreturn = nslookup (แถบ)
ifstrreturn <> "" แล้ว
Response.writessTrreturn
อื่น
'alamehostisanyvalidhostthatdnscannotresolve
'SEEINTERNICFORDETAILS
Response.write "<b> lamehost-couldnotresolvednsfor" _
& strip & "</b> <br>"
endif
endif
functionnslookup (strhost)
'createShellObject
SetOsHell = Server.CreateObject ("WScript.shell"))
'runnslookupviacommandprompt
'dumpresultsintoatextextfile
oshell.run "%comspec%/cnslookup" & strhost_