登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

糟老頭的地盤

老頭的地盤听老頭的

 
 
 

日志

 
 

局域网MAC地址扫描器(批处理)  

2008-05-26 14:11:30|  分类: study |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

echo off
cls
@echo ================================================
@echo ============局域网MAC地址扫描器=================
@echo =============扫描你所在的网段===================
@echo ================================================
@echo .
pause

set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&

echo ┌──────────────────────────────────────┐
set/p= <nul&%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%
echo     100%%
echo └──────────────────────────────────────┘
set b=
set a=■
set /a z=100

@echo [计算机名]      [Mac地址]     [IP地址]     [IPX]    [CDKey]    网关 DNS1 DNS2 DNS3 DNS4 >config.cfg
set /p getway= 请输入网关地址(必须):
set /p DNS1= 请输入DNS1地址(必须):
set /p DNS2= 请输入DNS2地址(必须):
set /p DNS3= 请输入DNS3地址(必须):
set /p DNS4= 请输入DNS4地址(必须):
If Exist ipconfig.txt Del ipconfig.txt   
ipconfig /all >ipconfig.txt
If Exist phyaddr.txt       Del phyaddr.txt
find "Host Name" ipconfig.txt >ComputerCfg.txt
For /f "skip=2 tokens=17" %%N In (ComputerCfg.txt) Do Set ComputerName=%%N
find "IP Address" ipconfig.txt >IPAddr.txt
For /f "skip=2 tokens=15" %%I In (IPAddr.txt) Do Set IP=%%I
find "Physical Address" ipconfig.txt >phyaddr.txt
For /f "skip=2 tokens=12" %%M In (phyaddr.txt) Do Set strMac=%%M
@Echo %IP% >ping.txt
For /f "delims=. tokens=1" %%M In (ping.txt) Do Set p1=%%M
For /f "delims=. tokens=2" %%M In (ping.txt) Do Set p2=%%M
For /f "delims=. tokens=3" %%M In (ping.txt) Do Set p3=%%M
set /a ipscan=0
goto panduan

:panduan
cls
set a=%a%■
set /a b=%ipscan%*100/254
set /a z=%ipscan%*100/254
@echo 完成进度 %z%%%

@echo    ┌──────────────────────────────────────────┐
@echo      %a% %b%%%
@echo    └──────────────────────────────────────────┘

IF %ipscan%==254 (
goto end
) ELSE (
goto scanip
)

:end
del c.txt
del c1.txt
del c2.txt
del ComputerCfg.txt
del IPAddr.txt
del ipconfig.txt
del phyaddr.txt
del ping.txt
set /a sum =5
set /a sum-=1

@echo .       文件已保存!
@echo .
@echo .
set/p=%sum% 秒后退出! <nul
if %sum% EQU 0 exit
ping /n 2 127.1 >nul
exit

:scanip
set /a ipscan+=1

ping /n 1 /w 300 %p1%.%p2%.%p3%.%ipscan% >c.txt
find    "Maximum" c.txt && Goto star
goto panduan

:star
nbtstat -a %p1%.%p2%.%p3%.%ipscan% >c1.txt
For /f "skip=2 tokens=4" %%X In (c1.txt) Do Set p5=%%X
find "UNIQUE" c1.txt >c2.txt
For /f "skip=2 tokens=1" %%N In (c2.txt) Do Set p6=%%N
@echo %p6%          %p5%          %p1%.%p2%.%p3%.%ipscan%          %ipscan%          请填写CS-CDKEY          %getway%          %DNS2%          %DNS3%          %DNS4%          %DNS1%>>config.cfg
goto panduan

  评论这张
 
阅读(884)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018