用vb脚本改变用户的ip.网关.dns
发布时间：2020-12-17 08:16:29 所属栏目：百科 来源：网络整理
导读：Dim IP Ip=Inputbox("请输入IP") strSubnetMask=Array("255.255.255.0") DefaultIPGateway=Array("192.168.2.253") DNSServer=Array("61.139.2.69") strComputer = "." Set objWMIService = GetObject("winmgmts:" strComputer "rootcimv2") Set colNetAd
|
Dim IP Ip=Inputbox("请输入IP") strSubnetMask=Array("255.255.255.0") DefaultIPGateway=Array("192.168.2.253") DNSServer=Array("61.139.2.69") strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress=Array(Ip) For Each objNetAdapter in colNetAdapters errEnable=objNetAdapter.EnableStatic(strIPAddress,strSubnetMask,DefaultIPGateway,DNSServer) Next （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |