Betriebsumgebung, NT (Server, Workstation), W2K
WSH2.0 oder höher muss auf dem Server installiert werden
Wenn Ihr System derzeit nicht wsh2.0 installiert ist, können Sie es aus der folgenden Adresse herunterladen
http://www.microsoft.com/msdownload/vbscript/scripting.asp
WSH2.0 ist enthalten
Unten finden Sie den Quellcode
<%@Sprache = "vbscript"%>
<%OptionExplicit%>
<%
IfRequest.form ("frmhost") = "" Dann
'Setzen Sie den Anfangswert fest
Strip = Request.Servervariables ("remote_addr")
Anders
strip = request.form ("frmhost")
Endif
%>
<html>
<kopf>
<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 = "suchup" onclick = "document.frmrdns.submit ()">
</form>
<fontface = "arial" size = "2" color = "#003366">
<%
rMethod = uCase (Request.Servervariables ("Request_Method"))
IfrMethod = "post" dann
'Lookuphost
Streturn = nslookup (Streifen)
Ifstrreturn <> "" dann
Response.writessstrreturn
Anders
Alamehostisanyvalidhosthatdnscannotresolve
'SeeInternicfordetails
Response.write "<b> lamehost-couldnotresolvednsfor" _
& Strip & "</b> <br>"
Endif
Endif
Funktionslookup (Strhost)
'CreateShellObject
SetSoShell = server.createObject ("wscript.shell")
'Runnslookupviacommandprompt
'DumPresultSintoatempertextFile
oshell.run "%comspec%/cnslookup" & strhost_