Const STR_GATEWAY = "192.168.1.254"
Const STR_NEWDNS1 = "221.6.4.67"
Const STR_NEWDNS2 = "61.177.7.1"
Set fs=CreateObject("Scripting.FileSystemObject")
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set objNICs = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
objNIC.SetGateways Array(STR_GATEWAY)
End If
Next
修改192.168.1.254为您的网关地址。
修改221.6.4.67为主DNS地址。
修改61.177.7.1为副DNS地址
【VBS不需重启修改DNS和网关】相关文章:
★ Sublime Text 3怎么设置为Markdown编辑器?
★ sql server 2008怎么安装?sql server 2008安装视频教程
★ SharePoint 2007图文开发教程(1) 简介,安装,配置及创建Web应用程序
★ ConvertZ使用教程之简体中文程序(源代码)转为繁体中文
★ Editplus怎么设置自动关联文件?以txt为例设置教程分享