DNS Record Creation

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

DNS Record Creation

Logged in as: Guest

arrSession:exec spGetSession 2,16,37593

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> DNS Record Creation
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

DNS Record Creation - 9/8/2006 7:36:21 AM 1 votes

mcds99

Posts: 407
Score: 4
Joined: 2/28/2006
Status: offline

If you haven't guessed I do DNS and DHCP Administratioin for a large international corporation.
This script is what I use when I can't get to the standard tools.
It creates the forward and reverse lookup records you need to install "dnscmd.exe" for this to work.

Replace the ##.##.##.## here afCmd = "dnscmd ##.##.##.## /recordadd target.com "
and here arCmd = "dnscmd ##.##.##.## /recordadd xx.in-addr.arpa " with your DNS server IP address.

And replace the xx here arCmd = "dnscmd ##.##.##.## /recordadd xx.in-addr.arpa with the first Octet of the network you work on.

'### dnscmd ##.##.##.## /recordadd target.com hal A xx.xxx.xx.xx
'### dnscmd ##.##.##.## /recordadd xx.in-addr.arpa xx.xx.xx ptr host.domain.com
'### Variables
Dim fRecord, rRecord, aHost
Dim afCmd, bfCmd
Dim arCmd, brCmd
Dim Dot, aIPaddress, rIPaddress, aFQDN
Dim strPathExcel, iRow
Dim oct1, oct2, oct3, oct4
Dim wrFile, fso
'### Value Variables
Dot = "."
strPathExcel = "C:\_SCRIPT\DNS\AddRecord\ifile.xls"
iRow = "1" 
ofile = "C:\_SCRIPT\DNS\AddRecord\ofile.txt"
'### Forward
afCmd = "dnscmd ##.##.##.## /recordadd target.com "
bfCmd = " A "
'### Reverse
arCmd = "dnscmd ##.##.##.## /recordadd xx.in-addr.arpa "
brCmd = " ptr "
'### Constructs
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set fSo = CreateObject("Scripting.FileSystemObject")
Set wrFile = fSo.OpenTextFile(oFile, ForAppending)
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.open strPathExcel
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
 do while objSheet.Cells(iRow, 1).Value <> ""
   ClmA = Trim(objSheet.Cells(iRow, 1).Value) '### add
   ClmB = Trim(objSheet.Cells(iRow, 2).Value) '### hostname
   ClmC = Trim(objSheet.Cells(iRow, 3).Value) '### ip address
   ClmD = Trim(objSheet.Cells(iRow, 4).Value) '### domain
   
   aHost = ClmB
   aIPaddress = ClmC
     fRecord = afCmd & ClmB & bfCmd & aIPaddress
     wrfile.writeline fRecord
   
   rIPaddress = ClmC
  Dim sTest  : sTest = rIPaddress
  Dim aParts : aParts = Split( sTest, "." )
  Dim sOctet
    For Each sOctet In aParts
      oct1 = aParts(0)
      oct2 = aParts(1)
      oct3 = aParts(2)
      oct4 = aParts(3)
    Next
   aFQDN = ClmB & Dot & ClmD
     rRecord = arCmd & oct4 & dot & oct3 & dot & oct2 & brCmd & aFQDN
     wrfile.writeline rRecord
     wrfile.writeline ""
   iRow = iRow + 1
 Loop
'### Close Files Exit Script.
objExcel.Workbooks.close
objExcel.Application.Quit
wscript.echo "Record Add Script Complete"
wScript.Quit

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF