'v5.1*************************************************** ' File: mac-adr2.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' Gibt die MAC-Adr. aus. ' Bei mehreren NIC wird die letzte MAC-Adr. ausgegeben, ' die nicht mit "169." beginnt. '******************************************************* Option Explicit MsgBox "=>" & MACadr & "<=" , , WScript.ScriptName WScript.Quit '************************************************************** Function MACadr() ' v4.C - http://dieseyer.de '************************************************************** Dim oExec : Set oExec = WScript.CreateObject("WScript.Shell").Exec("%comspec% /c ipconfig /all" ) Dim i MACadr = "" Do While Not oExec.StdOut.AtEndOfStream ReDim Preserve Tst(i) ' Ausgaben in Array umleiten Tst(i) = oExec.StdOut.ReadLine : i = i + 1 Loop For i = LBound( Tst ) to UBound( Tst ) - 4 If InStr( Tst( i ) , "Phys" ) > 0 AND InStr( Tst( i ) , " Ad" ) > 0 Then ' 3 Zeilen nach der MAC-Adr. darf die IP-Adr. If InStr( Tst( i + 3 ) , ": 169.") = 0 Then MACadr = Tst( i ) ' nicht mit 169. beginnen End If Next If not MACadr = "" Then MACadr = Replace( MACadr, vbCR, "" ) MACadr = Replace( MACadr, vbLF, "" ) MACadr = Mid( MACadr, InStr( MACadr, " : ") ) MACadr = Replace( MACadr, " : ", "" ) End If End Function ' MACadr() v4.C - http://dieseyer.de '**************************************************************