Récupérer l'adresse IP d'un poste

Bonjour à toutes et à tous,

Je n'arrive pas à trouver de code pour récupérer l'adresse IP d'un poste sur M365 et W10 64bit

Qui pourrait m'aider SVP

A+

Bonjour,

Une simple recherche sur le forum : Récupérer l'adresse IP

Pour l'adapter en 64 bits: Compatibilité entre les versions 32 bits et 64 bits d’Office | Microsoft Docs

Bonjour,

Une petite recherche sur le Forum ...

Récupérer l'adresse IP (excel-pratique.com)

ric

Messieurs bonjour,

J'aime quand on me dit ce que je dois faire pensez-vous que ce n'est pas ce que j'ai essayé

2021 03 04 10h34 57

Mais merci pour vos réponse je vais aller voir de ce pas

Bonne journée

Bonjour,

Essayer cette fonction

Function GetIP_Addresses()
    Dim WMIService As Object, NetCards As Object, NetCard As Object, IP_Address As Variant
    Const strComputer As String = "."

    ' Connection au service WMI
    Set WMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    ' Récupération des cartes réseau actives
    Set NetCards = WMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

    ' Récupération des  adresses IP associées aux cartes réseau actives
    For Each NetCard In NetCards
        IP_Address = NetCard.IPAddress
        If Not IsNull(IP_Address) Then
            GetIP_Addresses = GetIP_Addresses & Join(IP_Address, ", ")
        End If
    Next

End Function

Bonjour à tous,

Messieurs bonjour,

J'aime quand on me dit ce que je dois faire pensez-vous que ce n'est pas ce que j'ai essayé

Effectivement, la recherche interne n'est pas parmi les plus efficaces.

ric

Merci Thev

C'est a peu près ce que je cherchais, simple et efficace Bon

Bon, ça donne l'IP v4 et v6 apparemment, je n'ai besoin que de la v4, mais ça je vais savoir faire je pense.

Au plaisir

@Ric c'est bien dommage, car sinon ce forum est une mine d'or

Rechercher des sujets similaires à "recuperer adresse poste"