Office: Rückgabewert aus DOS in Excel-Zelle

Hallo Zusammen

Bin neu in diesem Forum und was VBA angeht noch ein Anfänger.

Wie kann man einen Rückgabewert aus einem Dos-Fenster auswerten in dem man ihn in eine Zelle in Excel schreibt?

Es ist mir möglich, den Rückgabewert in eine TXT-Datei zu schreiben, wäre jedoch für mich sinnvoller, wenn man den Wert direkt in eine Excel-Zelle schreiben könnte.

Ich rufe das Programm, welches in der Eingabeaufforderung ausgeführt wird, wie folt auf:
Shell Environ$("COMSPEC") & " /c C:\TEMP\PSPASSWD\PSPASSWD.EXE

nach der Pfadangabe kommen Parameter, welche hierzu nicht relevant sind.

Ich hoffe sehr, dass ihr mir helfen könnte. Dazu schon mal im Voraus ein Dankeschön.

Gruss

:)

 

Hallo,

versuch's mal damit:

Sub Befehl_ausfuehren_mit_Ausgabe_in_zelle()
strBefehl = Environ("comspec") & " /c hostname"
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec(strBefehl)
Cells(1, 1) = objExec.StdOut.ReadAll
End Sub


mfg Anton

 

Hallo und danke, hat funktioniert!