Entorno operativo, NT (servidor, estación de trabajo), w2k
Se requiere que se instale WSH2.0 o superior en el servidor
Si su sistema no tiene actualmente instalado WSH2.0, puede descargarlo desde la siguiente dirección
http://www.microsoft.com/msdownload/vbscript/scripting.asp
WSH2.0 está incluido
A continuación se muestra el código fuente
<%@Idioma = "vBscript"%>
<%OpcionExplicit%>
<%
Ifrequest.form ("frmhost") = "" entonces
'Establezca el valor inicial
strip = request.ServerVariAbles ("Remote_addr")
Demás
strip = request.form ("frmhost")
Endif
%>
<html>
<Evista>
<title> dnslookup [v1.0] </title>
</ablo>
<BodyBGColor = "#ffffff">
<formmethod = "post" name = "frmrdns">
<Labelfor = "frmhost"> <u> host: </u> </label>
<inputType = "text" name = "frmhost" id = "frmhost"
valor = "<%= 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 = "publicar" entonces
'Lookuphost
strreturn = nslookup (strip)
Ifstrreturn <> "" entonces
Respuesta.WritesStrreturn
Demás
'AlamehostisanyvalidhostThatdnscannotresolve
'Seeinternicfordetails
Respuesta
& Strip & "</b> <br>"
Endif
Endif
Functionnslookup (strhost)
'CreateShellObject
Setoshell = server.createObject ("wscript.shell")
'Runnslookupviacommandprompt
'DumPresultSintoatEptExtFile
Oshell.run "%ComSpec%/CNSLookup" y STHOST_