Lingkungan Operasi, NT (Server, Workstation), W2K
WSH2.0 atau lebih tinggi harus diinstal di server
Jika sistem Anda saat ini tidak menginstal WSH2.0, Anda dapat mengunduhnya dari alamat berikut
http://www.microsoft.com/msdownload/vbscript/scripting.asp
Disertakan WSH2.0
Di bawah ini adalah kode sumber
<%@Language = "vbscript"%>
<%OptionExplicit%>
<%
Ifrequest.form ("frmhost") = "" Lalu
'Tetapkan nilai awal
strip = request.serverVariable ("remote_addr")
Kalau tidak
strip = request.form ("frmhost")
Endif
%>
<Html>
<head>
<title> dnslookup [v1.0] </iteme>
</head>
<bodybgcolor = "#ffffff">
<FormMethod = "POST" NAME = "FRMRDNS">
<LABELFOR = "FRMHOST"> <u> host: </u> </label>
<inputType = "text" name = "frmhost" id = "frmhost"
value = "<%= strip%>">
<inputType = "tombol" name = "btnsubmit" id = "btnsubmit"
value = "Lookup" ontClick = "document.frmrdns.submit ()">
</form>
<fontface = "Arial" size = "2" color = "#003366">
<%
rmethod = uCase (request.serverVariable ("request_method"))
Ifrmethod = "posting" lalu
'Lookuphost
strreturn = nslookup (strip)
Ifstrreturn <> "" Lalu
Response.Writesstreturn
Kalau tidak
'AlamehostisanyvalidhostthatdnsnotResolve
'Seeinternicfordetails
Response.write "<b> lamehost-couldnotresolvednsfor" _
& strip & "</b> <br>"
Endif
Endif
FunctionNslookup (Strhost)
'CreateShellObject
Setoshell = server.createObject ("wscript.shell")
'Runnslookupviacommandpromppt
'DumpresultSintoatemptextFile
oshell.run "%comspec%/cnslookup" & strhost_