导读:
最近教育网调试,原来的DNS失效。一台台电脑去改?@#¥%……
干脆做个小程序。
习惯导入注册表文件,后来才发现每台电脑注册表中DNS的地址是不一样的,跟网卡的CLSID有关。
重换思路:先取得网卡的CLSID,再进行添加新的DNS。
必须能读取注册表,还要进行字符串的连接。DOS批处理是不够的了。就用VBS了!
还要修复网络连接。DOS批处理停止、启用系统服务是拿手好戏。
最后用DOS+VBS,做出了这样一个程序。
DNS.vbs:
程序代码
'DNS.vbs(将以下代码存为DNS.vbs文件)
Dim OperationRegistry
Set OperationRegistry = WScript.CreateObject("WScript.Shell")
Dim InterfaceList, NetworkCardsServiceName
'得到网卡CLASSID
InterfaceList = OperationRegistry.RegRead("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/EAPOL/Parameters/General/InterfaceList")
NetworkCardsServiceName = right(InterfaceList,38)
'MsgBox(NetworkCardsServiceName)
'设置新的DNS
'MsgBox("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/" &NetworkCardsServiceName)
OperationRegistry.RegWrite "HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/" &NetworkCardsServiceName &"/NameServer", "108.108.0.8,221.228.255.1,218.2.135.1"
DNS.bat:
程序代码
@ECHO OFF
ECHO ====== 马小校内DNS设置 ======
ECHO.
ECHO 作者:Shortway@Sina.com
ECHO.
ECHO 非马杭中心小学校内,或非武进教育城域网内用户禁止使用!请自行关闭本窗口!
ECHO.
ECHO 要设置,请按任意键开始!...
ECHO.
@PAUSE >NUL
ECHO 正在设置,请稍候...
REM 执行“DNS.VBS”,修改 DNS 服务器地址。
@WSCRIPT.EXE DNS.VBS
REM 修复网络连接
@IPCONFIG /RELEASE >NUL
@IPCONFIG /RENEW >NUL
@ARP -D
@NET STOP DNSCACHE >NUL
@NET START DNSCACHE >NUL
@NET STOP DHCP >NUL
@NET START DHCP >NUL
ECHO.
ECHO 打开武进教育网试试...
"c:/program files/internet explorer/iexplore.exe" http://www.wjedu.net
本文转自
http://www.wjmhxx.com/shortway/article.asp?id=59
最近教育网调试,原来的DNS失效。一台台电脑去改?@#¥%……
干脆做个小程序。
习惯导入注册表文件,后来才发现每台电脑注册表中DNS的地址是不一样的,跟网卡的CLSID有关。
重换思路:先取得网卡的CLSID,再进行添加新的DNS。
必须能读取注册表,还要进行字符串的连接。DOS批处理是不够的了。就用VBS了!
还要修复网络连接。DOS批处理停止、启用系统服务是拿手好戏。
最后用DOS+VBS,做出了这样一个程序。
DNS.vbs:
程序代码
'DNS.vbs(将以下代码存为DNS.vbs文件)
Dim OperationRegistry
Set OperationRegistry = WScript.CreateObject("WScript.Shell")
Dim InterfaceList, NetworkCardsServiceName
'得到网卡CLASSID
InterfaceList = OperationRegistry.RegRead("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/EAPOL/Parameters/General/InterfaceList")
NetworkCardsServiceName = right(InterfaceList,38)
'MsgBox(NetworkCardsServiceName)
'设置新的DNS
'MsgBox("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/" &NetworkCardsServiceName)
OperationRegistry.RegWrite "HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/" &NetworkCardsServiceName &"/NameServer", "108.108.0.8,221.228.255.1,218.2.135.1"
DNS.bat:
程序代码
@ECHO OFF
ECHO ====== 马小校内DNS设置 ======
ECHO.
ECHO 作者:Shortway@Sina.com
ECHO.
ECHO 非马杭中心小学校内,或非武进教育城域网内用户禁止使用!请自行关闭本窗口!
ECHO.
ECHO 要设置,请按任意键开始!...
ECHO.
@PAUSE >NUL
ECHO 正在设置,请稍候...
REM 执行“DNS.VBS”,修改 DNS 服务器地址。
@WSCRIPT.EXE DNS.VBS
REM 修复网络连接
@IPCONFIG /RELEASE >NUL
@IPCONFIG /RENEW >NUL
@ARP -D
@NET STOP DNSCACHE >NUL
@NET START DNSCACHE >NUL
@NET STOP DHCP >NUL
@NET START DHCP >NUL
ECHO.
ECHO 打开武进教育网试试...
"c:/program files/internet explorer/iexplore.exe" http://www.wjedu.net
本文转自
http://www.wjmhxx.com/shortway/article.asp?id=59