Récuperer le nom de reseau d'une machine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 453 fois - Téléchargée 35 fois

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

Ajouter un commentaire

Commentaires

Messages postés
6
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
21 décembre 2006

Il s'exécute sur le serveur mais récupère les informations de la machine cliente.
Messages postés
17
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
16 mars 2010

Bonjour,
Ce script récupere le nom du serveur ou de la machine sur lequel il s'exécute ?
Messages postés
6
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
21 décembre 2006

Ha l'utilisation du shell, la dernière chose à laquelle on pense et pourtant si utile ;)
un bon script donc avec un bémol sur la gestion de la chaîne issue du fichier.
J'ai donc fais ces petites fonctions qui devrait faciliter l'utilisation de ton script (les variables eti1 et eti2 peuvent peut-être bouger)
'à intégrer en remplacement de la ligne 8 et suivantes
8. 'Pour l'adresse physique
9. dataMac = MAC("e:\inetpub\wwwroot\musique\testnbtstatforum.txt")
10. 'Pour le nom de la machine
11. datamachine = MACHINE("e:\inetpub\wwwroot\musique\testnbtstatforum.txt")

Function MAC(sFile)
Dim eti1, eti2
eti1 "MAC Address "
eti2 = vbCrLf
MAC = Extract(sFile, eti1, eti2)
End Function

Function MACHINE(sFile)
Dim eti1, eti2
T = ReadAllFile(sFile)
eti1 = "---------------------------------------------" & Chr(13) & vbCrLf & " "
eti2 = " <"
MACHINE = Extract(sFile, eti1, eti2)
End Function

Function Extract(sFile, sEti1, sEti2)
Dim T, deb, fin
T = ReadAllFile(sFile)
deb = InStr(1, T, sEti1) + Len(sEti1)
fin = InStr(deb, T, sEti2)
Extract = Mid(T, deb, fin - (deb + 1))
End Function

Function ReadAllFile(strFile)
Dim fso, stm, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(strFile)
Set stm = f.OpenAsTextStream()
ReadAllFile = stm.ReadAll
stm.Close
Set stm = Nothing
Set fso = Nothing
End Function
Messages postés
2
Date d'inscription
mardi 27 avril 2004
Statut
Membre
Dernière intervention
13 septembre 2006

Bonjour
je vous félicite pour ce beau projet,ça ressemble à un projet que j'ai actuellement,c'est d'avoir des informations d'une machine par réseau (soft et hard)et j'ai besoin de votre aide.
Merci
Messages postés
17
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
4 octobre 2005

superbe

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.