请问：如何修改本机IP信息？

请问：如何修改本机IP信息？还有比如网关，DNS，等等。 问题点数：20、回复次数：1Top

1 楼tztz520（午夜逛街）回复于 2006-03-17 16:10:30 得分 20

Function   ChangeIP(IP   As   String,   NM   As   String,   GW   As   String,   MDNS   As   String,   SDNS   As   String)   As   String  
  '返回值说明:返回一个设置的中文说明.  
  Dim   strComputer,   objWMIService,   colNetAdapters,   strIPAddress,   strSubnetMask  
  Dim   strGateway,   strGatewaymetric,   strDNS,   objNetAdapter,   errEnable,   errGateways,   errDNS  
  strComputer   =   "."  
  Set   objWMIService   =   GetObject("winmgmts:\\"   &   strComputer   &   "\root\cimv2")  
  Set   colNetAdapters   =   objWMIService.ExecQuery("Select   *   from   Win32_NetworkAdapterConfiguration   where   IPEnabled=TRUE")  
  strIPAddress   =   Array(IP)   'ip地址  
  strSubnetMask   =   Array(NM)   '子网掩码  
  strGateway   =   Array(GW)   '网关  
  strDNS   =   Array(MDNS,   SDNS)   '主DNS各备DNS  
  strGatewaymetric   =   Array(1)  
     
  For   Each   objNetAdapter   In   colNetAdapters  
          errEnable   =   objNetAdapter.EnableStatic(strIPAddress,   strSubnetMask)  
          errGateways   =   objNetAdapter.SetGateways(strGateway,   strGatewaymetric)  
          errDNS   =   objNetAdapter.SetDNSServerSearchOrder(strDNS)  
          If   errEnable   =   0   And   errGateways   =   0   And   errDNS   =   0   Then  
                  ChangeIP   =   "设置成功"  
          Else  
                  If   errEnable   =   0   Then  
                          ChangeIP   =   "IP地址和子网掩码设置成功,   "  
                  Else  
                          ChangeIP   =   "IP地址或子网掩码设置失败,   "  
                  End   If  
                  If   errGateways   =   0   Then  
                          ChangeIP   =   ChangeIP   &   "默认网关设置成功,   "  
                  Else  
                          ChangeIP   =   ChangeIP   &   "默认网关设置失败,   "  
                  End   If  
                  If   errDNS   =   0   Then  
                          ChangeIP   =   ChangeIP   &   "DNS设置成功"  
                  Else  
                          ChangeIP   =   ChangeIP   &   "DNS设置失败"  
                  End   If  
          End   If  
  Next  
   
  End   Function  
   
   
  Private   Sub   Command1_Click()  
  MsgBox   ChangeIP("192.168.1.12",   "255.255.255.0",   "192.168.1.1",   "201.96.112.133",   "84.124.96.122")  
  End   SubTop

相关问题

• ip
• objnetadapter
• colnetadapters
• strgateway
• strdns
• stripaddress
• objwmiservice
• array
• as string

• 帖主：wj_1027
• tztz520

• Visual Basic类图书
• Visual Basic类源码下载