RÉCUPERER LE NOM DE RESEAU D'UNE MACHINE
ikram311
Messages postés
17
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
4 octobre 2005
-
22 nov. 2005 à 16:53
szwr Messages postés 6 Date d'inscription jeudi 11 avril 2002 Statut Membre Dernière intervention 21 décembre 2006 - 18 févr. 2009 à 11:33
szwr Messages postés 6 Date d'inscription jeudi 11 avril 2002 Statut Membre Dernière intervention 21 décembre 2006 - 18 févr. 2009 à 11:33
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8723-recuperer-le-nom-de-reseau-d-une-machine
https://codes-sources.commentcamarche.net/source/8723-recuperer-le-nom-de-reseau-d-une-machine
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