标题: [问题求助] 请教用VBS作一个修改IP的脚本 [打印本页]
作者: edison_zhu 时间: 2020-6-2 08:20 标题: 请教用VBS作一个修改IP的脚本
请教用VBS作一个修改IP的脚本
1.有交互界面,可以手动输入IP地址
2.掩码默认填写24位,但可修改
3.网关跟随IP前三位,最后一位默认为1,但可修改
4.DNS默认114.114.114.114但可修改。
是不是条件有点多啊。请问可实现吗?
作者: holley 时间: 2020-6-2 12:30
回复 1# edison_zhu
你这种 最好还是有偿的好 会有人帮助你的。
作者: 9zhmke 时间: 2020-6-26 16:36
刚好我写了个片断,给你参考加个IE界面再改改应该可以做出来:- Function Chenge_IP(ip)'设置ip,数组中(0-3)为IP,ip(4-7)为掩码ip(8-11)为网关ip(12-19)为DNS
- if UBound(ip)>12 then
- dim DNSServer(1),DNSServer2(0)
- if UBound(ip)>16 then
- DNSServer(1)=ip(16)&"."&ip(17)&"."&ip(18)&"."&ip(19)'Array("DNS1","DNS2")设置DNS服务器
- DNSServer(0)=ip(12)&"."&ip(13)&"."&ip(14)&"."&ip(15)
- else
- DNSServer(0)=ip(12)&"."&ip(13)&"."&ip(14)&"."&ip(15)
- DNSServer2(0)=DNSServer(0)'Array("DNS1","DNS2")设置DNS服务器
- end if
- end if
- if UBound(ip)<5 then
- redim ip(11)
- ip(4)="255":ip(5)="255":ip(6)="255":ip(7)="0":ip(8)=ip(0):ip(9)=ip(1):ip(10)=ip(2):ip(11)="1"
- end if
- 'join(array(DNSServer,str_name),"")
- 'DNSServer = Array("61.139.44.38", "61.139.2.69")
- Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
- For Each objNetAdapter in colNetAdapters
- if ip(0)="AUTO" then
- objNetAdapter.DHCPEnabled=true
- if objNetAdapter.DHCPEnabled=true then Chenge_IP="已设为自动"
- else
- Chenge_IP=objNetAdapter.EnableStatic(Array(ip(0)&"."&ip(1)&"."&ip(2)&"."&ip(3)), Array(ip(4)&"."&ip(5)&"."&ip(6)&"."&ip(7)))'设置IP(0-3)和子网掩码(4-7)
- Chenge_IP=objNetAdapter.SetGateways(Array(ip(8)&"."&ip(9)&"."&ip(10)&"."&ip(11)),Array("1"))'设置网关和跃点数
- if UBound(ip)>16 then debug "16":Chenge_IP=objNetAdapter.SetDNSServerSearchOrder(DNSServer) '设置2个DNS
- if UBound(ip)>12 and UBound(ip)<16 then debug "12":Chenge_IP=objNetAdapter.SetDNSServerSearchOrder(DNSServer2) '设置1个DNS
- Chenge_IP="已设为手动IP"
- end if
- Next
- Set colNetAdapters=nothing
- End Function
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |