[注册表类] [已解决]批处理检测在线ip和计算机名。。并对比txt文件（计算机名和ip）列表。。

@echo off
setlocal enabledelayedexpansion
::获取本机ip
for /f "tokens=1* delims=:" %%a in ('ipconfig ^| find /i "IP Address"') do (
    ::获取本机ip前三段
    for /f "tokens=1,2,3 delims=. " %%c in ("%%b") do set tip=%%c.%%d.%%e
)
echo;本机ip前三段%tip%

del /f /q ip-new.txt


::ping系列ip
for /l %%a in (2,1,150) do (
        ::通的话调用getname
        echo;%tip%.%%a
        (ping %tip%.%%a -n 1 -w 300  | findstr /i "TTL=")&&Call :getname %tip%.%%a
)

exit
pause&exit


:getname
::获取ping通的ip对应的主机名
for /f "tokens=1,* delims=^<" %%i in ('nbtstat -a %1^|find /i "<00>  UNIQUE"') do (
    ::提取主机名
		set "newname=%%i"
		set "newname=!newname: =!"
	)
echo;%1主机名!newname!
::查找Old_Name_IP.txt是否有该ip，有的话进行变量赋值
set oldip=
for /f "tokens=1*" %%m in ('findstr "%1\>" "ip-old.txt"') do (
    set oldname=%%m
    set oldip=%%n
)
echo;ip-old.txt是否存在!oldip!

::如果变量没有赋值，也就是Old_Name_IP.txt不存在该ip

echo; "!newname!"   "!oldname!"
if not defined oldip (
    >>ip-new.txt echo;!newname!   %1 
) else (
    if "!newname!" neq "!oldname!" (>>ip-new.txt echo;!newname!   %1 )
)


::返回ping
1pause

goto :eof
复制代码

@echo off

setlocal enabledelayedexpansion

echo,请输入你要查询的IP:
set /p strIP=
call :_CmpName !strIP! result
echo,当前IP !strIP!，与保存记录查询结果为 : !result!

pause
goto :EOF

:_CmpName
(
	call :_GetNameByIP %1 strName
	echo,取得计算机名为 : !strName!
	
	call :_GetOldNameByIP %1 strOldName
	echo,保存计算机名为 : !strOldName!
	
	if "!strName!" EQU "!strOldName!" (set %2=一致) else (set %2=不一致)
	
	goto :EOF
)

:_GetNameByIP
(
	REM echo,%%2 is : %2
	for /f "tokens=1,* delims=<" %%i in ('nbtstat -a %1^|findstr "<"') do (
		set "%2=%%i"
		set "%2=!%2: =!"
		goto :EOF
	)
	goto :EOF
)

:_GetOldNameByIP
(
	REM echo,%%2 is : %2
	for /f "tokens=1,*" %%i in ('findstr "%1\>" 初始值.txt') do (
		set "%2=%%i"
	)
	goto :EOF
)
复制代码