'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