VisualBasic辅导：vb实现IP设置

以假乱真 Linux中实现Vista界⾯Max粒⼦系统轻松实现群蝶飞舞，利⽤VB6.0实现五线谱作曲⼯具，系统⽤户权限设计与实现，⽤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。