OBTER DNS PREFERENCIAL E ALTERNATIVO
Olá pessoas..
Preciso fazer uma função em um aplicativo para obter os dns[ô]s da máquina. Encontrei um tópico com a seguinte solução:
Dim Valor As Object
Dim Vetor() As String
Valor = My.Computer.Registry.GetValue([Ô]HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\services\Tcpip\Parameters\Interfaces\{2F1170BE-F695-4CA6-883E-365D62B26255}\75562694D6167656\[Ô], [Ô]DhcpNameServer[Ô], Nothing)
Vetor = Split(Valor, [Ô] [Ô])
For A = 0 To Vetor.Count - 1
MsgBox([Ô]Dns [Ô] & (A + 1) & [Ô]: [Ô] & Vetor(A))
Next
Porém, em algumas máquinas este não funciona, a chave não existe. Alguém tem alguma outra alternativa??
Preciso fazer uma função em um aplicativo para obter os dns[ô]s da máquina. Encontrei um tópico com a seguinte solução:
Dim Valor As Object
Dim Vetor() As String
Valor = My.Computer.Registry.GetValue([Ô]HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\services\Tcpip\Parameters\Interfaces\{2F1170BE-F695-4CA6-883E-365D62B26255}\75562694D6167656\[Ô], [Ô]DhcpNameServer[Ô], Nothing)
Vetor = Split(Valor, [Ô] [Ô])
For A = 0 To Vetor.Count - 1
MsgBox([Ô]Dns [Ô] & (A + 1) & [Ô]: [Ô] & Vetor(A))
Next
Porém, em algumas máquinas este não funciona, a chave não existe. Alguém tem alguma outra alternativa??
Gente, achei uma solução...
Vou deixar aqui, caso alguém precise futuramente.
Dim AdaptRede() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces
Dim texto As String = [Ô][Ô]
For Each adapt As NetworkInterface In AdaptRede
If adapt.OperationalStatus = OperationalStatus.Up And adapt.GetIPv4Statistics.BytesReceived > 0 Then
texto += [Ô] [Ô] & adapt.GetIPProperties.DnsAddresses.Item(0).ToString & [Ô], [Ô] & adapt.GetIPProperties.DnsAddresses.Item(1).ToString
End If
Next
Por enquanto, isso resolveu!!
Vou deixar aqui, caso alguém precise futuramente.
Dim AdaptRede() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces
Dim texto As String = [Ô][Ô]
For Each adapt As NetworkInterface In AdaptRede
If adapt.OperationalStatus = OperationalStatus.Up And adapt.GetIPv4Statistics.BytesReceived > 0 Then
texto += [Ô] [Ô] & adapt.GetIPProperties.DnsAddresses.Item(0).ToString & [Ô], [Ô] & adapt.GetIPProperties.DnsAddresses.Item(1).ToString
End If
Next
Por enquanto, isso resolveu!!
Tópico encerrado , respostas não são mais permitidas