WhoIs Control - Samples(Using with VBScript)
1. Make sure DNS.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. Create file with extension ".vbs" and open it with text editor of your choice (Notepad is fine)
3. Enter the following code:
On Error Resume Next
Set oWhoIs = CreateObject("WhoIsControl.WhoIs")
oWhoIs.Server = "whois.internic.net"
oWhoIs.Query = "ostrosoft.com"
oWhoIs.Connect
If Err.Number <> 0 Then
WScript.Echo "Error " & Err.Number & ": " & Err.Description
Else
WScript.Echo oWhoIs.Result
End If
|
