批处理之家 - Powered by Discuz! Board

@echo off
setlocal enabledelayedexpansion
set "aa= "
———————————————————————————————————————————————————————————————
cls
for /f "tokens=15 delims= " %%i in ('ipconfig ^| find /i "IP Address"') do (
set fsip=%%i
)
echo %fsip%
for /f "tokens=1,2,3 delims=." %%i in ("%fsip%") do (
set a=%%i.%%j.%%k
)
echo %a%
set Gateway=%a%.1
———————————————————————————————————————————————————————————————
cls
del /f /q 在线计算机名-ip.txt >nul 2>nul
for /l %%m in (2,1,100) do (
ping.exe %a%.%%m -n 1 -w 300 >nul&&Call :getname %a%.%%m
)
———————————————————————————————————————————————————————————————
cls
start "" "在线计算机名-ip.txt"
exit
———————————————————————————————————————————————————————————————
cls
:getname
set iip=%1
set nname=
for /f "delims=" %%i in ('nbtstat -a !iip! ^| find /i "<00> UNIQUE"') do (
echo %%i
set tii=%%i
for /f "tokens=1 delims=< " %%j in ("!tii!") do echo %%j!aa!!iip!>>在线计算机名-ip.txt
goto :aa
)
for /f "delims=" %%j in ('nbtstat -a !iip! ^| find /i "Host not found"') do (
echo %%j
echo !iip!>>在线计算机名-ip.txt
)
:aa

复制代码

CB1 192.168.8.11
CB2 192.168.8.12
CB3 192.168.8.13
CB4 192.168.8.14
CB5 192.168.8.15
CB6 192.168.8.16
CB7 192.168.8.17
CB8 192.168.8.7
CB9 192.168.8.19
CB10 192.168.8.20
CB11 192.168.8.21
CB12 192.168.8.22
CB13 192.168.8.23
ZWDD 192.168.8.33
ZWJH1 192.168.8.31
ZWJH2 192.168.8.32
CBSbg1 192.168.8.38
NYJH 192.168.8.40
NYDD 192.168.8.42
SKTSYLS 192.168.8.36
gjsyls 192.168.8.35
YSJH 192.168.8.41
YSDD 192.168.8.39
YB 192.168.8.37
ZLCBS2 192.168.8.56
zhs 192.168.8.43
zhs1 192.168.8.44
BZDD 192.168.8.77

复制代码

@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
)

复制代码