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.
-------------------------------
Réponse au message :
-------------------------------
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...
|