IP, Subnetz, Gateway per Button ändern

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von philie.

    IP, Subnetz, Gateway per Button ändern

    Hallo,
    nachem ich schon etwas weitergekommen bin, möchte ich mal meinen aktuellen Stand präsentieren:

    Quellcode:

    VB.NET-Quellcode

    1. 'Bibliotheken importieren
    2. Imports System.Net.NetworkInformation
    3. Imports System.Net.NetworkInformation.NetworkInterface
    4. Imports System.Net.Dns
    5. Imports System.Management
    7. Public Class Form1
    10. Dim CurrentNet As String 'Das aktuell ausgewählte Netzwerk
    11. Dim adapter As NetworkInterface 'Eine Netzwerkadapter Instanz
    12. Dim adapters As NetworkInterface() 'Array mit allen Netzwerkadaptern
    14. Public Sub DisplayDnsConfiguration()
    15. adapters = NetworkInterface.GetAllNetworkInterfaces()
    17. 'Alle aktivierten Netzwerkadapter auflisten
    18. For Each Me.adapter In adapters
    19. Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
    21. ComboBox1.Items.Add(adapter.Description)
    22. Next adapter
    23. End Sub
    25. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    26. 'Alle Adapter in der Liste überprüfen
    27. DisplayDnsConfiguration()
    28. End Sub
    30. Public Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    32. txtNetInfo.Text = ""
    34. For Each Me.adapter In adapters
    35. Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
    37. If adapter.Description = ComboBox1.Text Then 'Wenn Adapterbeschreibung in ComboBox1 steht und ausgewählt ist, dann folgende Infos anzeigen.
    38. Try
    39. txtNetInfo.Text += adapter.Description & vbNewLine & vbNewLine & _
    40. "----->Adapterinformationen<----- " & vbNewLine & _
    41. "Typ....................................................... " & adapter.Name & vbNewLine & _
    42. "Computername.............................................. " & IPGlobalProperties.GetIPGlobalProperties.HostName.ToString & vbNewLine & _
    43. "IP Adresse................................................ " & System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(1).ToString & vbNewLine & _
    44. "Gateway Adresse........................................... " & properties.GatewayAddresses(0).Address.ToString & vbNewLine & _
    45. "DNS Server................................................ " & properties.DnsAddresses(0).ToString & vbNewLine & _
    46. "Dynamisches DHCP aktiviert?............................... " & adapter.GetIPProperties.GetIPv4Properties.IsDhcpEnabled.ToString & vbNewLine & _
    47. "Statisches DNS aktiviert?................................. " & properties.IsDnsEnabled & vbNewLine & _
    48. "Dynamisches DNS aktiviert?................................ " & properties.IsDynamicDnsEnabled & vbNewLine & _
    49. "MAC Adresse............................................... " & adapter.GetPhysicalAddress.ToString
    51. CurrentNet = adapter.Description
    53. Catch ex As Exception
    55. Finally
    56. End Try
    58. End If
    59. Next
    61. If txtNetInfo.Text = "" Then 'Wenn keine Adapterinfos ausgelesen werden können, dann Fehler ausgeben
    62. txtNetInfo.Text = "Fehler Beim Auslesen der Netzwerkinformationen." & vbNewLine & vbNewLine & "Bitte Wählen Sie einen anderen Netzwerkadapter."
    63. End If
    65. End Sub
    67. Private Sub Netzwerkeinstellungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Netzwerkeinstellungen.Click
    69. End Sub
    70. End Class



    Windows Form:




    So, Auflistung der Adapter und der dazugehörigen Infos funktioniert, wie man auf dem Bild sieht. Jetzt habe ich rechts oben noch nen paar Textboxen und nen Button eingefügt und möchte dann halt, dasss man in die entsprechenden Felder IP, Subnetz und DNS einträgt, auf Netzwerkeinstellungen ändern klickt und dann das halt geändert wird. Habe mich im I-Netz schon den ganzen Tag dumm und dusselig gesucht, aber nichts brauchbares finden können. Hoffe hier kann mir jemand helfen ^^.

    Liebe Grüße

    Zum Werte Setzen kommst du meines Wissens mit der InterfaceProperties-Klasse nicht weiter.
    Dazu wäre in meinen Augen WMI am besten geeignet.
    Ansatz hier

    Gute Übersicht findest du, wenn du nach WMI Codecreator suchst.
    Damit kannst du alle Klassen, Methoden usw. sehen, testen und code kreiiren

    Gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!

    VB.NET-Quellcode

    1. Private Sub SetIP(ByVal IPAddress As String, ByVal SubnetMask As String, _
    2. ByVal Gateway As String)
    4. Dim managementClass As New ManagementClass("Win32_NetworkAdapterConfiguration")
    5. Dim mgObjCollection As ManagementObjectCollection = managementClass.GetInstances()
    7. For Each mgObject As ManagementObject In mgObjCollection
    8. If Not CType(mgObject("IPEnabled"), Boolean) Then Continue For
    10. Try
    11. Dim objNewIP As ManagementBaseObject = Nothing
    12. Dim objSetIP As ManagementBaseObject = Nothing
    13. Dim objNewGate As ManagementBaseObject = Nothing
    15. objNewIP = mgObject.GetMethodParameters("EnableStatic")
    16. objNewGate = mgObject.GetMethodParameters("SetGateways")
    18. ' Set the default gateway (decided to declare and initialise
    19. ' variables rather than attempting to initialize the array
    20. ' while communicating with the WMI.
    21. Dim tmpStrArray() As String = {Gateway}
    23. objNewGate("DefaultIPGateway") = tmpStrArray
    24. Dim tmpIntArray() As Integer = {1}
    25. objNewGate("GatewayCostMetric") = tmpIntArray
    27. ' Set the IP address and subnet.
    28. tmpStrArray(0) = IPAddress
    29. objNewIP("IPAddress") = tmpStrArray
    30. tmpStrArray(0) = SubnetMask
    31. objNewIP("SubnetMask") = tmpStrArray
    33. objSetIP = mgObject.InvokeMethod("EnableStatic", objNewIP, Nothing)
    34. objSetIP = mgObject.InvokeMethod("SetGateways", objNewGate, Nothing)
    35. Catch ex As Exception
    36. MessageBox.Show("An error occured: " + ex.Message)
    37. End Try
    38. Next
    39. End Sub
    41. ' Example Usage
    42. SetIP("192.168.1.230", "255.255.255.0", "192.168.1.51")


    Was ist daran so schwer zu verstehen? ;)
    Der Code versteht sich so ziehmlich von selbst.
    MFG
    GOOGLE ist mein Meister :)

    Jo sicher, kann ich den Code einfach so direkt übernehmen?



    PS: habe noch etwas im Internet gefunden. Mein Code für den Button sieht jetzt so aus:

    VB.NET-Quellcode

    1. Private Sub Netzwerkeinstellungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Netzwerkeinstellungen.Click
    3. Call Shell("netsh interface ip set address " & TextBox5.Text & Space(1) & "static " & TextBox2.Text & Space(1) & TextBox3.Text & Space(1) & TextBox4.Text & Space(1) & "1")
    5. End Sub


    Dieser scheint aber auch nicht zu funktionieren, leider =(.

    Bleib bei WMI.
    Shell oder besser Process.Start bedient ja die netsh.
    Das finde ich pers. unschön ;)

    Wie gesagt, mit WMI bist du da am besten beraten.

    Gruss
    Das ist meine Signatur und sie wird wunderbar sein!

    Hallo! Ich häng mich mal hier ran, um nicht einen doppelpost zu erstellen.

    Ich möchte mit VB2010 was ähnliches machen wie der Thread Ersteller, aber etwas vereinfacht. mir schwebt ein Tool vor, welches über 2 Buttons verfügt. Der eine ist um die IP auf DHCP einzustellen, der andere vergibt eine von mir definierte statische IP + Subnet. Das ist es eigentlich schon. Ich habe vieles im Internet gefunden aber nichts will richtig funzen.
    Ich hab einige varianten WMI und einiges netsh gefunden, aber ich brings nicht hin. am liebsten würde ich es via netsh machen weil ich das tool auf mehreren laptops benützen möchte. ich steh aber ziemlich auf dem schlauch wie ich vorgehen soll.
    Kann mir jemand weiterhelfen?

    Es wurde zwar schon genannt, aber da es von euch niemand sucht: WMI Codegenerator

    Damit kann man sich, wie der Name schon sagt, Codes generieren lassen....
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Hallo und danke für die Antwort.
    Dieses Tool habe ich bereits ausprobiert, ist viel versprechend, habe aber noch zwei Probleme:
    Ich generier mir den WMI Code in Execute a Method und gebe meine gewünschten Parameter ein, allerdings weiss ich nicht welchen Win32_NetworkAdapterConfiguration.Index anzuwählen ist.
    Das zweite Problem, beim Debuggen des unteren Codes wird beim drücken des Button jeweils ein Fehler bei der IP und dem Subnet ausgelöst: Das Objekt des Typs "System.String" kann nicht in Typ "System.Array" umgewandelt werden.
    Dessweiteren bin ich mir nicht sicher, ob ich mit diesem Code überhaut auf der richtigen Färte bin.

    Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    5. Try
    7. Dim classInstance As New ManagementObject( _
    8. "root\CIMV2", _
    9. "Win32_NetworkAdapterConfiguration.Index='20'", _
    10. Nothing)
    12. ' Obtain [in] parameters for the method
    13. Dim inParams As ManagementBaseObject = _
    14. classInstance.GetMethodParameters("EnableStatic")
    16. ' Add the input parameters.
    17. inParams("IPAddress") = "223.100.100.50"
    18. inParams("SubnetMask") = "255.255.255.0"
    20. ' Execute the method and obtain the return values.
    21. Dim outParams As ManagementBaseObject = _
    22. classInstance.InvokeMethod("EnableStatic", inParams, Nothing)
    24. ' List outParams
    25. MessageBox.Show("Out parameters:")
    26. MessageBox.Show("ReturnValue: {0}", outParams("ReturnValue"))
    28. Catch err As ManagementException
    30. MessageBox.Show("An error occurred while trying to execute the WMI method: " & err.Message)
    31. End Try
    32. End Sub

Facebook
Telefonspende