Vbs: lecture adresse mac d'un pc

Commenter

Contenu du snippet

Petit utilitaire permettant de saisir le nom d'un ordinateur, de récupérer son adresse mac et d'ecrire le tout dans un fichier.

Source / Exemple : 


On error resume next
const ForReading = 1
const ForWriting = 2
const ForAppending = 8
Const OverWrite = True
computername=""

Set objFSO = CreateObject("Scripting.FileSystemObject")
fileout="mac.txt"
err.clear()
Set objFile = objFSO.OpenTextFile(fileout, ForAppending, True)
if err.number<>0 then msgbox "Impossible d'ouvrir le fichier '" & fileout & "'.", vbExclamation + vbOkOnly + vbSystemModal + 0,"Erreur"

do
        computername=InputBox ("Taper le nom du poste: ", "Fichier cible", computername)
        if computername="" then
                ret=MsgBox ("Arrêter le traitement ?", vbQuestion + vbYesNo + vbSystemModal + 0, "Chaine vide")
                if ret=vbyes then wscript.quit
        end if
loop while computername=""
ligne=scanposte() & ";" & computername & ";"
objFile.WriteLine(ligne)
objfile.close
msgbox ligne & vbCrLf & "a été ajouté au fichier '" & fileout & "'"

'/****************************** les fonctions ******************************/
function scanposte()
Set objWMIService = GetObject("winmgmts:" & "!\\.\root\cimv2")
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objAdapter in colAdapters
        mac=""
        for pos=1 to len(objAdapter.MACAddress)
                char=Mid(objAdapter.MACAddress, pos, 1)
                if char<>":" then mac=mac & char
        next
        if mac<>"" then scanposte=mac
next
end function

A voir également

S'inscrire maintenant

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.