[网络连接] 如何将自动获取连接名称并修改DNS的VBS转换成批处理？

喀喇喀喇

应该怎么写？是通过判断注册表项来实现自动获取连接名称从而达到修改dns的目的，各位高手看看

 
On Error Resume Next
temp=0
set wshshell=wscript.createobject("wscript.shell")
strComputer = "."
Set objWMIService = getobject("winmgmts:\\" & strComputer & "\root\cimv2")
'得到当前活动网卡ID
Set colItems = objWMIService.ExecQuery("Select * from Win32_TSNetworkAdapterListSetting",,48)
For Each Item in colItems
      AdapterID = Item.NetworkAdapterID
Next
'更改DNS
Set reg = WScript.CreateObject("WScript.Shell") 
reg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\"&AdapterID&"\NameServer","10.1.2.10,61.153.177.197,61.153.177.202","REG_SZ"
复制代码

Spring

@echo off
for /f "tokens=1,2* delims=_" %%a in ('getmac') do (
  set "AdapterID=%%b"
)
set "KeyName=HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\%AdapterID: =%"
set "ValueName=NameServer"
set "Data=10.1.2.10,61.153.177.197,61.153.177.202"

REG ADD %KeyName% /v %ValueName% /t REG_SZ /d %Data% /f
pause>nul
复制代码

喀喇喀喇

可用，呵呵，非常感谢，在win7环境下测试成功

喀喇喀喇

在其他环境下测试发现问题，win9x win2000不可用，在xp和win7环境下可用，其他环境没有测试

Batcher

请先看看待测试的系统中有没有getmac和reg命令

喀喇喀喇

原帖由 Batcher 于 2010-2-1 19:58 发表
请先看看待测试的系统中有没有getmac和reg命令

嗯嗯，98和2k是肯定没有的，不过感谢您提供的这段bat，已经用到加域的脚本里面了，呵呵

Batcher

98和2k里面可以尝试用ipconfig /all获取MAC地址。
写注册表的话，就用BAT动态生成一个.reg文件，然后导入注册表即可。