Hallo zusammen,
ich habe ein Formular, welches beim Load folgendes Ereignis ausführt:
Private Sub Form_Load()
Dim strComputer As String
Dim objWMIService As Object
Dim colAdapters As Object
Dim objAdapter As Object
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objAdapter In colAdapters
MsgBox "Physical address: " & objAdapter.MACAddress
Next objAdapter
End Sub
Das funktioniert auch zuverlässig. Es kommt bei mir dann 2x ein PopUp hoch (ich muss also das erste bestätigen, um auch das 2. zu sehen), welches mir dann die physikalischen MAC-Adressen meiner Netzwerkkarte anzeigt. Wie bewerkstelligt man es nun, dass er die Werte (ob 2 oder 3) in eine Textdatei schreibt und dies als PopUp öffnet, damit man diese Textdatei speichern kann?
Der Königsweg wäre, dass er gleich den Mailclient öffnet, die Datei benamt und attached, damit sie versendet werden kann. Aber, das ist dann wirklich ein Schritt, der schön wäre, aber nicht zwingend. Mailclient hat auch nicht jeder auf dem PC.
Kann mir da jemand helfen, da VBA weiterhin nicht meine Welt ist bzw. nur rudimentäres Wissen da ist.
Gruß Andreas
Hallo,
warum Textdatei?
Sub test()
Dim strComputer As String
Dim objWMIService As Object
Dim colAdapters As Object
Dim objAdapter As Object
Dim strMAC As String
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objAdapter In colAdapters
strMAC = strMAC & "; " & objAdapter.MACAddress
Next objAdapter
DoCmd.SendObject acSendNoObject, , acFormatHTML, "abcdef@mail.mail", , , "Mac - Adressen", Mid(strMAC, 3), True
End Sub
Hallo Franz,
nun ja, ich muss mir die Daten von den PopUps abschreiben, oder Screenshots erstellen what ever, also meinte ich in eine Textdatei macht am meisten Sinn. Das was du mir jetzt ergänzt hast muss ich mal schnell ausprobieren.
Gruß Andreas
Hi,
was soll ich sagen, gleich der Königsweg aus meiner Sicht. Funktioniert tadellos.
Recht herzlichen Dank.
Gruß Andreas