'*** v10.1 *** www.dieseyer.de *****************************
'
' Datei:  mac-adr3.vbs
' Autor:  dieseyer@gmx.de
' Auf:    www.dieseyer.de
'
' Gibt die MAC-Adr. der aktiven Netzwerkkarte(n) zurück.
'
'***********************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

MsgBox WMIMACadr( "." ), , WScript.ScriptName

WScript.Quit


'*** v10.1 *** www.dieseyer.de ******************************
Function WMIMACadr( PC )
'***********************************************************
' Gibt die MAC-Adr. der aktiven Netzwerkkarte(n) zurück.
  Dim	objWMIService		: Set objWMIService	= GetObject("winmgmts:\\" & PC & "\root\cimv2")
  Dim	colItems		: Set colItems		= objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
  Dim   objItem
  Dim	Tst
  For Each objItem in colItems
'	wscript.echo objItem.dnshostname & ";" & objItem.IPAddress(0) & ";" & objItem.MACAddress
'	Tst = Tst & vbCRLF & objItem.IPAddress(0) & "   " & objItem.MACAddress & "   ]" & objItem.IPEnabled & "["
' 	Tst = Tst & vbCRLF & objItem.MACAddress & "   ]" & objItem.IPEnabled & "["
' 	Tst = Tst & vbCRLF & objItem.MACAddress & vbTab & objItem.IPAddress & vbTab & objItem.Description
' 	Tst = Tst & vbCRLF & objItem.MACAddress & "   " & vbTab & objItem.Description & vbTab & objItem.IPAddress(0)
 	Tst = Tst & vbCRLF & objItem.MACAddress
  Next
  WMIMACadr = Tst
End Function ' WMIMACadr( PC )