win7中vbs修改本地连接名称

背景：win7系统有2个网口，但是本地连接的名称顺序与其不一致，此脚本可实现逻辑顺序与物理顺序一致的功能。比如Lan1 为本地连接，Lan2为本地连接2.因为设备较多，特输出脚本。

注意：

1.修改名称时需要以管理员身份运行。可通过已管理员身份启动cmd，然后在cmd中运行vbs。

2.经确认所有设备的 lan1的 PnpInstanceID 均相同，根据此值找到逻辑eth0，并命名为本地连接。另外一个修改为本地连接2.

实现思路：

1. 通过 For Each NC In CreateObject("Shell.Application").NameSpace(49).Items 分别获取网络适配器的名称，即本地连接的名称。

2. 遍历 SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318} 的下一级目录，在其中找到Connection的路径。

3.分别获取Connection的 name，PnpInstanceID 的键值。如果name的键值与步骤1中的适配器名称对应，则保持其注册表路径，PnpInstanceID，name。

4.如果PnpInstanceID 包含Const中的常量值，则认为是“本地连接”，否则为本地连接2.

'---以下为vbs脚本-----

Const ETH0 = "3&11583659&0&FE"

myLog = "D:\x.txt"

strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyRoot = &H80000002
Regpath = "HKEY_LOCAL_MACHINE"
strKeyPath = "SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"

oReg.EnumKey strKeyRoot, strKeyPath, arrSubKeys

Dim regArrPath(1)
Dim regArrName(1)
Dim regArrPnp(1)
myStr = ""
i = 0

On Error Resume Next
For Each subkey In arrSubKeys
   ArrSubKeyStr=ArrSubKeyStr & vbcrlf & subkey
   CurRegPath = Regpath & "\" & strKeyPath & "\" & subkey & "\Connection"
   NameValue = WshShell.RegRead(CurRegPath & "\name")
   if 0 = Err.Number then
       For Each NC In CreateObject("Shell.Application").NameSpace(49).Items
       if NC.name = NameValue then
           regArrPath(i) = CurRegPath
           regArrName(i) = NameValue
           regArrPnp(i) = WshShell.RegRead(CurRegPath & "\PnpInstanceID")
           i = i + 1
       end if
       Next
   else
       Err.Number = 0
       NameValue = ""
   end if
Next
on error goto 0

For i = 0 to ubound(regArrPnp)
   if instr(regArrPnp(i),ETH0) > 0 then
       msgbox "本地连接 " & regArrName(i) & chr(10) & "Pnp: " & regArrPnp(i) & chr(10) & "path: " & regArrPath(i)
       'msgbox "本地连接 --> " & regArrName(i)
       AppendNotepad myLog ,"本地连接 " & regArrName(i) & chr(10) & "Pnp: " & regArrPnp(i) & chr(10) & "path: " & regArrPath(i)
       WshShell.RegWrite regArrPath(i) & "\Name","本地连接","REG_SZ"

   else
       msgbox "本地连接2 " & regArrName(i) & chr(10) & "Pnp: " & regArrPnp(i)& chr(10) & "path: "& regArrPath(i)
       'msgbox "本地连接2 --> " & regArrName(i)
       AppendNotepad myLog , "本地连接2 " & regArrName(i) & chr(10) & "Pnp: " & regArrPnp(i)& chr(10) & "path: "& regArrPath(i)
       WshShell.RegWrite regArrPath(i) & "\Name","本地连接 2","REG_SZ"
   end if
next

win7中vbs修改本地连接名称相关推荐

win7修改本地连接 MTU值的方法
win7修改本地连接MTU值的方法首先我们同时按下键盘上组合键"Win+R"打开运行窗口,在运行窗口中输入"cmd"命令并确定在打开的命令提示符窗口中,输入 ...
计算机网络mtu值设置,Win7修改本地连接MTU值来提高网速的方法
mtu值通信术语为最大传输单位,mtu值对于网速来说影响较大,我们可以通过修改mtu值来提高网速.但是如何修改本机的MTU值呢?下面装机之家分享一下Win7修改本地连接MTU值来提高网速的方法. Wi ...
html vbs病毒,win7系统中vbs病毒怎么解决？win7中vbs病毒的修复方法
电脑使用久了总是会出现各种各样的问题,其中比较常见的就是系统中病毒.这不一位用户说win7旗舰版系统中vbs病毒,有些用户还不清楚VBS病毒是什么?打开多个文件夹下看到".VBS" ...
鸿蒙系统网络连接设置ip,修改本地连接的TCP/IP属性设置
修改本地连接的TCP/IP属性设置解决原因1:修改本地连接的TCP/IP属性设置在使用无线路由之前,你的TCP/IP属性很可能是手动设置的,但设置的网段与无线路由的默认网段不同,因而无法登录到无线 ...
计算机网络连接设备不见了,为什么电脑网络连接中不存在本地连接找不到本地连接是为什么...
花火网消息,电脑正常上网都是需要连接网络的,但有网友反馈自己的电脑中不存在本地连接,这是为什么? 通常有关网卡的问题,可以直接在设备管理器中找到原因,打开设备管理器,可以看到有线网卡或无线网卡是禁用或 ...
关于win7系统无线及本地连接图标异常的处理(可以连接无线)
1.无线可以连接,但是图标显示未连接,看不到本地连接:如下图所示可以考虑进行以下操作: 1).控制面板----网络和控制中心----高级共享设置----启用网络发现! ...
win7 计算机其他删除,Win7系统多余的本地连接2怎么删除？
在查看Win7系统电脑网络连接的时候,有时候会发现除了本地连接外,还有一个本地连接2,经过了解后得知这是一个多余的网卡本地连接地址.由于本地连接2的存在,有时候会导致本地连接无法连接从而无法上网,那么 ...
C++ RasDial之调用RasEnumEntries遍历系统中存在的宽带连接名称
代码执行效果如下图: 代码如下: #include <windows.h> #include <iostream> #include "ras.h" #in ...
win7 批处理自动修改本地IP地址、无线IP地址
@echo off title 快运通物流 - IP地址修改工具 MODE con: COLS=80 lines=20 rem IP地址列表 set lname=本地连接 rem 本地连接IP地址一 ...

win7中vbs修改本地连接名称

win7中vbs修改本地连接名称相关推荐

最新文章

热门文章