بيئة التشغيل ، NT (الخادم ، محطة العمل) ، W2K
WSH2.0 أو أعلى مطلوب لتثبيته على الخادم
إذا لم يتم تثبيت نظامك حاليًا ، فيمكنك تنزيله من العنوان التالي
http://www.microsoft.com/msdownload/vbscript/scripting.asp
يتم تضمين WSH2.0
فيما يلي رمز المصدر
<٪@language = "vbscript" ٪>
<٪ OptionExplicit ٪>
<٪
ifrequest.form ("frmhost") = "" ثم
قم بتعيين القيمة الأولية
الشريط = request.servervariables ("REMOTE_ADDR")
آخر
الشريط = request.form ("frmhost")
Endif
٪>
<html>
<head>
<title> dnslookup [v1.0] </title>
</head>
<BodyBgColor = "#ffffff">
<formmethod = "post" name = "frmrdns">
<bilflelfor = "frmhost"> <u> المضيف: </u> </billy>
<inputType = "text" name = "frmhost" id = "frmhost"
value = "<٪ = Strip ٪>">
<inputType = "button" name = "btnsubmit" id = "btnsubmit"
value = "lookup" onClick = "document.frmrdns.submit ()">
</form>
<fontface = "arial" size = "2" color = "#003366">
<٪
rmethod = ucase (request.servervariables ("request_method")))
ifrmethod = "post" ثم
'Lookuphost
streturn = nslookup (الشريط)
ifstrreturn <> "" ثم
استجابة
آخر
'AlameHostisanyValidhosthatdnscannotresolve
'Seeinternicfordetails
استجابة. write "<b> lamehost-couldnotresolvednsfor" _
و Strip & "</b> <br>"
Endif
Endif
FunctionNslookup (Strhost)
'CreateshellObject
setoshell = server.createBject ("wscript.shell")
'runnslookupviacommandprompt
'dumpresultsintoatemptextFile
Oshell.run "٪ comspec ٪/cnslookup" و strhost_