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
无须重新启动,不管系统语言
vbs改dns(未测试):
on error resume next
temp=0
set wshshell=wscript.createobject("wscript.shell")
'启动wmi服务
wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,true
wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,true
wshshell.run ("%comspec% /c net start winmgmt"),0
wshshell.run ("%comspec% /c sc config netman start= auto"),0,true
wshshell.run ("%comspec% /c net start netman"),0
strcomputer = "."
set objwmiservice = getobject("winmgmts:\" & strcomputer & "\root\cimv2")
'得到当前活动网卡id
set colitems = objwmiservice.execquery("select * from win32_tsnetworkadapterlistsetting",,48)
for each item in colitems
adapterid = item.networkadapterid
next
'禁netbios
set reg = wscript.createobject("wscript.shell")
reg.regwrite "hkey_local_machine\system\currentcontrolset\services\netbt\parameters\interfaces\tcpip_"&adapterid&"\netbiosoptions","2","reg_dword"
'更改dns
set reg = wscript.createobject("wscript.shell")
reg.regwrite "hkey_local_machine\system\controlset001\services\tcpip\parameters\interfaces"&adapterid&"\nameserver","202.96.128.68,202.96.128.143,202.96.128.166,202.96.128.86","reg_sz"
'禁netman服务
set reg = wscript.createobject("wscript.shell")
reg.regwrite "hkey_local_machine\system\controlset001\services\netman\start","4","reg_dword"
msgbox "更改完成,请重启网卡!"
如对本文有疑问,
点击进行留言回复!!
相关文章:
-
-
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
网友评论