Ausgelesene Werte in Textdatei schreiben und speichern

[derilzemer]

Hallo zusammen,
ich habe ein Formular, welches beim Load folgendes Ereignis ausführt:

Code [Auswählen] Erweitern

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

[DF6GL]

Hallo,

warum Textdatei?

Code [Auswählen] Erweitern


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

[derilzemer]

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

[derilzemer]

Hi,
was soll ich sagen, gleich der Königsweg aus meiner Sicht. Funktioniert tadellos.
Recht herzlichen Dank.

Gruß Andreas