1

私はすでに perl で逆引き参照を行うための小さなスクリプトを持っていますが、他のマシンにも perl がインストールされていない限り移植できません。同僚のマシンでシームレスに実行でき、カスタム コマンドに変換できるスクリプトが必要です (PATH および PATHEXT 環境変数を更新することにより)。スクリプト ファイルは移植可能であり、管理者以外のユーザーが利用できる必要があります。

バッチ スクリプトはこの目的に合っているようですが、gethostbyaddr API を呼び出す方法がわかりません。VBScript もオプションであり、それを受け入れると思います。

gethostbyaddr API

4

1 に答える 1

0

2 つのバッチ スクリプトを次に示します。うまくいけば、少なくとも1人が助けてくれます。

@ECHO OFF
::Lookup.bat
::http://www.computing.net/answers/programming/ip-by-hostname/25313.html
::Takes input file of hostnames and creates csv file with hostnames and IP addresses.
::Gets IP's using nslookup
:: Output in file hostnames.csv in current folder

if "%1"=="" goto :Syntax

SET SCRIPTPATH=%~p0
CD %SCRIPTPATH%

del hostnames.csv

for /f %%e in (%1) do call :LOOKUP %%e
echo Done!!!
goto :EOF

:LOOKUP
SET HOST1=%1
FOR /F "skip=4 tokens=2 delims=:" %%A IN ('2^>NUL nslookup %1') DO ( ECHO %1,%%A>>%SCRIPTPATH%hostnames.csv )
GOTO :EOF

:Syntax
echo.
echo Syntax:
echo.
echo %0 ^<FileName^>
echo.
echo   where ^<FileName^> is a file containing a list of hostnames.
echo.
echo   The batch file will return the results to file hostnames.csv in current folder
goto :EOF

@echo off
::gethostname.bat
::Takes input file of IP addresses and creates csv file with IP address and hostnames.
::Gets hostnames using netBIOS, which is usually accurate. If no info avail from
::netBIOS, then use nslookup. Plenty of debug statements in screen output. :)
:: Output in file C:\TEMP\ip-resolved.csv

if "%1"=="" goto :Syntax

SET SCRIPTPATH=%~p0
CD %SCRIPTPATH%

echo ip,hostname,power>C:\TEMP\ip-resolved.csv
for /f %%e in (%1) do call :PING-NBT %%e
echo Done!!!
goto :EOF

:PING-NBT
set ipaddress=%1
set host1=
echo.
echo ***Pinging %ipaddress%
SET ON=0
PING -n 1 %1 | find /i "Reply from" >nul && SET ON=1
echo Just parsed ping reply... host is %ON%
REM Next line skips netBIOS check if host is offline
IF "%ON%"=="0" GOTO :LOOKUP %ipaddress% %ON%
echo Proceeding to nbtstat with host %on%

REM The next lines check netBIOS name.
echo nbt1-start
for /f %%i in ('nbtstat -a %1^|find "<20>"') do @set host1=%%i
echo nbt=%host1% power=%ON%
REM If there isn't a NetBIOS name, then skips to nslookup section.
REM echo %2
if "%host1%"=="" goto :LOOKUP %1 %ON%
ECHO %ipaddress%,%host1%,%ON% >> C:\TEMP\ip-resolved.csv
echo nbt2-end
goto :EOF

:LOOKUP
echo nslookup1-start
for /f "tokens=2" %%i in ('nslookup %1^|find "Name:"') do @set host1=%%i
echo nslookup=%host1% power=%2
REM Next line=if host var 
rem if not "%host1%"=="%1" goto :EOF
ECHO %ipaddress%,%host1%,%2 >>C:\TEMP\ip-resolved.csv
set host1=
echo nslookup2-end
goto :EOF

:Syntax
echo.
echo Syntax:
echo.
echo %0 ^<FileName^>
echo.
echo   where ^<FileName^> is a file containing a list of IP addresses to
echo         which we need the hostname.
echo.
echo   The batch file will return the results via a file
echo   C:\TEMP\ip-resolved.csv
goto :EOF
于 2012-08-28T16:48:14.167 に答える