DNS Control - Samples(Using with MTS/COM+)
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. Using MMC for Component services/MTS create a new package (you can use an existing one, if you prefer)
3. Drag DNS.ocx from Windows Explorer to "components" folder of this package.
4. Create ASP file and enter the following code:
On Error Resume Next
Set oDNS = Server.CreateObject("DNSControl.DNS")
Response.Write oDNS.NameToAddress("localhost")
Response.Write oDNS.AddressToName("127.0.0.1")
If Err.Number <> 0 Then
Response.Write "Error " & Err.Number & ": " & Err.Description
Else
Response.Write "Success"
End If
|
