DNS Domain Suffix setzen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von squax.

    DNS Domain Suffix setzen

    Moin Moin,
    ich bin leider wieder auf ein Problem gestoßen, denn ich muss jetzt den DNS Domain Suffix setzten, sowie die Option "Adressen dieser Verbindung in DNS registrieren." auf "ungesetzt" setzen, des Weiteren muss die Option "Diese DNS-Suffixe anhängen" aktiviert sein (Dies muss vor dem setzen des Suffix geschehen). Ihr findet das Menü unter "Netzwerk- und Freigabecenter" -> "Adaptereinstellungen ändern" -> "Eigenschaften" eures LAN/WLAN Adapters -> "Internetprotokoll Version 2 (TCP/IPv4)" -> "Eigenschaften" -> "Erweitert" -> Reiter "DNS" (Ich gehe zwar davon aus, dass alle hier wissen wo das zu finden ist, aber ich habe es zur Sicherheit einfach nochmal hingeschrieben).
    Und Wenn es geht wäre ich euch noch sehr Dankbar, wenn ihr mir sagen könntet, wie man den Namen eines Netzwerk-Adapters ändert.

    DNS Domain Suffix im ungeänderten Zustand



    DNS Domain Suffix im geänderten Zustand



    Netzwerk Namen ändern




    VB.NET Code

    VB.NET-Quellcode

    1. Imports System.Management
    3. Public Class frm_SetDns
    5. 'Liste für die Anzeige in der ComboBox
    6. Private nL As New List(Of NIC)
    8. Private Sub frm_IpsetDns_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. nL.Clear()
    10. Try
    11. Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT Description, Index FROM Win32_NetworkAdapterConfiguration")
    12. For Each queryObj As ManagementObject In searcher.Get()
    13. Dim n As New NIC
    14. n.Description = queryObj("Description")
    15. n.Index = queryObj("Index")
    16. nL.Add(n)
    17. Next
    18. 'Button1.Enabled = True
    19. Catch err As ManagementException
    20. MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
    21. End Try
    22. 'Liste an comboBox binden und Display bzw Valuemember setzen
    23. cmbbx_Adapter.DataSource = nL
    24. cmbbx_Adapter.DisplayMember = "Description"
    25. cmbbx_Adapter.ValueMember = "Index"
    26. End Sub
    28. Private Sub btn_SetDns_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SetDns.Click
    30. If cmbbx_Adapter.SelectedValue IsNot Nothing Then
    31. Try
    32. Dim classInstance As New ManagementObject( _
    33. "root\CIMV2", _
    34. "Win32_NetworkAdapterConfiguration.Index='" & Me.cmbbx_Adapter.SelectedValue & "'", _
    35. Nothing)
    36. 'Parameter auslesen und setzen
    37. Dim inParams As ManagementBaseObject = classInstance.GetMethodParameters("SetDNSServerSearchOrder")
    38. inParams("DNSServerSearchOrder") = New Object() {"10.177.146.129", "10.177.146.130"} 'Dies ist der Primäre und Sekundäre DNS Server!
    42. ' Es geht um Dieses Code-Segment -->
    43. Dim inDNSDomain As ManagementBaseObject = classInstance.GetMethodParameters("SetDNSDomainSuffixSearchOrder")
    44. inDNSDomain("DNSDomainSuffixSearchOrder") = New Object() {"han.xx.xxx"}
    45. ' <--
    49. 'Methode ausführen
    50. Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("SetDNSServerSearchOrder", inParams, Nothing)
    54. ' Und um Dieses -->
    55. Dim outDNSDomain As ManagementBaseObject = classInstance.InvokeMethod("SetDNSDomainSuffixSearchOrder", inDNSDomain, Nothing)
    56. ' <--
    59. MsgBox("Die DNS-Server wurden erfolgreich gesetzt", MsgBoxStyle.Information)
    60. Me.Close()
    61. frm_MainFrame.Show()
    62. Catch err As ManagementException
    63. MessageBox.Show("An error occurred while trying to execute the WMI method: " & err.Message)
    64. End Try
    65. Else
    66. MsgBox("Fehler: Sie haben keinen Netzwerkadapter ausgewählt!", MsgBoxStyle.Critical)
    67. End If
    69. End Sub
    71. 'Hilfsklasse für die ComboBox
    72. Public Class NIC
    73. Private _desc As String
    74. Private _in As Int32
    75. Public Property Description() As String
    76. Get
    77. Return _desc
    78. End Get
    79. Set(ByVal value As String)
    80. _desc = value
    81. End Set
    82. End Property
    83. Public Property Index() As Int32
    84. Get
    85. Return _in
    86. End Get
    87. Set(ByVal value As Int32)
    88. _in = value
    89. End Set
    90. End Property
    91. End Class
    92. End Class



    LG
    squax