http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** 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 )

http://dieseyer.de • all rights reserved • © 2011 v11.4