2 Ethernet-Adapter Mac Adressen anzeigen auswerten

Hingo

Moin,
ich würde gerne meine 2 Ethernet-Adapter Lan-Verbindung Mac-Adresse anzeigen, mit einer klappt es, doch ich habe nichts gefunden wie ich die 2te anzeigen lasse.
Wenn ihr etwas wisst lasst es mich.

Hier der Teil des Skriptes:

Spoiler anzeigen

#include <File.au3>
#include <Process.au3>

FileDelete("C:\logs\Panelcheckliste.txt") ;Delete the Logfile "test"
DirCreate("C:\logs\") ;create a log´s folder
Local $Log = FileOpen("C:\logs\Test.txt", 1) ;log localization

$strComputer = "."
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$colAdapters = $objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = False") ;Search the Mac Address

$str = ''

For $objAdapter in $colAdapters
$str &= " Physical (MAC) address: " & $objAdapter.MACAddress & @LF

EndFunc ;End of the Func

Local $iRc = _RunDos("start Notepad C:\logs\Test.txt")

MfG
Hingo

**alpines**

Mit IPEnabled = True kriege ich bei mir 2 Funde, bei IPEnabled = False sogar deutlich mehr wovon die Hälfte keine MAC-Adresse hat.
Du kannst auch den Zweig "WHERE IPEnabled = True" einfach komplett rausnehmen und findest dann alle Adapter.

AutoIt

$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colAdapters = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")


$str = ""


For $objAdapter in $colAdapters
	$str &=  "Physical (MAC) address: " & $objAdapter.MACAddress & @LF
Next


MsgBox(0,0,$str)

Alles anzeigen

Hingo

Das Ding ist ich möchte es in einer .txt Datei haben und es dann später in einer PDF umwandeln.

**alpines**

Zitat von Hingo

Das Ding ist ich möchte es in einer .txt Datei haben und es dann später in einer PDF umwandeln.

Und wo ist das Problem? FileWrite doch in eine Datei mit dem Script was ich gepostet habe, ist doch absolut kein Beinbruch?

Hingo

Mein ganzes Programm sieht so aus:

AutoIt

#include <File.au3>
#include <Date.au3>
#include <Process.au3>
#Include <Array.au3>






	FileDelete("C:\logs\Panelcheckliste.txt")																	;Delete the Logfile "Panelcheckliste"
	DirCreate("C:\logs\")                                                                  						;create a log´s folder
	Local $Log = FileOpen("C:\logs\Panelcheckliste.txt", 1)                                          			;log localization




Start()
Func Start()
		FileWrite($Log,"                   BPCS Checkliste         "&@CRLF)
		FileWrite($Log,"====================================================="&@CRLF)
		FileWrite($Log,""&@CRLF)
		FileWrite($Log, "Current Date:                             " & _NowDate()&@CRLF)						;write Current date in log file
		FileWrite($Log, "Current Time:				    " & _NowTime()&@CRLF)									;write Current time in log file
		FileWrite($Log, ""&@CRLF)
		FileWrite($Log, "********************Computer Data********************"&@CRLF)
		FileWrite($Log, ""&@CRLF)
		FileWrite($Log, "Serial number:"&@CRLF)
EndFunc






$strComputer = "."
	$objWMIService = ObjGet("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    $colAdapters = $objWMIService.ExecQuery _
        ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")								;Search the Mac Address


    $str = ''


For $objAdapter in $colAdapters
       $str &= "  Physical (MAC) address: " & $objAdapter.MACAddress & @LF
Next


MacAddress ()
Func MacAddress ()																								;Start Func to show the Mac Address
	FileWrite ($Log, "Physical address:                  "&$objAdapter.MACAddress& ""&@CRLF)					;Write the Varible of the Mac Address in Log
EndFunc																											;End of the Func






CheckWindowsDir()																		 						;Check the Windows folder location
Func CheckWindowsDir()
	If FileExists("C:\Program Files (x86)") Then
		FileWrite($Log, "Operating system:                          " &@OSVersion& " " &@OSArch &@CRLF )		;Write in the log: System partition: "Windows directory"
	Else
		FileWrite($Log, "Operating System is unknow"&@CRLF)


	EndIf
EndFunc






CheckSpaceC ()																			 	 					;Check how much space does the disc C have and if it´s more than 39GB
Func CheckSpaceC ()
	Local $SpaceC = DriveSpaceTotal ("C:/")                                                						;Disc c localization
	Local $CinGb = Round($SpaceC)/1000
	Local $minC = String(39000)
		If $SpaceC > $minC Then                                                                					;if disc C have more space than minC(39GB), then


			FileWrite($Log, "Disc C space " & $CinGb & "GB:                          [X]"&@CRLF)				;write in the log that disc c have enought space
		Else
			FileWrite($Log, "Disc C space:                                 [ ]"&@CRLF)							;write in the log that disc c dont have enought space
		EndIf
EndFunc






CheckSpaceD ()                                                                            						;Check how much space does Disc D have
Func CheckSpaceD ()
	$Dloc = ("D:/")
		If FileExists($Dloc)  Then															  					;if locaization "D:/" exists then


	Local $SpaceD = DriveSpaceTotal ("D:/")                                                     				;check how much space does the Disc D have
	Local $DinGb = Round($SpaceD)/1000


			FileWrite($Log, "Disc D space " & $DinGb & "GB:                          [X]"&@CRLF)				;Write in log: Disc D exist and write how much space does the D have
		Else																									;Else
		    FileWrite($Log, "Disc D space:                                    [ ]"&@CRLF)       				;Write that the disc cant find disc D
		EndIf
EndFunc

Alles anzeigen

Wo die eine Ethernet adresse ausgelesen wird, soll jetzt noch die 2te Ethernet andresse ausgelesen werden. Mit deinem Vorschlag werden ja alle ausgelesen.

**alpines**

Zitat von Hingo

Wo die eine Ethernet adresse ausgelesen wird, soll jetzt noch die 2te Ethernet andresse ausgelesen werden. Mit deinem Vorschlag werden ja alle ausgelesen.

Nun, wie willst du denn festlegen was die 2. Ethernetadresse sein soll? Du musst selber entscheiden welche das ist.
Du kannst dir von allen auch die Bezeichner holen um Adapter wie VirtualBox-Ethernet-Only auszuschließen oder du dumpst das ganze über die cmd mit ipconfig /all und parst da die Adressen raus.

**alpines**

Gerade das hier im Forum gefunden, vielleicht hilft es dir ja weiter:

AutoIt

#include <array.au3> ; wird nur für _ArrayDisplay benötigt
Global $networkadapter [1] [2]
_GetNetworkadapterInf ()
_ArrayDisplay ($networkadapter)


;Auslesen der Netzwerkadapter:
;	Selbstbestimmter Name
;	int. Beschreibung
;	IP Adresse
Func _GetNetworkadapterInf ()
	$x = 0
	$strComputer = "Localhost"
	$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
	$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
	$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
	For $objItem In $colItems
			$networkadapter [$x] [0] = $objitem.Name
			$networkadapter [$x] [1] = $objItem.MACAddress
			$x += 1
			Redim $networkadapter [$x + 1] [2]
	Next
EndFunc

Alles anzeigen

Hingo

Bei deinem ersten Skript kann man die Mac Adressen nicht einzeln auftrennen, das heißt das ich nur 2 davon auslese?

MfG
Hingo

**alpines**

Zitat von Hingo

Bei deinem ersten Skript kann man die Mac Adressen nicht einzeln auftrennen, das heißt das ich nur 2 davon auslese?

Was meinst du mit einzeln auftrennen?

Hingo

Ich benötige nur 2 der Mac Adressen und nicht alle. Bei den Skript die du reingesetzt hast werden ja alle ausgelesen.

**alpines**

Zitat von Hingo

Ich benötige nur 2 der Mac Adressen und nicht alle. Bei den Skript die du reingesetzt hast werden ja alle ausgelesen.

Liest du eigentlich die Antworten durch die ich verfasse? Du musst selber auswählen welche Netzwerkadapter du verwenden willst. Es gibt keine Priorität oder Rangliste nachder du gehen könntest.

Wenn du die Mac-Adresse vom 1. LAN-Port und die vom 2. haben willst, dann lass dir alle auflisten und Vergleich mit @IpAddress1, @IpAddres2, ... die Adressen und speicher die ab die du haben willst.

Wenn es dir banane ist welche du haben willst, dann speicher einfach die ab dessen Mac-Adressen in der Liste nicht leer sind.

Hingo

Ich lese jetzt alle Mac Adressen aus das ist auch ok, doch ich möchte jetzt mit einer If-Abfrage machen, das wenn keine Adresse gefunden wurde das diese Zeile nicht angezeigt wird.

Spoiler anzeigen

#include <File.au3>
#include <Date.au3>
#include <Process.au3>
#Include <Array.au3>

FileDelete("C:\logs\Panelcheckliste.txt") ;Delete the Logfile "Panelcheckliste"
DirCreate("C:\logs\") ;create a log´s folder
Local $Log = FileOpen("C:\logs\Panelcheckliste.txt", 1) ;log localization

Start()
Func Start()
FileWrite($Log," BPCS Checkliste "&@CRLF)
FileWrite($Log,"====================================================="&@CRLF)
FileWrite($Log,""&@CRLF)
FileWrite($Log, "Current Date: " & _NowDate()&@CRLF) ;write Current date in log file
FileWrite($Log, "Current Time: " & _NowTime()&@CRLF) ;write Current time in log file
FileWrite($Log, ""&@CRLF)
FileWrite($Log, "********************Computer Data********************"&@CRLF)
FileWrite($Log, ""&@CRLF)
FileWrite($Log, "Serial number:"&@CRLF)
EndFunc

$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colAdapters = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")

$str = ""

For $objAdapter in $colAdapters
$str &= "Physicaladdress: " & $objAdapter.MacAddress &@CRLF& @LF
Next

;FileWrite($Log, $str)

Func Address ()
If $objAdapter.MacAddress = "" Then

FileWrite($Log, "")
Else
FileWrite($Log, $str)
EndIf

EndFunc

MfG
Hingo

**alpines**

Mach es doch, wo liegt das Problem?

Hingo

Ich finde nicht raus welche Zeile die Adresse ausliest.
Oder ist das so wie ich es mache überhaupt richtig?

AutoIt

DirCreate("C:\logs\")                                                                  						;create a log´s folder
	Local $Log = FileOpen("C:\logs\Panelcheckliste.txt", 1)                                          			;log localization




Start()
Func Start()
		FileWrite($Log,"                   BPCS Checkliste         "&@CRLF)
		FileWrite($Log,"====================================================="&@CRLF)
		FileWrite($Log,""&@CRLF)
		FileWrite($Log, "Current Date:                             " & _NowDate()&@CRLF)						;write Current date in log file
		FileWrite($Log, "Current Time:				    " & _NowTime()&@CRLF)									;write Current time in log file
		FileWrite($Log, ""&@CRLF)
		FileWrite($Log, "********************Computer Data********************"&@CRLF)
		FileWrite($Log, ""&@CRLF)
		FileWrite($Log, "Serial number:"&@CRLF)
EndFunc






$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colAdapters = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")


$str = ""


For $objAdapter in $colAdapters
	$str &=  "Physicaladdress: " & $objAdapter.MacAddress &@CRLF& @LF
Next


	;FileWrite($Log, $str)




	If $objAdapter.MacAddress = "" Then


		FileWrite($Log, "")
	Else
		FileWrite($Log, $str)
	EndIf

Alles anzeigen

**alpines**

Zitat von Hingo

Ich finde nicht raus welche Zeile die Adresse ausliest.
Oder ist das so wie ich es mache überhaupt richtig?

Was macht dein Script denn? Die Zeile welche die Adresse beinhaltet hast du ja offenbar gefunden.
Jetzt schaust du nach ob die Adresse leer ist, wenn sie es nicht ist fügst du sie der Liste hinzu - so einfach.

Hingo

Habe es fertig.
Danke für die Hilfe.

AutoIt

#include <File.au3>
#include <Date.au3>
#include <Process.au3>
#Include <Array.au3>


	FileDelete("C:\logs\Panelcheckliste.txt")																	;Delete the Logfile "Panelcheckliste"
	DirCreate("C:\logs\")                                                                  						;create a log´s folder
	Local $Log = FileOpen("C:\logs\Panelcheckliste.txt", 1)                                          			;log localization




Start()
Func Start()
		FileWrite($Log,"                   BPCS Checkliste         "&@CRLF)
		FileWrite($Log,"====================================================="&@CRLF)
		FileWrite($Log,""&@CRLF)
		FileWrite($Log, "Current Date:                             " & _NowDate()&@CRLF)						;write Current date in log file
		FileWrite($Log, "Current Time:				    " & _NowTime()&@CRLF)									;write Current time in log file
		FileWrite($Log, ""&@CRLF)
		FileWrite($Log, "********************Computer Data********************"&@CRLF)
		FileWrite($Log, ""&@CRLF)
		FileWrite($Log, "Serial number:"&@CRLF)
EndFunc






$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colAdapters = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")


$str  = ""


For $objAdapter in $colAdapters
	If $objAdapter.MacAddress = Null Then
	Else
		FileWrite($Log, "Physicaladdress:                   "  &	$objAdapter.MacAddress &@CRLF& @LF)
	EndIf
Next

Alles anzeigen

MfG
Hingo

bazii

Hallo Hingo

Nur ein kleiner Verbesserungsvorschlag:

Deine Ausgabedatei listet allein die MAC-Adressen ohne Adapterbezeichnungen aus. Kommst Du damit wirklich klar?
Also ich persönlich würde es schöner finden, wenn die Adapterbezeichnungen zu den MAC-Adressen aufgelistet werden würden. Sonst kann man ja gar nicht erkennen, welcher Netzadapter zu welcher MAC-Adresse gehört.

Die Eingabeaufforderung gibt Dir mit wenigen Zeilen in AutoIt, alle Deine Adapter fein säuberlich aus. Das wäre eine sehr einfache Art und Weise wie ich sie gerne nutze.

CMD Konsole öffnen: getmac /V > getmac.txt eintippen und "enter" drücken. Fertig.

In Autoit ist es ähnlich trivial.

AutoIt

Func _mac()
    RunWait(@ComSpec & ' /c ' & 'getmac /V > getmac.txt' & '"', "", $dateipfad, @SW_HIDE)
    ;Exit
EndFunc   ;==>_mac

Wie Du den Rest Deiner Codezeilen unterbringen kannst, steht ja bereits in Deinem Code.

Zum lernen:
Wenn Du das ganze auf einwenig aufwendigere Art und Weise lösen möchtest, solltest Du diesen Code von @'AspirinJunkie' aus diesem Beitrag nachvollziehen. Besser geht es IMHO mit waschechtem AutoIt-Code nicht.

AutoIt

#include <array.au3>


$aNetAdapters = _GetMacAdressesWMI()
_ArrayDisplay($aNetAdapters)


$aNetAdapters = _GetMacAdressesCMD()
_ArrayDisplay($aNetAdapters)






;---------------------------- Funktionen -----------------------------------------------------------
Func _GetMacAdressesWMI()
	Local $aReturn[1][2], $bY = False


	If IsDeclared("oWMI") <> 1 Then
		Local $oWMI = ObjGet("winmgmts:\\localhost\root\CIMV2")
		If @error Or Not IsObj($oWMI) Then Return SetError(1, @error, 0)
	EndIf
	Local $aItems = $oWMI.ExecQuery("SELECT MACAddress, Name FROM Win32_NetworkAdapter " & _
			"WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> " & _
			"'Microsoft'))", "WQL", 0x10 + 0x20)


	If IsObj($aItems) Then
		For $x In $aItems
			If $bY Then
				ReDim $aReturn[UBound($aReturn) + 1][2]
			Else
				$bY = True
			EndIf
			$aReturn[UBound($aReturn) - 1][0] = $x.Name
			$aReturn[UBound($aReturn) - 1][1] = StringReplace($x.MACAddress, ':', '-')
		Next
		Return $aReturn
	Else
		Return SetError(2, 0, 0)
	EndIf
EndFunc




Func _GetMacAdressesCMD()
	$sCMD = _GetDOSReturn("ipconfig", "/all")
	$aRegExRet = StringRegExp($sCMD, "(?s)[^-](?:Beschreibung|Description)[\.\s]+?:\s([\w\s]+).+?[^-]([0-9A-F]{2}(?:-[0-9A-F]{2}){5})[^-]", 3)
	If @error Then
		Return SetError(1,@error, '')
	Else
		Local $aReturn[UBound($aRegExRet)/2][2]


		For $i=0 To UBound($aReturn)-1
			$aReturn[$i][0] = $aRegExRet[$i*2]
			$aReturn[$i][1] = $aRegExRet[$i*2+1]
		Next
		Return $aReturn
	EndIf
EndFunc


Func _GetDOSReturn($sCMD, $sParameter = '')
	Local $sPara = '', $sReturn = '', $sLine
	If $sParameter <> '' Then $sPara = ' ' & $sParameter
	Local $iPID = Run($sCMD & $sPara, '', @SW_HIDE, 2)


	While 1
		$sLine = StdoutRead($iPID)
		If @error Then ExitLoop
		$sReturn &= $sLine
	WEnd


	Return $sReturn
EndFunc
;------------------------------------------------------------------------------------------------

Alles anzeigen

Noch ein Tip am Rande:
Schau mal wegen der PDF Umwandlung hier nach. Eventuell hilft das weiter.

Hingo

Moin bazii,

danke für deine Hilfe ich werde es mit der Mac Adresse später ausprobieren.
Zum PDF Converter, mit der UDF arbeite ich gerade schon, mein aktueller Stand ist jetzt gerade die PDF automatisch in einem Ordner zu speichern.

**alpines**

Wenn es geklappt hat, dann setze doch bitte den grünen Haken für erledigt / gelöst (1. Beitrag bearbeiten, Threadstatus anpassen).

Hingo

Ja mache ich dann.