Dim IP Ip=Input
Box("请输入IP") str
subnetMask=Array("255.255.255.0") DefaultIPGateway=Array("192.168.2.253") DNSServer=Array("61.139.2.69") strCo
mputer = "." Set objWMIService = G
etobject("winmgmts:\\" & strCo
mputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterCon
figuration where IPEnabled=TRUE") strIPAddress=Array(Ip) For Each objNetAdapter in colNetAdapters errEnable=objNetAdapter.EnableStatic(strIPAddress,str
subnetMask,DefaultIPGateway,DNSServer) Next
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。