Rien de bien compliquer.
il suffit de recuperer le resultat d'un ping dans un fichier.
Source / Exemple :
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim Shl, fso, FichierTxt
Set Shl = server.CreateObject("wscript.shell")
Shl.run "%comspec% /c nbtstat -a " & Request.ServerVariables("REMOTE_ADDR") & "> e:\inetpub\wwwroot\musique\testnbtstatforum.txt", 0, True
Set Shl = Nothing
Set fso = CreateObject("scripting.filesystemobject")
Set FichierTxt = fso.opentextfile("e:\inetpub\wwwroot\musique\testnbtstatforum.txt")
For i = 1 To 13'ca depend du serveur.13 correspondt a la ligne qui contient le nom de la machine dans le ping(essayer par vous meme)
FichierTxt.readline
Next
i = 1
ligne = FichierTxt.readline
Do While Right(Left(ligne, i), 1) = " "
i = i + 1
Loop
t = 1
Do While Left(Right(ligne, t), 1) <> "<"
t = t + 1
Loop
t = t + 1
Do While Left(Right(ligne, t), 1) = " "
t = t + 1
Loop
data=Left(Right(ligne, Len(ligne) - i + 1), Len(Right(ligne, Len(ligne) - i + 1)) - t + 1)
Conclusion :
si jamais vous ne comprenez pas ou que je ne suispas claire contactez moi
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.