hardcopy aus Konsole drucken

[explorer1]

H:\>ipconfig /all > ipconfig-all.txt | notepad /p ipconfig-all.txt | del ipconfig-all.txt

hello shark, danke.

ich kann jetzt das blind eingeben, doch hatte ich schon mein blaues wunder erlebt bis zum sysemabsturz.
wieso Laufwerk H:\ muss es H:\> sein, oder ist das eine Variable ?
kannst Du mir bitte die einzelenen Schritte erklären ?
1) muss das Zeichen > sein?
2) bedeutet ipconfig /all > ipconfig-all.txt die convertierung von*.exe in *.txt?
3) ich versteh den letzten Schritt nicht: "del ipconfig-all.txt" wieso löschen ?

mfg/explorer1

[pustekuchen]

Zitat:

H:\>ipconfig /all > ipconfig-all.txt | notepad /p ipconfig-all.txt | del ipconfig-all.txt

H: Ist der Laufwerksbuchstabe, bei dir wahrscheinlich C:
Das > bedeuted, das das Ergebnis in einer Textdatei gespeichert wird.
notepad /p ipconfig-all.txt öffnet die Datei mit Notepad.exe und soll wahrscheinlich den druckdialog öffnen
del ipconfig-all.txt soll die Textdatei wieder löschen,da sie nur Temporär gebraucht wird.

Doch wie shark schon oben schrieb, hat es bei ihm noch nicht funktioniert

PS: Versuch die Datei mal mit "Run print "H:\ipconfig-all.txt" zu drucken

[mschaefer]

Das mit dem Del funktioniert leider nicht, denn die Datei wird noch gesperrt sein, wenn das Druckprogramm geöffnet ist.

Habe hier eine Variante mit der man mit dem Explorer druckt, wobei html und txt Dateien gedruckt werden können.

ipconfig /all > %TMP%/ipconfig-all.txt | RUNDLL32.EXE MSHTML.DLL,PrintHTML "%TMP%\ipconfig-all.txt"

Grüße in die Runde

[Bummi]

ich hätte da noch was

ipconfig / all | PRT.exe

Delphi-Quellcode:

program PRT;
// 20110905 by Thomas Wassermann
{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Classes,
  Printers;

var
  Buffer: array [0..100000] of AnsiChar;
  BytesRead:cardinal;
  sl:TStringList;
  Y,i,th,ph:Integer;
begin
  try
    sl:=TStringList.Create;
  try

   ReadFile(STD_INPUT_HANDLE , Buffer, 10000, BytesRead, nil);
   sl.Text := sl.text + Copy(Buffer,0,BytesRead);
   while BytesRead>0 do
      begin
       ReadFile(STD_INPUT_HANDLE , Buffer, 10000, BytesRead, nil);
       sl.Text := sl.text + Copy(Buffer,0,BytesRead);
       Sleep(100);
      end;
   if sl.Count>0 then
      begin
       Printer.BeginDoc;
       th := Printer.Canvas.TextHeight('X');
       ph := Printer.PageHeight;
       Y := 0;
       for I := 0 to sl.Count-1 do
          begin
            Y := y + th;
            if y > ph then
              begin
              y := 0;
              Printer.NewPage;
              end;
            Printer.Canvas.TextOut(10, y ,sl[i]);
          end;
       Printer.EndDoc;
      end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  finally
    sl.Free;
  end;
end.

[Hansa]

Das hier geht :

net use lpt1: /Delete
net use lpt1: \\Rechnername\Drucker-Freigabename /persistent:YES
ipconfig /all >1
print 1

Das net use dient eigentlich nur dazu, den LPT1 zu simulieren. Das geht sogar auch dann, wenn gar keiner da ist.