Comment retrouver façilement l'adresse ip publique de votre pc v2

Commenter

Contenu du snippet

Si vous voulez récupérer l'adresse publique de votre PC pour par exemple rediriger automatiquement une page de votre domaine WWW.VOTRENOM.EXT vers votre machine.

Source / Exemple : 


Private Function getClientIP() As String
        ' Return Public IP Adresse from Local Machine
        Dim IpAddress As String
        Dim Service As String
        Dim query As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
        Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
        Dim mo As System.Management.ManagementObject
        For Each mo In queryCollection
            If mo("IpEnabled") Then
                IpAddress = mo("IpAddress")(0)
                Service = mo("ServiceName")
                ' Test si il sagit du service WAN
                If UCase(Service) = "NDISWAN" Then
                    Return IpAddress
                End If
                'If IpAddress <> "" And Left(IpAddress, 3) <> "192" And Left(IpAddress, 3) <> "127" Then
                '    Return IpAddress
                'End If
            End If
        Next mo
        Return ""
    End Function

Conclusion :


J'ai modifier la source pour quelle tienne compte du nom de service ServiceName de Win32_NetworkAdapterConfiguration.

Si il trouve une connexion réseau avec comme nom de service "NDisWan" il prend l'adresse associée qu'il considère comme l'adresse publique du PC.

Ca fonctionne bien chez moi, mais si vous pouvez tester chez vous et me faire un feedBack.
Merci.

A voir également

Du même auteur (michelsto)