Retrieve IP Info for all DNS Records.

dropdeadgreggie · 2010-03-17T06:40:40.000Z

Description

Output to a text file via “run prompt” by using cscript myscript.vbs > c:\log.txt

Source Code

Dim IPAdd
Dim Computer
strComputer = "." ' DNS Server Name Here
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDNS") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM MicrosoftDNS_PTRType",,48) 
For Each objItem in colItems 

    CompNameArray = Split(objItem.RecordData ,  ".")
    For i = LBound(CompNameArray) to UBound(CompNameArray)
    Computer = CompNameArray(0)
    Next

    Wscript.Echo "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
    Wscript.Echo "DNS Info for - " & UCase(Computer)
    Wscript.Echo "////////////////////////////////////" & vbCrLf
    Wscript.Echo "DNSServerName: " & objItem.DnsServerName

    IPAddArray = Split (objItem.OwnerName , ".")
    
    For i = LBound(IPAddArray) to UBound(IPAddArray)
    IPAdd = IPAddArray(3) & "." & IPAddArray(2) & "." & IPAddArray(1) & "." & IPAddArray(0)
    Next
    
    WScript.Echo "IP Address: " & IPAdd
    Wscript.Echo "FullyQualifiedDomainName: " & objItem.RecordData
    Wscript.Echo "Timestamp: " & objItem.Timestamp & vbCrLf

Next

alanobrien0072 · 2014-08-21T06:06:56.000Z

Get an error when i run Line: 4 Char: 1 Error: 0x8004100E Corde: 8004100E Source: Null