批处理打造网速检测器〖罗斌原创〗

管理公司的网上问题一定是很多管理员觉得头痛的事吧。当然我也不列外了,只要碰到几个不听话的员工,那就头疼啦,本来才3M的企业商业宽带,跑50多台PC,只要这50个人中间有2个人下载,势必影响公司的整体上网速度,那怎么办呢?使用P2P终结者,可以起到一定的效果,再者就是使用像我们公司一样的《深信服上网行为管理设备》了,不过不是一般的企业会买的起的哦,2W哦。不过这个设备还真的不是它说的那么理想!限制所有网速上传只有15K,下载最大50K,有时候还是会发现上网速度特别慢的情况,所以我就有想法了!如果我做一个可以实现监控网络速度的批处理来,实时监控网络的状态,那启不是很好吗?(其实这个想法早就有的,只是一直没做而已),好了动手,下面是两个版本的批处理,一个是我自己亲手写的,还有一个是借鉴网上别人写的,然后修改的,哈哈,我自己写的跟别人写的东西确实是差之千里啊,但是效果跟功能都一样。终于看到自己与比人的差距了,本来写完了这个批处理之后,想命名个好听的名字,然后去网上搜下有没有结果就搜到了下面的第二个版本了,好了。先说下我写这个批处理的思路吧。首先我根据的是ping域名的返回延迟结果来判断当前的网速是否为正常状态,正常状态是100MS为最正常的状态,而我们公司的话一般200―300ms那就算它是正常的吧。而到了700―800ms以上的话,那就是极为不正常了。肯定有人在下载东西,这个时候呢,就要通过批处理和messager服务来自动告诉管理员,嗯,有人在下载东西快去处理吧,这样管理员就会实时知道公司的网络情况了。所以根据这个思路,把我下面写的批处理贴出来给大家瞧瞧!呵呵。把下面文字保存为 网络检测.bat 就可以了。如果您觉得难得复制的话呢,直接 点击这里下载就是啦。


@echo off
color 0a
MODE con: COLS=60 LINES=10
title 网速检测器――网络管理员必备批处理 『罗斌制作』 QQ:287727615
:start
setlocal ENABLEDELAYEDEXPANSION
ping www.sina.com >c:\1.txt
::从1.txt里面裁取出含有time的行。
findstr "time" "c:\1.txt"  >>c:\new1.txt
::将time=前面的所有字符全部删除,并把结果重定向到new2.txt。
for /f "delims=" %%i in (c:\new1.txt) do set str=%%i&call,echo %%str:~39%% >>c:\new2.txt
::将TTL替换为空格并把结果重定向到test1.txt。
for /f "delims=" %%i in ('type c:\new2.txt') do (
    set str=%%i
    set "str=!str:TTL= !"
    echo !str!>>c:\test1.txt)
)
:::将56替换为空格并把结果重定向到test2.txt。
for /f "delims=" %%i in ('type c:\test1.txt') do (
    set str=%%i
    set "str=!str:56= !"
    echo !str!>>c:\test2.txt)
)
::去掉最后一行字符,并把结果重定向到test3.txt。
for /f "delims=" %%i in ('type c:\test2.txt ^| findstr "="') do (
    set str1=%%i
    set "str2=!str1:str1= !"
    echo !str2!>>c:\test3.txt)
)
:::将ms替换为空格并把结果重定向到test4.txt。
for /f "dalims=" %%i in ('type c:\test3.txt') do (
    set str=%%i
    set "str=!str:ms= !"
    echo !str!>>c:\test4.txt)
)
::比较出最大延迟的最大值和最小值,当最大值超过700ms的时候,
::使用net send给管理员发送网络不正常的消息!!!
@echo off&setlocel enabledelayedexpansion
for /f %%i in (c:\test4.txt) do (
  if not defined b set b=%%i
  if %%i GTR !a! set a=%%i
  if %%i LSS !b! set b=%%i
)
::echo !b! >c:\test5.txt &echo !a! >>c:\test5.txt
::发送消息和删除生成的临时文件。然后延迟300秒后再次跳到start执行
::以达到实时监控网络是否正常的目的!
if %a% GEQ 700  net send 192.168.1.30 网络不正常,可能有人下载,请管理员采取措施!!!
::start c:\info.html
del c:\1.txt
del c:\new1.txt
del c:\new2.txt
del c:\test1.txt
del c:\test2.txt
del c:\test3.txt
del c:\test4.txt
echo 最小网络延迟为:!b!&echo 最大网络延迟为:!a!
ping 127.0.0.1 -n 300 >nul
goto start
pause >nul




下面是我在网上搜的然后修改的批处理。呵呵,比我的短多了,功能一样!哎....

@echo off
MODE con: COLS=60 LINES=10
title 网速检测器――网络管理员必备批处理 『罗斌制作』 QQ:287727615
:start
set "url=www.baidu.com"
set "n=10"
echo 正在测试,请稍候...
for /f "tokens=1-4* delims==" %%a in ('ping /n %n% "%url%"^|find "Average"') do set "i=%%d" && goto :a
if "%i%"=="" cls & echo. & net sand 192.168.1.30 报告管理员您的网络掉线了,请立即检查您的网络......
pause>nul
:a
set "i=%i:ms=%"
set "i=%i: =%"
cls & echo ===平均Average: %i%ms=== & echo.
if %i% lss 500 (echo 网络连接正常) else net send 192.168.1.30 网络连接不正常,可能有人下载!请采取措施!&echo 网络连接不妥哦
ping -n 300 127.0.0.1 >nul
goto start
pause>nul



这些是网速正常的情况,如果网速不正常的时候,马上会提示:
当然要想有这个其实的话,管理员的机器一定要开启messager服务哦,不然是用不了net send命令的。



是不是很好呀。这个小巧的功能是不是很实用勒?


转载文章请标明:该文章转自 罗斌原创技术文章:http://luobin44.51.com 〖罗斌原创〗

你可能感兴趣的:(网速,检测器,〖罗斌原创〗,批处理打造网速检测器,luobin44)