Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GetAllConfigurationalleNetCard()
End Sub
‘修改设置
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE Description=""" & Me.ComboBox1.SelectedItem.ToString & """")
Dim share As ManagementObject
Dim iResult As Integer = 0 ‘ 判断是否修改成功。如果成功,后面的三个方法返回值都是0,注意返回的值是 Uint32 类型。
For Each share In searcher.Get()
Console.WriteLine(share.GetText(TextFormat.Mof))
If Not (share.Item("IPAddress") Is Nothing) Then
'set address
Dim ipAddresses() As String = {TextBox1.Text} ‘ IP 地址
Dim ipSubnetmask() As String = {TextBox2.Text} ‘掩码
Dim objpara() As Object = {ipAddresses, ipSubnetmask}
iResult += Convert.ToInt32(share.InvokeMethod("EnableStatic", objpara))
Dim ipGateWay() As String = {TextBox3.Text} ‘网关
Dim GatewayCostMetric() As UInt16 = {UInt16.Parse("1")}
Dim objpara1() As Object = {ipGateWay, GatewayCostMetric}
iResult += Convert.ToInt32(share.InvokeMethod("SetGateways", objpara1))
'set Dns Server Serach Order
‘ 多个dns 中间以减号分开
If Me.TextBox4.Text.IndexOf("-") > 0 Then
Dim dnsServers As String() = TextBox4.Text.Split("-")
Dim objpara2() As Object = {dnsServers}
iResult += Convert.ToInt32(share.InvokeMethod("SetDNSServerSearchOrder", objpara2))
Else
Dim dnsServers As String() = {Me.TextBox4.Text}
Dim objpara2() As Object = {dnsServers}
iResult += Convert.ToInt32(share.InvokeMethod("SetDNSServerSearchOrder", objpara2))
End If
If iResult = 0 Then
MessageBox.Show("修改成功")
Else
MessageBox.Show("修改失败,检查输入的格式和您是否有权限")
End If
End If
Next share
End Sub
‘ 获取网卡列表
Private Sub GetAllConfigurationalleNetCard()
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim share As ManagementObject
Me.ComboBox1.Items.Clear()
For Each share In searcher.Get()
If Not (share.Item("IPAddress") Is Nothing) Then
Me.ComboBox1.Items.Add(share("Description"))
End If
Next share
Me.ComboBox1.SelectedIndex = 0
End Sub
‘获取网卡的详细信息
Private Sub GetConfiguraton(ByVal description As String)
If description Is Nothing Or description.Length = 0 Then
Exit Sub
Else
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE Description=""" & description & """")
Dim share As ManagementObject
For Each share In searcher.Get()
Me.TextBox1.Text = DirectCast(share.Item("IPAddress"), String())(0).ToString
Me.TextBox2.Text = DirectCast(share.Item("IPSubnet"), String())(0).ToString
Me.TextBox3.Text = DirectCast(share.Item("DefaultIPGateway"), String())(0).ToString
Dim i As Integer
Me.TextBox4.Clear()
For i = 0 To DirectCast(share.Item("DNSServerSearchOrder"), String()).GetLength(0) - 1
Me.TextBox4.Text &= DirectCast(share.Item("DNSServerSearchOrder"), String())(i).ToString & "-"
Next
If i >= 2 Then
Me.TextBox4.ForeColor = SystemColors.HotTrack
Else
Me.TextBox4.ForeColor = Me.TextBox3.ForeColor
End If
Me.TextBox4.Text = Me.TextBox4.Text.Remove(Me.TextBox4.Text.Length - 1, 1)
Me.TextBox5.Text = share.Item("MACAddress").ToString
Exit For
Next share
End If
End Sub |