Lazarus 3.2 (2024.02.28.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Vírusirtó 2016 jún. 03 09:24 #2023

  • JohnnyK
  • JohnnyK profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 78
  • Köszönetek: 16
Ha jól értem, akkor az ipconfig /all parancs eredményében szeretnél keresgélni, majd egy szövegfájlba menteni a kiemelt adatokat. A következő parancsok egy StringList-be gyűjtik neked az ipconfig /all kimenetét ( sajnos az ANSI kódolás miatt a magyar ékezetek egyelőre még eltűnnek ). A StringList-et a végén le is mentheted fájlba, vagy előtte kikeresheted belőle a fontosabb adatokat. A kód:
uses Process, ...
procedure TForm1.Button1Click(Sender: TObject);
const BUF_SIZE = 2048;
var   aProcess: TProcess;
      StrList: TStringList;
      aStream: TStream;
      BytesRead: integer;
      Buffer: array [1..BUF_SIZE] of byte;
begin
  aProcess := TProcess.Create(nil);
  aProcess.Executable := 'ipconfig';
  aProcess.Parameters.Add('-all');
  aProcess.Options := aProcess.Options + [poUsePipes];
  aProcess.Execute;
  aStream := TMemoryStream.Create;
  repeat
    BytesRead := AProcess.Output.Read(Buffer, BUF_SIZE);
    aStream.Write(Buffer, BytesRead);
  until BytesRead = 0;
  aProcess.Free;
  StrList := TStringList.Create;
  aStream.Position := 0;
  StrList.LoadFromStream(aStream);  
// Sajnos az aStream túl hosszú ahhoz, hogy egy egyszerű StrList.LoadFromStream(aProcess.Output); működjön, 
// a fenti bufferezgetés feltétlen szükséges volt nálam a működéshez.
  aStream.Free;
  StrList.SaveToFile('lista.txt');
  StrList.Free;
end;

Vírusirtó 2016 jún. 03 08:12 #2022

  • SziZo
  • SziZo profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 12
  • Köszönetek: 0
Bocs kimaradt: Az edit1.text a munkatárs belépőkártya száma (begépeli)

Vírusirtó 2016 jún. 03 08:11 #2021

  • SziZo
  • SziZo profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 12
  • Köszönetek: 0
A feladat:
*IPcím
*MAC
*Host név
Gyűjtése.

Erre a következőt találtam ki:
RunCommand('y:\szizo\teszt.cmd',[edit1.text],ki);
Ahol a teszt.cmd:

echo %1 >> y:\szizo\lista.txt
ipconfig /all >> y:\szizo\lista.txt

Ezt (az elég rusztikus) megoldást a vírusirtók nem értékelik. Hosszú várakozás után fagyás. A 2. indítás működik.
Van valami korrektebb megoldás? (azt tudjuk, hogy az az adapter érdekel, aminek az IP címe 10.20.10.X)

Köszönettel:
Szizo

  • Oldal:
  • 1