Print GetMACAdr()
WaitKey()
End

Function GetMACAdr$()
	Local cmd$="cmd /c ipconfig /all > "+Chr(34)+CurrentDir()+"temp.txt"+Chr(34)
	ExecFile cmd$
	Delay 500
	Local reader=ReadFile("temp.txt")
	If reader=0 Then Return ""
	Local txt$="",adr$=""
	
	While Not Eof(reader)
		txt$=ReadLine(reader)
		;;Kürzere, schnellere Abfrage. Allerdings nur für deutsche Windows-Installationen
		;If Instr(txt$,"Physikalische Adresse")>0 Then
		;Ausführliche Abfrage, die auf allen Windows-Systemen funktionieren sollte
		If GetStringCount(txt$,"-")=5 Then
			adr$=Trim(Mid(txt$,Instr(txt$,":")+1))
			Exit
		EndIf
	Wend
	CloseFile reader
	
	DeleteFile "temp.bat"
	DeleteFile "temp.txt"
	
	Return adr$
End Function

Function GetStringCount(txt$,search$,casesensitive=True)
	Local index=1
	Local count=0
	
	If Not casesensitive Then
		txt$=Lower(txt$)
		search=Lower(search$)
	EndIf
	
	Repeat
		index=Instr(txt$,search$,index)
		If index=0 Then Exit
		count=count+1
		index=index+Len(search$)
	Forever
	
	Return count
End Function