0/5 (5 avis)
Snippet vu 18 835 fois - Téléchargée 37 fois
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)
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.