批处理之家 - Powered by Discuz! Board

@echo off
setlocal enabledelayedexpansion
cd /d D:\我的文档\系统设置\驱动备份
set run=%~dp0
cls
if not exist adsl.ini echo 没找到宽带拨号设置备份文件。&goto BEGIN
for /f "tokens=2 delims=:" %%i in ('type adsl.ini^|find "链接名称"') do set linkname=%%i
for /f "tokens=2 delims=:" %%i in ('type adsl.ini^|find "用户名称"') do set uname=%%i
for /f "tokens=2 delims=:" %%i in ('type adsl.ini^|find "口令 "') do set upass=%%i
set linkname=%linkname:~1,99%
set uname=%uname:~1,99%
set upass=%upass:~1,99%
rem 生成rasphone.pbk文件
(echo [PPPoE]
echo Encoding=1
echo Type=5
echo AutoLogon=0
echo UseRasCredentials=0
echo DialParamsUID=17073671
echo Guid=FEB7DE67D8A49E4C89AFEE9315C22C7D
echo BaseProtocol=1
echo VpnStrategy=0
echo ExcludedProtocols=3
echo LcpExtensions=1
echo DataEncryption=8
echo SwCompression=1
echo NegotiateMultilinkAlways=0
echo SkipNwcWarning=0
echo SkipDownLevelDialog=0
echo SkipDoubleDialDialog=0
echo DialMode=1
echo DialPercent=75
echo DialSeconds=120
echo HangUpPercent=10
echo HangUpSeconds=120
echo OverridePref=15
echo RedialAttempts=3
echo RedialSeconds=60
echo IdleDisconnectSeconds=0
echo RedialOnLinkFailure=1
echo CallbackMode=0
echo CustomDialDll=
echo CustomDialFunc=
echo CustomRasDialDll=
echo AuthenticateServer=0
echo ShareMsFilePrint=0
echo BindMsNetClient=0
echo SharedPhoneNumbers=0
echo GlobalDeviceSettings=0
echo PrerequisiteEntry=
echo PrerequisitePbk=
echo PreferredPort=
echo PreferredDevice=
echo PreferredBps=0
echo PreferredHwFlow=0
echo PreferredProtocol=0
echo PreferredCompression=0
echo PreferredSpeaker=0
echo PreferredMdmProtocol=0
echo PreviewUserPw=1
echo PreviewDomain=0
echo PreviewPhoneNumber=0
echo ShowDialingProgress=1
echo ShowMonitorIconInTaskBar=1
echo CustomAuthKey=-1
echo AuthRestrictions=632
echo TypicalAuth=1
echo IpPrioritizeRemote=1
echo IpHeaderCompression=0
echo IpAddress=0.0.0.0
echo IpDnsAddress=0.0.0.0
echo IpDns2Address=0.0.0.0
echo IpWinsAddress=0.0.0.0
echo IpWins2Address=0.0.0.0
echo IpAssign=1
echo IpNameAssign=1
echo IpFrameSize=1006
echo IpDnsFlags=0
echo IpNBTFlags=0
echo TcpWindowSize=0
echo UseFlags=1
echo IpSecFlags=0
echo IpDnsSuffix=
echo.
echo NETCOMPONENTS=
echo ms_server=0
echo ms_msclient=0
echo.
echo MEDIA=rastapi
echo Port=PPPoE6-0
echo Device=WAN 微型端口 (PPPOE^)
echo.
echo DEVICE=PPPoE
echo PhoneNumber=
echo AreaCode=
echo CountryCode=1
echo CountryID=1
echo UseDialingRules=0
echo Comment=
echo LastSelectedPhone=0
echo PromoteAlternates=0
echo TryNextAlternateOnFail=1)>rasphone.pbk
copy /y rasphone.pbk "%allusersprofile%\Application Data\Microsoft\Network\Connections\Pbk" >nul
(echo set ws=createobject("wscript.shell"^)
echo ws.run "rasphone -a"
echo wscript.sleep 500
echo ws.sendkeys "%%{r}"
echo wscript.sleep 300
echo ws.sendkeys "%%{n}"
echo wscript.sleep 300
echo ws.sendkeys "{enter}"
echo wscript.sleep 300
echo ws.run "cmd /c ncpa.cpl",0
echo wscript.sleep 1000
echo ws.sendkeys "{down}"
echo wscript.sleep 500
echo ws.sendkeys "%%{f}"
echo wscript.sleep 500
echo ws.sendkeys "{s}"
echo wscript.sleep 300
echo ws.sendkeys "{y}"
echo wscript.sleep 300
echo ws.sendkeys "%%{f4}"
echo ws.run "rasphone -d 宽带连接"
echo wscript.sleep 1000
echo ws.sendkeys "%uname%"
echo wscript.sleep 300
echo ws.sendkeys "{tab}"
echo ws.sendkeys "%upass%"
echo wscript.sleep 300
echo ws.sendkeys "%%{s}"
echo wscript.sleep 300
echo ws.sendkeys "%%{c}")>网络连接.vbs
start /wait 网络连接.vbs
del /f /q rasphone.pbk 网络连接.vbs
del 网络连接.vbs
:BEGIN
set i=1
set str=0
for /f "skip=3 delims=" %%j in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}" /s') do (
set str=%%j
set str=!str:HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\=!
set str="!str:&=!"
set str=!str:"=!
set str=!str: =!
set n=!str:}=!
set j=!str:~0,-1!
rem ECHO 末尾判断：“!n!”==“!j!”
if "!n!"=="!j!" (
rem echo !n!=!j!
set doc=!str!
set netreg=
for /f "tokens=2 delims=_" %%k in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\!doc!\Connection" /v "Name" 2^>nul') do set netreg=%%k
if not "!netreg!"=="" (
set delsp=!netreg:1394=!
if not "!delsp!"=="!netreg!" set netreg=
)
rem echo 从318}\!doc!}\Connection取出名字=“!netreg!”
if not "!netreg!"=="" (
set netreg=!netreg:~3,99!
call :delspace "!netreg!" & set netreg=!delsp!
rem echo \!doc!\Connection中取出名字=“!netreg!”
set link!i!=!netreg!
for /f "skip=1 tokens=3" %%k in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\!doc!\Connection" /v "PnpInstanceID" 2^>nul') do set str="%%k"
set delsp="!str:&=!"
call :delspace "!str!"
rem echo 取："HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\!doc!\Connection" /v "PnpInstanceID"
set delsp=!delsp:"=!
set cardid!i!=!delsp!
set regid!i!=!doc!
:: echo 现在的硬件注册表："!doc!" 网卡文件名："!netreg!.rgn",网卡ID："!delsp!"应该在文件!netreg!.crd中
call :BAKREST
set /a i=!i!+1
)
)
)
if "!str!"=="0" echo 没找到网络连接。
rd /q /s c:\windows\systemxx 2>nul
:END
pause>nul
exit
:delspace
set delsp=%~1
set delsp=%delsp:"=%
set tmp1=!delsp:~0,1!
set tmp2=!delsp:~-1!
if "!tmp1!"==" " set delsp=%delsp:~2,256%&goto delspace
if "!tmp2!"==" " set delsp=%delsp:~0,-1%&goto delspace
if "!tmp1!"==" " set delsp=%delsp:~1,256%&goto delspace
if "!tmp2!"==" " set delsp=%delsp:~0,-1%&goto delspace
goto :eof
:BAKREST
del temp.tmp >nul 2>nul
for /f %%i in ('dir /b "*.crd"') do (
set tmp1=%%i
rem tmp1为正在查找的文件名不带扩展名
set tmp1=%%~ni
for /f %%l in ('type "%%i" 2^>nul') do (
set str=%%l
if "!str!"=="" goto :eof
del temp.tmp >nul 2>nul
:: echo 如果取出的!str!硬件特征串=以前取出的现在硬件特征串!delsp!，如果存在同主名文件!tmp1!.rgn则读取之
if !str!==!delsp! if exist "!tmp1!.rgn" for /f "delims=" %%m in ('type "!tmp1!.rgn"') do (
set tmp1=%%m
set tmp1=!tmp1:[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\=!
:: echo 临时变量=!tmp1!,对比参数为%%m
if !tmp1!==%%m (echo !tmp1!>>temp.tmp) else echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\!doc!]>>temp.tmp
)
echo.>>temp.tmp
if not exist temp.tmp echo 没有找到这个!str!匹配的备份文件
if exist temp.tmp set /p=找到网卡备份文件，准备恢复<nul& set netreg="" &reg import temp.tmp>nul 2>nul && echo 恢复成功||恢复失败
)
)
del temp.tmp >nul 2>nul
goto :eof