Obtenir la liste des adresses IP de la machine.
Contenu du snippet
* http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/getipaddrtable.asp * les adresses IP de la machine DECLARE INTEGER GetIpAddrTable IN iphlpapi; STRING @ pIpAddrTable,; INTEGER @ pdwSize,; INTEGER bOrder DECLARE STRING inet_ntoa IN ws2_32 INTEGER in_addr pdwSize =0 =GetIpAddrTable (NULL, @pdwSize, 1) pIpAddrTable = REPLICATE(CHR(0), pdwSize) =GetIpAddrTable (@pIpAddrTable, @pdwSize, 1) nombre = buf2dword(SUBSTR(pIpAddrTable, 1, 4)) FOR i=1 TO nombre Adresse = INET_NTOA(buf2dword(SUBSTR(pIpAddrTable, 5 + (i-1)*24, 4))) Masque = INET_NTOA(buf2dword(SUBSTR(pIpAddrTable, 13 + (i-1)*24, 4))) ? adresse + "/" + masque Next FUNCTION buf2dword(cBuffer) RETURN Asc(SUBSTR(cBuffer, 1,1)) + ; Asc(SUBSTR(cBuffer, 2,1)) * 256 +; Asc(SUBSTR(cBuffer, 3,1)) * 65536 +; Asc(SUBSTR(cBuffer, 4,1)) * 16777216
Compatibilité : Foxpro 8, Foxpro 9
Disponible dans d'autres langages :
A voir également
- Obtenir la liste des adresses IP de la machine.
- Tag ip session - Forum PHP
- Sécuriser l'authentification avec session ✓ - Forum C# / .NET
- Comment savoir si une adresse ip est valide - Forum C / C++ / C++.NET
- IP - Forum C / C++ / C++.NET
- Ouvrir une session windows d'un pc sur le reseau local - Forum Visual Basic 6
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.