RÉCUPERER LE NOM DE RESEAU D'UNE MACHINE

Signaler
Messages postés
17
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
4 octobre 2005
-
Messages postés
6
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
21 décembre 2006
-
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

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