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

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

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