IP
cs_babouche
Messages postés
61
Date d'inscription
jeudi 30 mai 2002
Statut
Membre
Dernière intervention
2 mai 2007
-
27 juil. 2002 à 13:56
thiosyiasar Messages postés 186 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 30 novembre 2010 - 31 juil. 2002 à 12:52
thiosyiasar Messages postés 186 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 30 novembre 2010 - 31 juil. 2002 à 12:52
3 réponses
szteam
Messages postés
59
Date d'inscription
mercredi 25 octobre 2000
Statut
Membre
Dernière intervention
19 janvier 2004
27 juil. 2002 à 20:59
27 juil. 2002 à 20:59
Fait avec WinSock tu créé le composant c dans Microsoft WinSock Control 6.0
et tu fait il me semble WinSock1.LocalIP
et tu fait il me semble WinSock1.LocalIP
TeKiT
Messages postés
39
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
9 août 2002
29 juil. 2002 à 10:59
29 juil. 2002 à 10:59
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.
'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.
thiosyiasar
Messages postés
186
Date d'inscription
lundi 11 mars 2002
Statut
Membre
Dernière intervention
30 novembre 2010
3
31 juil. 2002 à 12:52
31 juil. 2002 à 12:52
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 !
Si tu veux, j'ai un tit bout de code qui le fait !