DNS修复，模拟修复网络连接(原)

导读：
　　最近教育网调试，原来的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