Export DNS records to Excel to read time stamps and static records

Interesting Links – 6/15/2008

Matt Johnson's Technical Adventures — Wed, 11 Jun 2008 22:44:20 GMT

This week’s interesting collection of links! Kerberos Authentication problems – Service Principal Name

re: Export DNS records to Excel to read time stamps and static records

hilde — Tue, 07 Oct 2008 15:48:24 GMT

Excellent info to a common question!

re: Export DNS records to Excel to read time stamps and static records

Mladen — Wed, 14 Jan 2009 15:56:58 GMT

Thanks,

But in Vista you already have this option by default.

re: Export DNS records to Excel to read time stamps and static records

Pach — Mon, 16 Mar 2009 12:39:26 GMT

The first script did not work pretty well for me I had to replace this line:

rrtype = " "+Rtype(i) +" "

by this one:

rrtype = " "+Rtype(i) +" "

Thanks anyway

re: Export DNS records to Excel to read time stamps and static records

Anup — Wed, 08 Jul 2009 12:46:24 GMT

Beautiful! Thanks :)

Ohh and thanks to Rajeev and Kapil \m/

re: Export DNS records to Excel to read time stamps and static records

Mario — Tue, 04 Aug 2009 14:43:09 GMT

Perfect!!! Thanks, Rajeev and Kapil!!

I think the problem in the first script is copy&paste this line:

rrtype = " "+Rtype(i) +" "

To correct it, you only have to replace the spaces into " " with a keystroke of the TAB.

re: Export DNS records to Excel to read time stamps and static records

paulcerv — Wed, 18 Nov 2009 20:29:00 GMT

Few notes:

1 - You don't need to keep reading the file in every time you do a replace. Just work on the same string variable.

2 - You don't really need the extra variables strNewText and strNewText1.

3 - You are adding extra CRLF's to the end of the file. Just use Write.

re: Export DNS records to Excel to read time stamps and static records

paulcerv — Wed, 18 Nov 2009 21:10:54 GMT

I don't really understand the calculation for the timestamp and it looks like you are not taking the time zone into consideration. I'm getting half hour values??? Easier to see what is going on with dateadd in vbscript.

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_TimeZone")

For Each objTimeZone in colTimeZone

wscript.echo dateadd("n",objTimeZone.Bias,dateadd("h",<DNS timestamp>,"1-Jan-1601"))