Discussion :

[Leobaillard]

Bonsoir ! Je voudrais savoir s'il est possible et si oui comment on fait pour récupérer les infos des connexions réseau de Windows comme par exemple les passerelles, les dns, les ip, ou pour les connexion sans fil (ça m'intéresse plus) le ssid la vitesse de connexion ou encore le niveau de réception ?

Merci d'avance bonne année et bonne nuit à tous

[Lung]

Bonsoir ! Je voudrais savoir s'il est possible et si oui comment on fait pour récupérer les infos des connexions réseau de Windows comme par exemple les passerelles, les dns, les ip, ou pour les connexion sans fil (ça m'intéresse plus) le ssid la vitesse de connexion ou encore le niveau de réception ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
   procedure GetConsoleText(const szCommande: String; var szResult: String);
   const
      LENBUFF = 512;      //.Augmenter si problème.
   var
      hReadPipe, hWritePipe: THandle;
      sa: TSecurityAttributes;
      si: TStartupInfo;
      pi: TProcessInformation;
      lpBuffer: Array[0..LENBUFF] of char;
      nBytesRead: Cardinal;
      nBytesToRead: Integer;
   begin
      sa.nLength := Sizeof(sa);
      sa.lpSecurityDescriptor := nil;
      sa.bInheritHandle := True;
 
      if not CreatePipe(hReadPipe, hWritePipe, @sa, 0) then
      begin
         RichEdit.Lines.Add('   >> Erreur :  la création du pipe a échoué !');
         Exit;
      end;
 
      FillChar(si, Sizeof(si), 0);
      si.cb := Sizeof(si);
      si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      si.wShowWindow := SW_HIDE;
      si.hStdInput := 0;
      si.hStdOutput := hWritePipe;
      si.hStdError := hWritePipe;
 
      if not CreateProcess(nil, PChar(szCommande), nil, nil, True, 0, nil, nil, si, pi) then
      begin
         RichEdit.Lines.Add('   >> Erreur :  l''exécution de la commande a échoué !');
         CloseHandle(hReadPipe);
         CloseHandle(hWritePipe);
         Exit;
      end;
 
      CloseHandle(hWritePipe);
      nBytesToRead := LENBUFF;
      nBytesRead := 0;
 
      szResult := '';
      while(True) do
      begin
         lpBuffer := '';
         ReadFile(hReadPipe, lpBuffer, nBytesToRead, nBytesRead, nil);
         if nBytesRead = 0 then
            Break;
         szResult := szResult + StrPas(lpBuffer);
      end;
 
      WaitForSingleObject(pi.hProcess, INFINITE);
      CloseHandle(pi.hProcess);
      CloseHandle(hReadPipe);
   end;
 
...
 
GetConsoleText('ipconfig /all', szResultat);

J'ai déjà ça pour exécuter des commande DOS.
Si ca peut t'aider ...

[Leobaillard]

Ok, , il faudra aprèsq que je récupère les différentes infos, mais c'est déjà pas mal . Et Pour le WiFi, personne n'a d'idée ?

[[Silk]]

Salut,
en mettant au point une procedure similaire à la tienne lung avec envoi des information du serveur vers le client on a eu affaire à un bug bizarre.Dans le serveur j'utilise les commandHandlers pour gérer toutes les commandes reçues, et dans ce cas je reçois bien la commande pour une commande shell mais la ligne juste en dessous c'est-à-dire le readln où il y a le paramètre pour la commande à lancer ne s'exécute jamais ! Le programme ne plante pas mais si on renvoie une deuxième fois la commande le paramètre affiché est juste le nom de la commande...

voici le code de réception

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TMainForm.TCPServerDosCommandCommand(ASender: TIdCommand);
var
Parametres : string;
begin
AddItem(Processes,'Commande reçue : DosCommand','blue');
Parametres := ASender.Thread.Connection.ReadLn();   //c'est la ligne qui bugue
AddItem(Processes,'Paramètres de commande : '+Parametres,'blue');
ShellExec(Parametres);
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
procedure ShellExec(strCmd:String);
const
  ReadBuffer = 2400;
var
  Security           : TSecurityAttributes;
  ReadPipe,WritePipe : THandle;
  start              : TStartUpInfo;
  ProcessInfo        : TProcessInformation;
  Buffer             : Pchar;
  BytesRead          : DWord;
  Apprunning         : DWord;
begin
try
  With Security do begin
  nlength              := SizeOf(TSecurityAttributes);
  binherithandle       := true;
  lpsecuritydescriptor := nil;
  end;
  if Createpipe (ReadPipe, WritePipe,
                @Security, 0) then begin
  Buffer := AllocMem(ReadBuffer + 1);
  FillChar(Start,Sizeof(Start),#0);
  start.cb          := SizeOf(start);
  start.hStdOutput  := WritePipe;
  start.hStdInput   := ReadPipe;
  start.dwFlags     := STARTF_USESTDHANDLES +
                        STARTF_USESHOWWINDOW;
  start.wShowWindow := SW_HIDE;
 
  if CreateProcess(nil,
          PChar(strCmd),
          @Security,
          @Security,
          true,
          NORMAL_PRIORITY_CLASS,
          nil,
          nil,
          start,
          ProcessInfo)
  then
  begin
    repeat
    Apprunning := WaitForSingleObject
                  (ProcessInfo.hProcess,100);
    Application.ProcessMessages;
    until (Apprunning <> WAIT_TIMEOUT);
    Repeat
      BytesRead := 0;
      ReadFile(ReadPipe,Buffer[0],
            ReadBuffer,BytesRead,nil);
      Buffer[BytesRead]:= #0;
      OemToAnsi(Buffer,Buffer);
 
      MainForm.AddItem(MainForm.Processes,String(Buffer) ,'');
      AClient.WriteLn(String(Buffer));
 
    until (BytesRead < ReadBuffer);
  end;
  FreeMem(Buffer);
  CloseHandle(ProcessInfo.hProcess);
  CloseHandle(ProcessInfo.hThread);
  CloseHandle(ReadPipe);
  CloseHandle(WritePipe);
  MainForm.AddItem(MainForm.Processes,'La commande a été exécutée avec succès','green');
  AClient.Writeln('OK');
  end;
except
MainForm.AddItem(MainForm.Processes,'Erreur d''exécution de la commande','red');
AClient.Writeln('ERR');
Exit;
end;
end;

[Leobaillard]

Et voici mon code d'envoi réceptioon de la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.XiButton7Click(Sender: TObject);
begin
if Client.Connected then
begin
  Client.SendCmd('DosCommand');
  try
    Client.WriteLn(com_cons.Text);
  except
    AddItem(log, 'Erreur lors du traitement de la commande', 'red');
  end;
  AddItem(log, 'Commande DosCommand envoyée', 'blue');
  console.Lines.Add(Client.ReadLn());
end;
end;

[Leobaillard]

Ça vous arrive souvent d'avoir des bug ésotériques comme ceux là ? Des bugs qui proviennent d'on ne sais où ? Eh ben je peux vous dire que c'est très énervant... Alors si vous avez ne serait-ce que la moindre petite piste ou idée.. Ou encore quelque chose que l'on pourrait essayer...

Merci d'avance...

[Leobaillard]

Non ? Vraiment rien ?

[Coussati]

dsl je pensais avoir créé un topic

[Coussati]

salut

je voudrais savoir si c'est possible de faire un prog qui detect les connexions wifi qui se trouve aux alentours de chez moi

exactement comme les cartes le font

avec les info comme le type de clé wep et sécurisé, non sécurisé ect ...