ASPSocks kan hentes fra
www.ServerObjects.com
<%@ Language=VBScript %>
<H1>Whois Lookup</H1>
<FORM>
<INPUT type="text" name="DNS" value="<%=Request.QueryString("DNS")%>">
<INPUT type="submit" value="Lookup">
</FORM>
<HR>
<%
Dim objASPSocks
Dim strResponse
Set objASPSocks = Server.CreateObject("AspSock.Conn")
objAspSocks.RemoteHost = "whois.networksolutions.com"
objAspSocks.Port = 43
objAspSocks.Open
objAspSocks.WriteLn(Request.QueryString("DNS"))
strResponse = objAspSocks.ReadBytesAsString(-1)
objAspSocks.Close
Set objASPSocks = Nothing
Response.Write "<PRE>" & strResponse & "</PRE>"
%>