求一批处理能识别或者重置本地连接名称的功能

yuersbaby · 发表于 2022-12-13 11:51

求一批处理能识别或者重置本地连接名称的功能，谢谢。主要是win7系统。

wudi6160096 · 发表于 2022-12-13 16:35

能识别或者重置本地连接名称？
具体一些？

yuersbaby · 发表于 2022-12-15 08:40

wudi6160096 发表于 2022-12-13 16:35
能识别或者重置本地连接名称？
具体一些？

比如本地连接本地连接1 本地连接2.。。。。。。。能识别出来是哪个？或者能重置为本地连接的功能。最终目的就是手动指定ip。

wudi6160096 · 发表于 2022-12-15 11:05

yuersbaby 发表于 2022-12-15 08:40
比如本地连接本地连接1 本地连接2.。。。。。。。能识别出来是哪个？或者能重置为本地连接的功能。最 ...

我的理解是：

你希望通过在多个网络连接中获知当前正在使用的网络连接的名称，或是将当前网络连接的名称重命名为“本地连接”，以实现在当前连接中手动指定 IP 地址。

我的理解对吗？
如果我的理解对的话，其实还可以进一步自动设置 IP。

yuersbaby · 发表于 2022-12-15 15:58

wudi6160096 发表于 2022-12-15 11:05
我的理解是：

你希望通过在多个网络连接中获知当前正在使用的网络连接的名称，或是将当前网络连接的名 ...

对，就是这个意思。因为那个本地连接名称总是不一样的。

yuersbaby · 发表于 2022-12-15 16:00

本帖最后由 yuersbaby 于 2022-12-15 16:02 编辑

wudi6160096 发表于 2022-12-15 11:05
我的理解是：

你希望通过在多个网络连接中获知当前正在使用的网络连接的名称，或是将当前网络连接的名 ...

其实我每台电脑使用的网卡就一个但是好多台电脑的本地连接的名称不一样。做一个公用批处理搞定修改IP的设置。

yj520 · 发表于 2022-12-15 16:19

一条命令删除所有网络配置文件，解决以太网 2、以太网 3 重复显示问题-远景论坛-微软极客社区
https://bbs.pcbeta.com/viewthread-1953910-1-2.html

wudi6160096 · 发表于 2022-12-16 16:09

本帖最后由 wudi6160096 于 2022-12-16 17:18 编辑

@echo off 2>nul 3>nul
%1 start "" mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c ""%~s0"" ::","","runas",1)(window.close)&&exit
setlocal enabledelayedexpansion
for /F "tokens=*" %%i in ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles"') do (
for /F "skip=2 tokens=3 delims= " %%j in ('REG QUERY "%%i" /v DateLastConnected') do (
if not defined LastTime (set "LastTimeAddress=%%i"&set LastTime=%%j) else (
set TimeTemp=%%j
set DelFlag=
if "0x!TimeTemp:~2,2!!TimeTemp:~0,2!!TimeTemp:~4,2!" gtr "0x!LastTime:~2,2!!LastTime:~0,2!!LastTime:~4,2!" (set DelFlag=1) else (
if "0x!TimeTemp:~2,2!!TimeTemp:~0,2!!TimeTemp:~4,2!" == "0x!LastTime:~2,2!!LastTime:~0,2!!LastTime:~4,2!" (
if "0x!TimeTemp:~8,2!!TimeTemp:~12,2!!TimeTemp:~16,2!" gtr "0x!LastTime:~8,2!!LastTime:~12,2!!LastTime:~16,2!" (set DelFlag=1) else (
if "0x!TimeTemp:~8,2!!TimeTemp:~12,2!!TimeTemp:~16,2!" == "0x!LastTime:~8,2!!LastTime:~12,2!!LastTime:~16,2!" (
if "0x!TimeTemp:~20,2!!TimeTemp:~24,2!" gtr "0x!LastTime:~20,2!!LastTime:~24,2!" (set DelFlag=1) else (
if "0x!TimeTemp:~20,2!!TimeTemp:~24,2!" == "0x!LastTime:~20,2!!LastTime:~24,2!" (
if "0x!TimeTemp:~30,2!!TimeTemp:~28,2!" gtr "0x!LastTime:~30,2!!LastTime:~28,2!" set DelFlag=1
)
)
)
)
)
)
if defined DelFlag (REG DELETE "!LastTimeAddress!" /f&set "LastTimeAddress=%%i"&set "LastTime=%%j") else REG DELETE "%%i" /f
)
)
)>nul
for /F "skip=2 tokens=3 delims= " %%# in ('REG QUERY "%LastTimeAddress%" /v ProfileName') do REG ADD "%LastTimeAddress%" /v ProfileName /d %%# /f>nul
for /F "tokens=*" %%i in ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Signatures\Unmanaged"') do (
for /F "skip=2 tokens=3 delims= " %%j in ('REG QUERY "%%i" /v ProfileGuid') do (
if "%LastTimeAddress%"=="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\%%j" (
for /F "skip=2 tokens=3 delims= " %%# in ('REG QUERY "%%i" /v Description') do REG ADD "%%i" /v Description /d %%# /f&REG ADD "%%i" /v FirstNetwork /d %%# /f
) else REG DELETE "%%i" /f
)
)>nul

复制代码

--------------

详解：

关闭打印与错误输出
调用管理员运行脚本
开启本地变量延迟
查找注册表 HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles 的项
查找不同连接最后连接的日期
用冒泡算法找出最新日期并记录连接编号
删除旧的网络连接
将网络连接中的名称以空格为界保留开头部分（如 “本地连接 2” → “本地连接”）
查找注册表 HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Signatures\Unmanaged 的项
查找不同项中 ProfileGuid 的值
如果 ProfileGuid 的值与记录的连接编号相同，则修改网络连接中的名称以空格为界保留开头部分，否则删除项