RÉCUPERER LE NOM DE RESEAU D'UNE MACHINE

Commentaire de ikram311 le 22/11/2005 16:53:05

superbe

Commentaire de szwr le 27/06/2007 11:48:32

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