Récuperer le nom de reseau d'une machine

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.