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

'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

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