TCP/IPv4 Konfiguration

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Cheffboss.

    TCP/IPv4 Konfiguration

    Guten Tag zusammen

    Ich habe folgendes problem, welches ich selber nicht zu lösen weis.
    Es geht um eine TCP/IPv4 Konfiguration welche ich für meine Arbeit andauernd veränder muss für die parametrierung diverser Geräte.
    Leider tun wir dies in meiner Firma bislang immer Manuell.
    Ich hatte nur in der schule kurz Visual Basic und komme nun an Grenzen die ich noch nicht verstehe.



    So sieht das Layout aus.

    Beim Button Speichern sollte es die aktuellen Lan TCP/IPv4 Einstellungen ändern und zwar entweder auf automatisch fals die checkboxen angeklickt sind oder dann halt auf die manuell eingestellten Werte.
    Die buttons löschen und standart funktionieren schon.
    Ich hofffe jemand kann mir weiter helfen.

    Besten Dank

    Grüsse

    stackoverflow.com/questions/20…-wins-host-name-with-code
    Falls du mit C# nicht klar kommt -> converter verwenden und geht schon.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Besten Dank für eure Lösungsvorschläge leider reicht mein Wissen noch nicht aus um das Tool vollständig zum laufen zu bringen
    Evtl. Hat jemand noch genauere Angaben oder Vorschläge

    Sobald es läuft werde ich hier die Lösung posten.

    Gruss

    Hallo!
    Hier ist ein VB.NET Code um die IP Adresse zu ändern.
    Getestet von Windows 2000 bis Windows Vista!
    Aber ich glaube es läuft auch auf Windows 8.1.
    Ich hoffe das ich dir weitergeholfen habe!

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Text.RegularExpressions
    3. Public Class frmMain
    5. Private Sub ChangeIP(ByVal sNewIP As String, Optional ByVal sSubNetMask As String = "255.255.255.0")
    6. Dim sSQL As String
    7. Dim oWMI As Object
    8. Dim oResult As Object
    9. Dim oCard As Object
    10. Dim nStatus As Integer
    12. oWMI = GetObject("winmgmts:")
    13. sSQL = "SELECT * FROM win32_NetworkAdapterConfiguration WHERE IPEnabled = true"
    14. oResult = oWMI.execquery(sSQL)
    16. For Each oCard In oResult
    17. With oCard
    18. If IsArray(.IPAddress) Then
    19. nStatus = .EnableStatic(New Object() {sNewIP}, New Object() {sSubNetMask})
    20. End If
    21. End With
    22. Next oCard
    23. End Sub
    25. Private Sub btnNeuladen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNeuladen.Click
    26. Dim Addresslist() As IPAddress = _
    27. Dns.GetHostByName(Dns.GetHostName()).AddressList
    28. Dim IPs As IPAddress
    30. For Each IPs In Addresslist
    31. Me.txtComputerIP.Text = IPs.ToString
    32. Next IPs
    33. End Sub
    35. Private Sub btnIPändern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIPändern.Click
    36. ' Regex mit IP Muster....
    37. Dim rx As New Regex _
    38. ("^((25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[0-9])\.){3}(25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[0-9])$")
    40. If rx.IsMatch(Me.txtIP.Text) Then
    41. ' Wenn IP-Adresse richtig dann:
    42. ChangeIP(Me.txtIP.Text, "255.255.255.0")
    43. Me.txtComputerIP.Text = Me.txtIP.Text
    44. MsgBox("IP-Adresse erfolgreich geändert!", MsgBoxStyle.Information)
    45. Else
    46. ' Wenn IP-Adresse falsch dann:
    47. MsgBox("Fehler: keine gültige IP-Adresse!", MsgBoxStyle.Information)
    48. Exit Sub
    49. End If
    50. End Sub
    52. End Class
    Visual Basic.NET 8o
    MS-SQL     8o

Facebook
Telefonspende