Récuperer le nom de reseau d'une machine
0/5 (5 avis)
Snippet vu 18 835 fois - Téléchargée 37 fois
Contenu du snippet
Rien de bien compliquer.
il suffit de recuperer le resultat d'un ping dans un fichier.
si jamais vous ne comprenez pas ou que je ne suispas claire contactez moi
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
- Récuperer le nom de reseau d'une machine
- Récupère le nom d'une machine à l'aide d'une résolution dns - Codes sources - C# / .NET (.NET)
- Delphi / Pascal : Récupération ip + nom de machine sous linux - CodeS SourceS - Guide
- Récupérer le nom de la machine local en VB/VBA ✓ - Forum - Visual Basic
- Comment récupérer le nom de la machine locale ? ✓ - Forum - C# / .NET
- [vb.net] Récupération du nom de la machine ✓ - Forum - Visual Basic
18 févr. 2009 à 11:33
18 févr. 2009 à 10:06
Ce script récupere le nom du serveur ou de la machine sur lequel il s'exécute ?
27 juin 2007 à 11:48
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
13 sept. 2006 à 11:17
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
22 nov. 2005 à 16:53
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.