WhoIs Control - Samples(Using with MTS/COM+)
1. Make sure WhoIs.ocx is registered on your computer and have all external dependencies
(if this computer doesn't have Visual Basic installed, it is recommended to run full setup)
2. Using MMC for Component services/MTS create a new package (you can use an existing one, if you prefer)
3. Drag WhoIs.ocx from Windows Explorer to "components" folder of this package.
4. Create ASP file and enter the following code:
On Error Resume Next
Set oWhoIs = Server.CreateObject("WhoIsControl.WhoIs")
oWhoIs.Server = "whois.internic.net"
oWhoIs.Query = "ostrosoft.com"
oWhoIs.Connect
If Err.Number <> 0 Then
Response.Write "Error " & Err.Number & ": " & Err.Description
Else
Response.Write oWhoIs.Result
End If
|
