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
复制代码