'v3.B***************************************************
' File:   MAC-Adr.VBS
' Autor:  dieseyer@gmx.de 
'         dieseyer.de 
' 
' !!! Nur WinNT/2k/XP !!!
' 
' gibt die MAC-Adr. der Netzwerkkarten aus
'*******************************************************

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

DIM Ziel, Text1, Text2, FileIn
DIM WSHShell, FSO, WSHNet

Set WSHShell  = WScript.CreateObject("WScript.Shell")
Set FSO       = CreateObject("Scripting.FileSystemObject")
Set WSHNet    = WScript.CreateObject("WScript.Network")

Ziel = wshnet.ComputerName & ".tmp" 

  WshShell.run ("%comspec% /c ipconfig /all > " & Ziel),0,true

  Set FileIn = fso.OpenTextFile(Ziel, 1 ) ' Datei zum Lesen öffnen 
        Text2 = ""
    Do While Not (FileIn.atEndOfStream)        ' wenn Datei nicht zu ende ist, weiter machen
      Text1 = CStr( FileIn.Readline )          ' eine Zeile lesen
      if InStr( UCase ( Text1 ) , "HYSI") then ' diese 4 Zeichen sind im engl. und deut. gleich
        Text1 = Replace( Text1, vbCR, "") 
        Text1 = Replace( Text1, vbLF, "") 
        Text1 = Mid( Text1 , InStrRev( Text1 , " ") ) 
        Text2 = Text2 & Text1 & vbCRLF
      End If
    Loop
      FileIn.Close
  Set FileIn = nothing

'folgende Zeile freigeben
'*******************************************************
  if fso.FileExists(Ziel) Then fso.DeleteFile(Ziel), True     ' Datei löschen

wshshell.Popup Text2 , 15, WScript.ScriptName
WScript.Quit

'*********************************
Sub LogDatei (LogTxt)
'*********************************
  Dim FileOut, fso
  Set fso      = WScript.CreateObject("Scripting.FileSystemObject")
  Set FileOut = fso.OpenTextFile( WScript.ScriptName & ".log", 8, true)
'     FileOut.WriteLine (vbCRLF & Now() )
      FileOut.WriteLine (now() & vbTab & LogTxt)
      FileOut.Close
  Set FileOut = Nothing
End Sub ' LogDatei