修改 Gateway和DNS的vbs脚本
来源:本站原创|时间:2022-11-25|栏目:vb|
复制代码 代码如下:
Const T_GATEWAY = "1.1.1.1" '网关
Const T_NEWDNS1 = "2.2.2.2" 'DNS1
Const T_NEWDNS2 = "3.3.3.3" 'DNS2
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each NIC In NICS
If NIC.IPEnabled Then
NIC.SetDNSServerSearchOrder Array(T_NEWDNS1,T_NEWDNS2)
NIC.SetGateways Array(T_GATEWAY)
End If
Next
无须重新启动,不管系统语言
您可能感兴趣的文章
- 01-10VBS教程:运算符-运算符(+)
- 01-10VBS教程:函数-LTrim、RTrim 和 Trim 函数
- 01-10利用vbscript脚本修改文件内容,此适用于自动化的操作中
- 01-10打开QQ并且让它自己输入用户名和密码的vbs脚本
- 01-10使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
- 01-10利用vbs自动修改ip的代码
- 01-10VBS和页面中响应COM的事件的方法和代码
- 01-10用VBS修改IIS Metabase 的代码
- 01-10用vbs记录屏幕保护程序的开始时间和结束时间
- 01-10vbs中Empty和Null的区别