修改DNS设置的-批处理命令和VBS脚本
有老师说他无法访问学校的-教学调查页面，因为该页面是放在_内网的-，所以我第一反应就是问他是不是在_校内，但结果答案居然说“是”。
那么应该是学校内网DNS服务器挂了，或者他的-机器的-首选DNS并不是校内服务器。
但是怎么向老师们说清楚，什么是DNS和DNS要怎么设置呢？想来想去，觉得还是写一一个脚本文件或者批处理之-类的-小程序，直接帮他们修改DNS。
在_网上找了找，相关资料还真不少，参照着写了几个：
批处理文件之-一（复制以下命令，保存为*.bat，运行即可）：
netsh interface ip set dns "本地连接" static 10.1.2.10 primary
netsh interface ip add dns "本地连接" 61.153.177.196
netsh interface ip add dns "本地连接" 61.153.177.202
批处理文件之-二（复制以下命令，保存为*.bat，运行即可）：
netsh interface ip set dns name="本地连接" source=static addr=10.1.2.10
netsh interface ip add dns name="本地连接" addr=61.153.177.196 index=2
netsh interface ip add dns name="本地连接" addr=61.153.177.197 index=3
以上命令的-缺陷是该连接的-名字一定要是“本地连接”，虽然绝大多数的-电脑默认连接名字都叫“本地连接”，但也有特殊情况的-，于是写了一段vbs脚本：
vbs脚本（复制以下命令，保存为*.vbs，运行即可）：
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.1061.153.177.19761.153.177.202""REG_SZ"
msgbox "更改完成请重启网卡!"
以上命令在_2003中测试通过，想来xp也是能通过的-。
|
