Discussion :

[Lung]

Je suis toujours (enfin, j'y suis revenu) sur ce code (http://www.developpez.net/forums/d99...-commande-dos/), où j'exécute des commandes DOS.

Ca fonctionne tant qu'il n'y a pas le caractère "|".
Comment exécuter une commande DOS contenant le caractère "|" ?

J'ai essayé CreateProcess, ShellExecute, WinExec, sans succès.
Une idée ?

[Rayek]

En général dans les commandes dos quand il y a des soucis il faut rajouter des " (guillemets)

Code :

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

1
2
 
Cmd.exe /c ExecuteUnTruc.Bat "Toto|Titi|Tata" "C:\programe files\"

[Lung]

En général dans les commandes dos quand il y a des soucis il faut rajouter des " (guillemets)

Code :

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

1
2
 
Cmd.exe /c ExecuteUnTruc.Bat "Toto|Titi|Tata" "C:\programe files\"

Dans mon cas, c'est pas évident.

Code :

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

GetConsoleText('dsquery.exe user -name "' + szPrenom + ' ' + szNom + '" | dsmod.exe group "CN=' + szGroupe + ',OU=MAIA,OU=SGHM Applications,DC=sghm,DC=LOC" -addmbr', szResultat);

L'instruction fonctionne très bien dans une fenêtre DOS.
Mais, depuis Delphi, je n'y arrive pas.

[Rayek]

Et en créant un .bat/.cmd que tu exécutes avec la commande ca ne fonctionne pas ?

[Lung]

Et en créant un .bat/.cmd que tu exécutes avec la commande ca ne fonctionne pas ?

Ca me gène un peu d'avoir des fichiers à côté de l'exe, mais bon, je vais faire avec.

Par contre, comment je fais pour passer des valeurs à l'instruction du script ?
Le nom, prénom, groupe ne sont pas fixes.

[Rayek]

Pour le .bat tu ne le créés que temporairement et pour les noms moi ca m'arrive souvent de faire

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
 
var
  lst : TStringList;
begin
  lst := TStringList.create;
  try
    Add('Set Path = ' + CheminDeExe);
    Add('dsquery.exe user -name "' + szPrenom + ' ' + szNom + '" | dsmod.exe group "CN=' + szGroupe + ',OU=MAIA,OU=SGHM Applications,DC=sghm,DC=LOC" -addmbr');
  SaveToFile(ExtractFilePath(Application.ExeName) + 'Tmp.bat');
 
  // Execute le Tmp.Bat
 
  DeleteFile(ExtractFilePath(Application.ExeName) + 'Tmp.bat'));
 
  finally
    lst.Free;
  end;
end;

J'ia du utiliser cette methodé avec un prog qui refusait de ce lancer autrement que par cette manière

[Lung]

Pour le .bat tu ne le créés que temporairement et pour les noms moi ca m'arrive souvent de faire

...

J'ai du utiliser cette methodé avec un prog qui refusait de ce lancer autrement que par cette manière

C'était tellement évident, que je n'y avais pas pensé.
Ca fonctionne parfaitement.