IP ändern am ausgewählten LAN-Adapter

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von zauber777.

    IP ändern am ausgewählten LAN-Adapter

    Hi,

    bisher hatte ich in meinem Projekt meine IP (Statisch / DHCP) per Netsh geändert.

    VB.NET-Quellcode

    1. netsh interface ip set address ""Local Area Connection 2"" static 192.168.255.130 255.255.255.128 192.168.255.129", AppWinStyle.Hide, True)

    Nun ist mir aber aufgefallen, dass es manchmal Probleme gibt mit der IP-Änderungen wenn ich es per Netsh mache. Deswegen wollte ich versuchen es über einen anderen Weg machen. (Betriebssystem = Windows 7 und Windows 10)

    Kennt ihr eine Möglichkeit wie ich an einem von mir ausgewählten LAN-Adapter die IP ändern kann?
    Die Adapter haben folgende Bezeichnung : "Local Area Connection 1" + "Local Area Connection 2" + "Local Area Connection 3"

    VB.NET-Quellcode

    1. Dim LANAdapter As String = TextBox_LANAdapter.Text
    2. Dim IPAddress As String = TextBox_IP.Text
    3. Dim SubnetMask As String = TextBox_Subnet.Text
    4. Dim Gateway As String = TextBox_Gateway.Text
    6. Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
    7. Dim objMOC As ManagementObjectCollection = objMC.GetInstances()
    9. For Each objMO As ManagementObject In objMOC
    10. If (Not CBool(objMO("IPEnabled"))) Then
    11. Continue For
    12. End If
    14. Try
    15. Dim objNewIP As ManagementBaseObject = Nothing
    16. Dim objSetIP As ManagementBaseObject = Nothing
    17. Dim objNewGate As ManagementBaseObject = Nothing
    19. objNewIP = objMO.GetMethodParameters("EnableStatic")
    20. objNewGate = objMO.GetMethodParameters("SetGateways")
    22. objNewGate("DefaultIPGateway") = New String() {Gateway}
    23. objNewGate("GatewayCostMetric") = New Integer() {1}
    25. objNewIP("IPAddress") = New String() {IPAddress}
    26. objNewIP("SubnetMask") = New String() {SubnetMask}
    28. objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
    29. objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)
    31. Catch ex As Exception
    32. MessageBox.Show("Fehler : " & ex.Message)
    33. End Try
    34. Next objMO


    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hi,

    leider hänge ich noch immer in meinem Problem fest...

    Wie verknüpfe ich Deklarationen "objMC" und "objMOC" mit dem LAN-Adapter? (NetworkInterface.GetAllNetworkInterfaces())

    So sieht mein kompletter Code aus aktuell :

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Net.NetworkInformation
    3. Imports System.Management
    5. Public Class Form1
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Dim LAN_Adapter As NetworkInterface
    8. ComboBoxAdapterAuswahl.Items.Clear()
    9. For Each LAN_Adapter In NetworkInterface.GetAllNetworkInterfaces()
    10. With LAN_Adapter
    11. ComboBoxAdapterAuswahl.Items.Add(.Name)
    12. End With
    13. Next
    14. End Sub
    15. Private Sub EinstellunguebernehmenButton_Click(sender As Object, e As EventArgs) Handles EinstellunguebernehmenButton.Click
    16. IPvonLANAdapteraendern()
    17. End Sub
    18. Sub IPvonLANAdapteraendern()
    19. Dim IPAddress As String = TextBoxIPAddress.Text
    20. Dim SubnetMask As String = TextBoxSubnetMask.Text
    21. Dim Gateway As String = TextBoxGateway.Text
    23. If ComboBoxAdapterAuswahl.SelectedText = "Ethernet 2" Then
    24. Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
    25. Dim objMOC As ManagementObjectCollection = objMC.GetInstances()
    27. For Each objMO As ManagementObject In objMOC
    28. Try
    29. Dim objNewIP As ManagementBaseObject = Nothing
    30. Dim objSetIP As ManagementBaseObject = Nothing
    31. Dim objNewGate As ManagementBaseObject = Nothing
    32. objNewIP = objMO.GetMethodParameters("EnableStatic")
    33. objNewGate = objMO.GetMethodParameters("SetGateways")
    34. objNewGate("DefaultIPGateway") = New String() {Gateway}
    35. objNewGate("GatewayCostMetric") = New Integer() {1}
    36. objNewIP("IPAddress") = New String() {IPAddress}
    37. objNewIP("SubnetMask") = New String() {SubnetMask}
    38. objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
    39. objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)
    40. Catch ex As Exception
    41. MessageBox.Show("Fehler : " & ex.Message)
    42. End Try
    43. Next objMO
    45. ElseIf ComboBoxAdapterAuswahl.SelectedText = "Ethernet" Then
    46. '.
    47. '.
    48. '.
    49. ElseIf ComboBoxAdapterAuswahl.SelectedText = "LAN-Connection" Then
    50. '.
    51. '.
    52. '.
    53. End If
    54. End Sub


    Könnt ihr mir bitte weiterhelfen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „zauber777“ ()