家园
个人
文集
http://
www
.
5x54
.
com
用VBS自动修改网关和DNS
作者：
网上收集
点击：
读取中...
次
引用代码：
Const STR_GATEWAY = "192.168.18.1"
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
Const STR_NEWDNS1 = "192.168.18.1"
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
Const STR_NEWDNS2 = "202.96.209.133"
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
Set fs=CreateObject("Scripting.FileSystemObject")
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
Set objNICs = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
For Each objNIC In objNICs
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
If objNIC.IPEnabled Then
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
objNIC.SetGateways Array(STR_GATEWAY)
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
End If
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
Next
版权保护
版权保护，请不要随意复制^%#$32242)98sa。^_^
，请不要随意复制^%#$32242)98sa。^_^
收藏此文章
打印
更新
编辑此文章
『关闭窗口』
