Операционная среда, NT (сервер, рабочая станция), W2K
WSH2.0 или выше необходимо установить на сервере
Если в настоящее время в вашей системе нет WSH2.0, вы можете загрузить ее с следующего адреса
http://www.microsoft.com/msdownload/vbscript/scripting.asp
WSH2.0 включен
Ниже приведен исходный код
<%@Language = "vbscript"%>
<%OptionExplicit%>
<%
Ifrequest.form ("frmhost") = "" then
'Установите начальное значение
strip = request.servervariables ("remote_addr")
Еще
strip = request.form ("frmhost")
Эндиф
%>
<html>
<голова>
<title> dnslookup [v1.0] </title>
</head>
<bodybgcolor = "#ffffff">
<formmethod = "post" name = "frmrdns">
<labelfor = "frmhost"> <u> host: </u> </label>
<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" then
'Lookuphost
strreturn = nslookup (полоса)
Ifstrreturn <> "" Тогда
Response.writesstrreturn
Еще
'Alamehostisanyvalidhostthatdnscannotresolve
'Seeinternicfordetails
Response.write "<b> lamehost-couldnotresolvednsfor" _
& Strip & "</b> <br>"
Эндиф
Эндиф
Functionnslookup (strhost)
'CreateShellObject
Setoshell = server.createObject ("wscript.shell")
'Runnslookupviacommandprompt
'Dumpresultsintoatemptextfile
oshell.run "%compec%/cnslookup" & strhost_