VisualBasic辅导：vb实现IP设置

以假乱真 Linux中实现Vista界面Max粒子系统轻松实现群蝶飞舞，利用VB6.0实现五线谱作曲工具，ASP.NET系统用户权限设计与实现，用vb实现ftp的上传下载Java运行时多态性的实现，C#委托的具体实现方法，轻松实现电脑一分为二:Betwin让Excel 2007实现双面打印的两种另盗QQ的密码软件模拟实现(VC)
　　其实利用vb修改ip地址是比较容易的。我利用的就是wmi方式。先是找出当前系统的所有网卡信息，下面给出的是找出所有网卡MAC地址的例程：
　　Function GetMACaddress（）
　　Dim tempBool As Boolean strComputer = "."
　　Set objWMIServiceGL = GetObject（"winmgmts：\\" & strComputer & "\root\cimv2"）
　　Set colNetAdaptersGL = objWMIServiceGL.ExecQuery（"Select * from Win32_NetworkAdapterConfiguration where（IPEnabled=TRUE）"）
　　For Each obj In objs
　　getMACAddress = getMACAddress & obj.macaddress & vbCrLf & vbCrLf
　　’Exit For ’找第一个网卡就退出
　　Next obj End Function
　　然后根据所找到的各个网卡的进行信息（IP，DNS等）更改： 　　Function ModifyIP（） strComputer = "."
　　Set objWMIService = GetObject（"winmgmts：\\" & strComputer & "\root\cimv2"）
　　Set objSWbemObjectSet = objSWbemServices.ExecQuery（"Select * From Win32_NetworkAdapterConfiguration Where Description=’" & Combo1.Text & "’"）
　　For Each objNetAdapter In colNetAdapters sip = objNetAdapter.IPaddress（0）
　　If Option1.Value = True Then ’DHCP is enabled
　　objNetAdapter.EnableDHCP
　　errDNS = objNetAdapter.SetDNSServerSearchOrder（）
　　Else strIPAddress = Array（Text1.Text）
　　strSubnetMask = Array（Text2.Text）
　　strGateway = Array（Text3.Text）
　　strGatewaymetric = Array（1）
　　StrDns = Array（Text4.Text， Text5.Text）
　　errEnable = objNetAdapter.EnableStatic（strIPAddress， strSubnetMask）
　　errGateways = objNetAdapter.SetGateways（strGateway， strGatewaymetric）
　　errDNS = objNetAdapter.SetDNSServerSearchOrder（StrDns）
　　’Exit For ’只修改第一个网卡的设置
　　End If Next End Function