当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 用VBS设置静态IP和DNS服务器地址的代码

用VBS设置静态IP和DNS服务器地址的代码

2017年12月08日  | 移动技术网IT编程  | 我要评论

核心代码一：

stripaddress = array("192.168.0.148") 
strsubnetmask = array("255.255.255.0") 
strgateway = array("192.168.0.1") 
strgatewaymetric = array(1) 
arrdnsservers = array("192.168.0.1","192.168.0.2") 
strcomputer = "." 

set objwmiservice = getobject("winmgmts:" _ 
& "{impersonationlevel=impersonate}!\\" & strcomputer & "\root\cimv2") 

set colnetadapters = objwmiservice.execquery _ 
("select * from win32_networkadapterconfiguration where ipenabled=true") 

for each objnetadapter in colnetadapters 
errenable = objnetadapter.enablestatic(stripaddress, strsubnetmask) 
errgateways = objnetadapter.setgateways(strgateway, strgatewaymetric) 
errdns = objnetadapter.setdnsserversearchorder(arrdnsservers) 
if errenable = 0 then 
wscript.echo "the ip address has been changed." 
else 
wscript.echo "the ip address could not be changed." 
end if 
next

记得把参数改成自己想要的。

代码二：

将计算机的 ip 地址设置为 192.168.1.111，并将 ip 网关设置为 192.168.1.1。

strcomputer = "." 
set objwmiservice = getobject("winmgmts:\" & strcomputer & " ootcimv2") 
set colnetadapters = objwmiservice.execquery _ 
("select * from win32_networkadapterconfiguration where ipenabled=true") 
stripaddress = array("192.168.1.111") 
strsubnetmask = array("255.255.255.0") 
strgateway = array("192.168.1.1") 
strgatewaymetric = array(1) 
for each objnetadapter in colnetadapters 
errenable = objnetadapter.enablestatic(stripaddress, strsubnetmask) 
errgateways = objnetadapter.setgateways(strgateway, strgatewaymetric) 
if errenable = 0 then 
wscript.echo "the ip address has been changed." 
else 
wscript.echo "the ip address could not be changed." 
end if 
next

原文：

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网