Create a new zone with common records

Code sample:
Create a new zone with common records

This code sample creates a new DNS zone with 2 NS-records and associated A-records, a web-server A-record, and e-mail server records.

C#:

using System;
using JHSoftware.SimpleDNSPlus;
namespace cs_sample
{
    class Program
    {
        static void Main(string[] args)
        {
            Connection SDNSConn = new Connection("127.0.0.1", 8053, "password");
            DNSZone Zone = SDNSConn.CreateZone("testzone.com", "ns1.testzone.com", "hostmaster@testzone.com");
            Zone.Records.Add("ns1.testzone.com", "A", "1.1.1.1");
            Zone.Records.Add("testzone.com", "NS", "ns2.testzone.com");
            Zone.Records.Add("ns2.testzone.com", "A", "2.2.2.2");
            Zone.Records.Add("www.testzone.com", "A", "3.3.3.3");
            Zone.Records.Add("testzone.com", "MX", "10", "mail.testzone.com");
            Zone.Records.Add("mail.testzone.com", "A", "4.4.4.4");
            SDNSConn.UpdateZone(Zone, true);
        }
    }
}

VB.NET:

Imports JHSoftware.SimpleDNSPlus
Module Module1
  Sub Main()
    Dim SDNSConn As New Connection("127.0.0.1", 8053, "password")
    Dim Zone As DNSZone = SDNSConn.CreateZone("testzone.com", "ns1.testzone.com", "hostmaster@testzone.com")
    Zone.Records.Add("ns1.testzone.com", "A", "1.1.1.1")
    Zone.Records.Add("testzone.com", "NS", "ns2.testzone.com")
    Zone.Records.Add("ns2.testzone.com", "A", "2.2.2.2")
    Zone.Records.Add("www.testzone.com", "A", "3.3.3.3")
    Zone.Records.Add("testzone.com", "MX", "10", "mail.testzone.com")
    Zone.Records.Add("mail.testzone.com", "A", "4.4.4.4")
    SDNSConn.UpdateZone(Zone)
  End Sub
End Module

Visual Basic 6:

Sub Main()
  Dim SDNSConn As New Connection
  SDNSConn.Init "127.0.0.1", 8053, "password"
  Dim Zone As DNSZone
  Set Zone = SDNSConn.CreateZone("testzone.com", "ns1.testzone.com", "hostmaster@testzone.com")
  Zone.Records.Add "ns1.testzone.com", "A", "1.1.1.1"
  Zone.Records.Add "testzone.com", "NS", "ns2.testzone.com"
  Zone.Records.Add "ns2.testzone.com", "A", "2.2.2.2"
  Zone.Records.Add "www.testzone.com", "A", "3.3.3.3"
  Zone.Records.Add "testzone.com", "MX", "10", "mail.testzone.com"
  Zone.Records.Add "mail.testzone.com", "A", "4.4.4.4"
  SDNSConn.UpdateZone Zone
End Sub

VBScript:

Set SDNSConn=CreateObject("SDNSAPI.Connection")
SDNSConn.Init "127.0.0.1",8053,"password"
Set Zone=SDNSConn.CreateZone("testzone.com", "ns1.testzone.com", "hostmaster@testzone.com")
Zone.Records.Add "ns1.testzone.com", "A", "1.1.1.1"
Zone.Records.Add "testzone.com", "NS", "ns2.testzone.com"
Zone.Records.Add "ns2.testzone.com", "A", "2.2.2.2"
Zone.Records.Add "www.testzone.com", "A", "3.3.3.3"
Zone.Records.Add "testzone.com", "MX", "10", "mail.testzone.com"
Zone.Records.Add "mail.testzone.com", "A", "4.4.4.4"
SDNSConn.UpdateZone (Zone)

Code sample: Create a new zone with common records

Code sample:
Create a new zone with common records