Ambiente Operacional, NT (servidor, estação de trabalho), W2K
É necessário que o WSH2.0 ou superior seja instalado no servidor
Se o seu sistema não tiver atualmente o WSH2.0 instalado, você poderá fazer o download do seguinte endereço
http://www.microsoft.com/msdownload/vbscript/scripting.asp
WSH2.0 está incluído
Abaixo está o código -fonte
<%@Idioma = "vBScript"%>
<%OptionExplicit%>
<%
IfRequest.form ("frmHost") = "" então
'Defina o valor inicial
tira = request.Servervariables ("Remote_addr")
Outro
tira = request.form ("frmhost")
Endif
%>
<html>
<head>
<title> dnslookup [v1.0] </ititle>
</head>
<bodbgcolor = "#ffffff">
<formmethod = "post" name = "frmrdns">
<Bexkor = "frmHost"> <u> host: </u> </celt>
<inputtype = "text" name = "frmhost" id = "frmhost"
value = "<%= Strip%>">
<inputType = "Button" name = "btnsubMit" id = "btnsubMit"
value = "lookup" onclick = "document.frmrdns.submit ()">
</morm>
<fontface = "arial" size = "2" color = "#003366">
<%
rmethod = ucase (request.servervariables ("request_method")))
Ifrmethod = "post" então
'LookUpHost
strreturn = nslookup (tira)
Ifstrreturn <> "" então
Response.WritesTtrreturn
Outro
'AlameHostisanyValidHostthatdNScannotResolve
'SeeInternicfordEtails
Response.Write "<b> LameHost-CouldNotResolvedNs para" _
& Strip & "</b> <br>"
Endif
Endif
Functionnslookup (estrário)
'CreateShellObject
Setoshell = server.createObject ("wscript.shell")
'RunnsLookUpviacommandPrompt
'DumPRESULTSINTOTEMPTEXTFILE
oshell.run "%COMSPEC%/CNSLOOKUP" & STROST_