多账号拨号脚本

@if exist %systemroot%\testfile.tmp goto StartWithAdmin
@echo Set UAC = CreateObject^("Shell.Application"^)>getadm.vbs
@echo UAC.ShellExecute "%~0", "%*", "", "runas", 1 >>getadm.vbs
一个多账号拨号脚本，可以实现自动修改mac，然后建立拨号（是不同的宽带账号），并且会记录下每次拨号的返回代码，例如691什么的
还会记录下上次拨号时间，现在就是因为每次要更新这些信息，我很希望可以将所有东西都做在一个文件内，目前只能讲所有的账号信息建在另一个文本内，这样复制文件的 时候，就要复制两个，
@getadm.vbs
@goto :eof
:StartWithAdmin
@del %systemroot%\testfile.tmp
@if exist getadm.vbs del getadm.vbs
@pushd "%~dp0"
:::::::::::::::::::::::::::::auto touch UAC:::::::::::::::::::::::::::::
if exist mac.txt del mac.txt /q
for /l %%r in (1,1,%账号%) do echo.!MAC%%r!_!户名%%r!_!密码%%r!_!描述%%r!_!状态%%r!>>mac.txt
(echo.拨号结果： %%状态%xx%%%&echo.&echo.如需断开临时连接，请使用rasdial /d命令)|msg %username% /w
if [%%e]==[] (set 状态!账号!=-) else (set 状态!账号!=%%e)
if not [%%d]==[] (
set /a 差=%现在时间%-%%d
call :SJC1 差 !差!
set 描述!账号!=%%d
set 描述差!账号!=!差!
)
)
if %账号%==0 (
@echo off
set 忽略行=340
cls
color 07
set 本文件路径=%0
set "本文件路径=%本文件路径:"=%"
set 电话薄=%APPDATA%\Microsoft\Network\Connections\Pbk\rasphone.pbk
title %本文件路径%
set uf=[!Name%xz%!] !FriendlyName%xz%!
:oo
cls
color 79
echo 已选择网卡:（输入0重新选择网卡）
echo %uf%
echo ┏━━━┯━━┯━━━┯━━━━━┯━━━━━━━━┓
echo ┃ 序号 ║状态║ 账号 ║ MAC地址 ║ 上次拨号距今 ┃
echo 请手动在本文最后按格式正确添加拨号所需信息后再运行&echo.格式为：mac地址_账号_密码（请用下划线相互隔开）&echo.现在退出
pause>nul
goto EOF
)
rem 转换成大写母
for /l %%r in (1,1,%账号%) do (
for %%i in (A B C D E F) do call set MAC%%r=%%MAC%%r:%%i=%%i%%
)
if %网卡%==1 (
set "uf=[%Name1%] %FriendlyName1%"
goto oo
)
:123
cls
color 72
for /l %%d in (1,1,%网卡%) do (
set no= %%d
set nn=[!Name%%d!]
rem 确认所有物理网卡类别号
for /l %%a in (1,1,%网卡%) do (
call :z HLM %%a Driver Driver HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\
)
rem 获取物理网卡唯一型号
文件类型：windows 批处理
测试系统：WIN7 sp1
已知问题：xp下出现“命令行参数过多”错误提示
核心功能：多账号切换拨号上网
附加功能：多网卡选择、甄别同类型网卡、账号排序、自动挂断已存在的宽带连接、自行使用已存在的宽带名拨号、无拨号连接可建立临时的拨号连接、记录每个账号的上次拨号状态及显示上次拨号距今时间、
)
echo ┗━━━┷━━┷━━━┷━━━━━┷━━━━━━━━┛&if not "%xx%"=="" (echo. 上次NO.%xx%:!户名%xx%!) else echo.
set xx=
set /p xx=选择账号:
if "%xx%"=="" goto oo
if "%xx%"=="0" (
if %状态%==0 exit
title %本文件路径%
goto oo
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
FOR /F "usebackq eol=搜 tokens=3 delims= " %%e IN (`reg query "!Driver%xz%!" /e /f "NetworkAddress"`) DO if %%e==!MAC%xx%! goto abc
reg add "!Driver%xz%!" /v NetworkAddress /d !MAC%xx%! /f >nul
:显示mac.txt预留的mac地址与账号密码
for /l %%r in (1,1,%账号%) do (
set no=NO. %%r
set zz= !状态%%r!
echo ┃!no:~0,3!!no:~-3!║!zz:~-4!║!户名%%r:~0,2!**!户名%%r:~-2!║!MAC%%r:~0,2!******!MAC%%r:~-2!║!描述差%%r:~-18!┃
::通过禁用再重启网卡刷新新的mac地址
netsh interface set interface "!Name%xz%!" disable>nul
title 重启网卡……
@ping 127.0.0.1 -n 2 >nul
netsh interface set interface "!Name%xz%!" enable>nul
echo NO.!no:~-2!:!nn:~0,12!!FriendlyName%%d!
)
set xz=
set /p xz=选择要更改mac的网卡:
if "%xz%"=="" goto 123
if /i %xz% leq 0 goto 123
if /i %xz% gtr %网卡% goto 123
我希望集成在一个文件内，这样就只需要复制一个文件，就能保留所有当前信息，
有没有办法可以实现，type又不能实现只显示多少行，然后再后面追加，
用echo扫描，所有的变量会被替换，真的好麻烦啊
难道只能做exe吗
exe要实现数据集成在一个文件内也是很麻烦的啊！
文件名称：多账号宽带连接拨号批处理脚本
for /l %%a in (1,1,%网卡%) do (
reg query "!HLM%%a!" /e /f "FriendlyName" >nul
IF !ERRORLEVEL! EQU 1 (
call :z Driver %%a DriverDesc FriendlyName
) else (
计划功能：账号信息加密存储、所有内容（bat脚本及账号信息）都在一个文件中、
:::::::::::::::::::::::::::::::自动触发UAC::::::::::::::::::::::::::::::
@pushd "%temp%"
@echo.>%systemroot%\testfile.tmp
reg query "%%i\Control" 2>nul 1>nul
IF !ERRORLEVEL! EQU 0 (
set /a 网卡=!网卡!+1
set HLM!网卡!=%%i)
)
if /i !网卡!==0 echo.未搜索到物理网卡，立即退出。&pause>nul&goto :eof
)
for /l %%a in (1,1,%网卡%) do (
call :z NetCfgInstanceId %%a Name Name
)
set 账号=0
echo 初始化账号信息列表……
call :SJC 现在时间
::实现按账号自动排序