Accueil > > > LISTER LES ADRESSES IP DE LA MACHINE
LISTER LES ADRESSES IP DE LA MACHINE
Information sur la source
Description
Lister les adresses IP de la machine
Source
- * 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
* 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
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
API windows [ par captainstf ]
Salut à tous!Je travaille actuelle sur l'api windows et je gallère pas mal :1- Je cherche à mettre une application au premier plan, j'utilise :showwin
combobox dans un formulaire [ par brunaux ]
Bonjour à tous !utilisant VFP 6.0 occasionnellement pour faire des écrans de saisie,je voudrais savoir comment l'on fait dans un combobox(donc avec un
parution vfp 9.0 [ par brunaux ]
bonjour !je vois que visual foxpro 9.0 va sortir ?sera t-elle en vente en france ? et en francais,evidemment ?puisque je crois que les versions 7.0 et
VFP vers VB [ par senaco ]
Développeur sous Visual Foxpro, je dois développer un exemple d'utilisation de ma DLL sous VB. Or je ne connais pas VB. Existe-t-il une programme de c
VFP 6 Beta : Comment générer les disquettes d'installation? [ par petrone ]
Salut!Utilisateur de Visual FoxPro 6, je me suis mis depuis quelques mois à VFP 9 bêta que j'ai téléchagée sur le net.Depuis j'ai trouvé que des avan
Partage avec DLL [ par delphifox ]
Je voudrais structurer mon projet VFP entre un EXE et plusieurs DLL.L'EXE est en VFP et les DLL aussi. La DLL doit afficher un écran de saisieAu
"Handwriting Recognition" - Signature manuscrite sur un rapport imprimé vs VFP 6.0 [ par BuckStar ]
Appel à tous,J'ai une application en VFP 6.0 en trois modules: 1. Module-Client: Le client passe une commande2. Module-Approbation - La commande
a faire et ne pas faire en VFP [ par brunaux ]
Je suis utilisateur occasionnel et en lisant une contribution dans ATOUTFOX il y a un article qui s'intitule ' a faire et ne pas faire en VFP' j'aimer
Insertion de photo dans vfp [ par mimyangelworld ]
Coucou, voila, je debute un peu dans vfp et je voudrais savoir commeny faire pour pouvoir inserer une photo dans un formulaire qui pourra etre changer
Dificulté avec vfp [ par ladjos ]
salut moi c'est ladjos et j'ai du mal à telecharger visual foxproje demande de l'aide
|
Derniers Blogs
TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice CRéATION D'UNE BASE DE DONNéE SOUS SQL AZURECRéATION D'UNE BASE DE DONNéE SOUS SQL AZURE par junarnoalg
Sans rentrer dans les détails, je me propose ici de faire un rapide tour de ce que propose SQL Azure.
SQL Azure est avant tout un service d'hébergement de base de données relationnelles construit sur SQL Server. Il permet aux entreprises d...
Cliquez pour lire la suite de l'article par junarnoalg
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|