Discussion :

[kikica]

Bonjour,
Je souhaite pouvoir renomer le compte admin et modifier son mot de passe pour une liste d'ordinateurs se trouvant dans c:\liste.txt.
Voici la commande qui marche pour 1 ordinateur, mais comment faire une boucle pour TOUS les ordinateurs de cette liste?

Code :

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

 shellexecute(0,nil,'cmd.exe',pchar('/k cusrmgr.exe -u '+edit1.Text+' -m'+' \\'+combobox2.Text+ ' -r'+' '+edit3.text+' -P'+' '+edit2.Text),'c:\',SW_SHOW)

Merci de votre aide.

[Pedro]

Salut
Charge ce fichier dans une TStringList puis parcourt-le de cette façon:

Code :

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

1
2
3
4
5
6
7
8
 
var i:integer;
begin
  for i:=0 to StringList.Count-1 do
  begin
    //Ici mets le traitement sachant que chaque valeur sera StringList.Items[i]
  end;
end;

Voila pour plus d'infos, sur TStringList

[kikica]

MERCIII BEAUCOUUUUP Pedros!!!