call 应用求助 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

:start
@pause>nul|echo. 此为公用处理页，请按任意键退出！
@exit

:arpa
SETLOCAL ENABLEDELAYEDEXPANSION
for /f "tokens=2 delims=[]=" %%i in ('nbtstat -a %COMPUTERNAME%') do call set local=!local!%%i
for /f "tokens=3" %%i in ('netstat -r^|find " 0.0.0.0"') do set gm=%%i
ping %gm% -n 1
for /f "tokens=1,2" %%i in ('arp -a %gm%^|find /i /v "inter"') do set gate=%%i %%j
arp -s %gate%
arp -s %local%
@exit

:DNS
@echo.&echo.正在为你更换新的DNS，请稍候 ......
netsh i i s d "本地连接" static 202.96.128.86 PRIMARY >nul|Echo.&echo.设置主DNS成功！
netsh i i a d "本地连接" 202.96.128.86 index=2 >nul|Echo.&echo.添加第2个DNS成功
netsh i i a d "本地连接" 61.144.56.100 index=3 >nul|Echo.&echo.添加第3个DNS成功
netsh i i a d "本地连接" 202.96.128.166 index=4 >nul|Echo.&echo.添加第4个DNS成功
netsh i i a d "本地连接" 202.103.96.112 index=5 >nul|Echo.&echo.添加第5个DNS成功
@exit

:Disablevbs
regsvr32 /s /u scrrun.dll
regsvr32 /s /u wshom.ocx
regsvr32 /s scrobj.dll
regsvr32 /s wshext.dll
regsvr32 /s wshcon.dll
regsvr32 /s jscript.dll
regsvr32 /s vbscript.dll
regsvr32 /s /u "%Commonprogramfiles%\system\ado\msado15.dll"
Regsvr32 /s /u "%Commonprogramfiles%\System\Ole DB\oledb32.dll"
@exit