Environnement de fonctionnement, NT (serveur, poste de travail), W2K
WSH2.0 ou plus doit être installé sur le serveur
Si votre système n'a pas actuellement installé WSH2.0, vous pouvez le télécharger à partir de l'adresse suivante
http://www.microsoft.com/msdownload/vbscript/scripting.asp
WSH2.0 est inclus
Vous trouverez ci-dessous le code source
<% @ Lingots = "vbscript"%>
<% OptionExplicite%>
<%
Ifrequest.form ("frmhost") = "" alors
'Réglez la valeur initiale
strip = request.servervariables ("reote_addr")
Autre
strip = request.form ("frmhost")
Endire
%>
<html>
<adal>
<Title> dnslookup [v1.0] </Title>
</ head>
<bodybgcolor = "# ffffff">
<formMethod = "post" name = "frmrdns">
<boulfor = "frmhost"> <u> hôte: </u> </ label>
<inputType = "text" name = "frmhost" id = "frmhost"
value = "<% = strip%>">
<inputType = "Button" name = "btnsubmit" id = "btnsubmit"
Value = "Lookup" onClick = "document.frmrds.Submit ()">
</ form>
<Fontface = "Arial" size = "2" color = "# 003366">
<%
rMethod = ucase (request.servervariables ("request_method"))
IfrMethod = "post" puis
'LookupHost
STRRETURN = NSLOOKUP (Strip)
Ifstrreturn <> "" alors
Réponse.WriteSTRreturn
Autre
'AlamehostisanyvalidhostthatdnscannotResolve
'SeeInternicfordTails
Réponse.write "<b> lamehost-CouldNotResolvednsfor" _
& Strip & "</b> <br>"
Endire
Endire
Functionnslookup (strhost)
'Creareshellobject
SetoShell = server.createObject ("wscript.shell")
'Runnslookupviacommandprompt
'DumpResultSintoAtEmpTextFile
Oshell.run "% comSpec% / cnslookup" & strhost_