IP

Signaler
Messages postés
61
Date d'inscription
jeudi 30 mai 2002
Statut
Membre
Dernière intervention
2 mai 2007
-
Messages postés
186
Date d'inscription
lundi 11 mars 2002
Statut
Membre
Dernière intervention
30 novembre 2010
-
J'iamerais un API qui affich l'IP de mon PC et si possible celui d'un autre PC (en LAN) dont on connaît le nom.

Merci...

3 réponses

Messages postés
59
Date d'inscription
mercredi 25 octobre 2000
Statut
Membre
Dernière intervention
19 janvier 2004

Fait avec WinSock tu créé le composant c dans Microsoft WinSock Control 6.0
et tu fait il me semble WinSock1.LocalIP
0
Messages postés
39
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
9 août 2002

Autre possibilité qui te permet de ne pas utiliser d'APi est de jouer avec le ping sous dos ....

'constante pour le ping nb de paquet,taille
Const nombre = 5
Const taille = 5
Const nombre =5
Const delai = 10

'Creation du fichier temporaire de résultat en Set fso = CreateObject("Scripting.FileSystemObject")
Set Fichier = fso.CreateTextFile("temp.ping", True)
Fichier.close

'Execution du ping avec redirection vers le fichier Set oShell = Server.CreateObject("WSCRIPT.SHELL")
Call oShell.Run ("cmd /c ping -n "&CStr(nombre) & " -l "&CStr(taille) & " -w " &CStr(delai)&" " & ComputerName & " > " & "temp.ping" , 0, True)

'ouverture du fichier
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fichier = fso.OpenTextFile("temp.ping", 1)
If Fichier.FileExists Then

'lecture du fichier en prenant les infos que tu veux

End IF

---------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.
0
Messages postés
186
Date d'inscription
lundi 11 mars 2002
Statut
Membre
Dernière intervention
30 novembre 2010
3
Ya aussi un moyen avec les apis Inet (je crois) d'obtenir toutes les Ip locales, un peu comme la commande msdos IpConfig
Si tu veux, j'ai un tit bout de code qui le fait !
0