DNS 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 oDNS = CreateObject("DNSControl.DNS")
WScript.Echo oDNS.NameToAddress("localhost")
WScript.Echo oDNS.AddressToName("127.0.0.1")
If Err.Number <> 0 Then
WScript.Echo "Error " & Err.Number & ": " & Err.Description
Else
WScript.Echo "Success"
End If
|
