DNS query: Difference between revisions

Line 46:

::Uses NSLOOKUP Command. Also uses a dirty "parsing" to detect IP addresses.

:DNS_Lookup [domain]

setlocal enabledelayedexpansion

::Define TAB Character

::Define Variables and the TAB Character

set "dom=%~1"

set "record="

for /f "delims=" %%T in ('forfiles /p "%~dp0." /m "%~nx0" /c "cmd /c echo(0x09"') do set "TAB=%%T"

setlocal enabledelayedexpansion

set "record="

for /f "tokens=1* delims=:" %%x in ('nslookup "!dom!" 2^>nul') do (

set "~~data~~="

for /f "tokens=1* delims=:" %%x in ('nslookup "~~%~1~~" 2^>nul') do (

set "line=%%x"

if "!line:~0,4!"=="Name" set "record=yes"

if /i "!line:~0,4!"=="Name" set "record=yes"

if "!line:~0,5!"=="Alias" set "record="

if /i "!line:~0,5!"=="Alias" set "record="

if "!record!"=="yes" (

if "%%y"=="" (set "possible=%%x") else (set "possible=%%x:%%y")

for /f "tokens=*" %%a in ('echo(!possible!^|findstr /BC:"Address" /BC:"%TAB%"') do (~~set "x=%%a" & echo !x:*s: =!)~~

for /f "tokens=*" %%a in ('echo(!possible!^|findstr /BC:"Address" /BC:"%TAB%"') do (

set "x=%%a" & echo(!x:*s: =!

)

endlocal

goto :EOF</lang>

Line 68:

Line 71:

2001:200:dff:fff1:216:3eff:feb1:44d7

203.178.141.194

Press any key to continue . . .</pre>