Discussion :

[julesclaude]

Bonjour à vous,

Je suis responsable informatique dans un établissement scolaire. Depuis le covid nous avons pris l'habitude de travailler avec Office 365 en parallèle aux programmes Aplim qui gère l'ensemble des données de nos élèves (notes, absences, communications avec les élèves, avec les parents, etc).
En début d'année je dois créer sur Office 365 les adresses mails, les classes et groupes des élèves. J'ai vu d'autre part qu'il était possible d'intervenir sur Office 365 avec Powershell.
J'aimerai avec delphi et la commande shellexecute, lancer des scripts powershell.
J'ai trouvé sur internet quelques exemples qui ne sont pas satisfaisants.

par exemple :

Code :

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

ShellExecute(0, 'open', 'powershell.exe', '"ping google.com"', nil, SW_SHOWNORMAL);

fonctionne très bien
par contre
pour un script essai.ps1 qui contient la ligne : ping google.com
l'execution du script :

Code :

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

ShellExecute(0, 'open', 'powershell.exe', pchar('essai.ps1'), pchar('C:\essai'), SW_SHOWNORMAL);

lance la fenètre powershell mais n'exécute pas le script. Il me semble que le soucis se situe au niveau du passage de paramètres, je n'arrive pas à passer le script en paramètre.
Pourriez-vous m'aider ?
Merci d'avance

Je travaille sous delphi 2007 et windows 10 pro.

[Andnotor]

As-tu autorisé l'exécution de script par PowerShell ?

Pour contrôle (par défaut Restricted) :

Code :

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

Get-ExecutionPolicy

Fixer au minimum RemoteSigned qui autorise les fichiers.ps1 locaux mais requiert des scripts signés si téléchargés.

Code :

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

Set-ExecutionPolicy -ExecutionPolicy RemoteSigned

[popo]

Lorsqu'on utilise une fonction, la moindre des choses est de vérifier ce qu'elle fait et ce qu'on doit lui passer.

Code :

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

function ShellExecuteW(hWnd:HWND;Operation,FileName,Parameters,Directory: PWideChar;ShowCmd:Integer);

Tu exécute un script PowerShell, il faut donc passer les paramètres comme tu le ferais en utilisant la commande dans PowerShell.
Donc quelque chose dans ce genre :

Code :

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

ShellExecute(0, 'open', 'powershell.exe', '-File "C:\essai\essai.ps1" -Parameter1 Value1 -Parameter2 Value2', nil, SW_SHOWNORMAL);

[julesclaude]

Bonjour Andnotor et popo et merci d'avoir pris de votre temps pour répondre.

Andnotor : J'avais bien vu qu'il fallait toucher les droits dans powershell pour lancer un script. A la commande 'Get-ExecutionPolicy' powershell me renvoie bien 'RemoteSigned'

popo : j'ai essayé votre suggestion

Code :

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

ShellExecute(0, 'open', 'powershell.exe', '-File "C:\essai\essai.ps1" -Parameter1 Value1 -Parameter2 Value2', nil, SW_SHOWNORMAL);

j'ai aussi essayé

Code :

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

ShellExecute(0, 'open', 'powershell.exe', '-File "C:\essai\essai.ps1", nil, SW_SHOWNORMAL);

les deux lance bien powershell mais pas le script. Faut-il mettre des paramètres particuliers à la place de '-Parameter1 Value1 -Parameter2 Value2' ?
Merci d'avance

[ShaiLeTroll]

Si l'extension PS1 est attaché à PowerShell, cela peut se tenter ainsi (en théorie c'est le cas)

Code :

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

ShellExecute(0, 'open', 'C:\essai\essai.ps1', nil, 'C:\essai', SW_SHOWNORMAL);

[popo]

popo : j'ai essayé votre suggestion
les deux lance bien powershell mais pas le script. Faut-il mettre des paramètres particuliers à la place de '-Parameter1 Value1 -Parameter2 Value2' ?
Merci d'avance

C'est pourtant parfaitement fonctionnel.
Il est toutefois possible qu'il soit nécessaire de rajouter le ByPass de la politique d'exécution.

Avec ce PS1 :

Code PowerShell :

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

1
2
3
4
5
6
7
param(
    [string]$FilePath,
    [string]$FileContent
)
 
New-Item $FilePath
Set-Content $FilePath $FileContent

Et ce code Delphi,

Code Delphi :

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
program Project3;
 
{$APPTYPE CONSOLE}
 
uses
    SysUtils
  , ShellApi // ShellExecute
  , Windows // SW_SHOWNORMAL
  ;
 
var
  CommandLine: PAnsiChar;
begin
  CommandLine := '-ExecutionPolicy Bypass'
    + ' -File "C:\Essai\Essai.ps1"'
    + ' -FilePath "C:\Essai\Essai.txt"'
    + ' -FileContent "Ceci est un test"';
 
  ShellExecute(0, 'open', 'powershell.exe', CommandLine, nil, SW_SHOWNORMAL);
end.

J'ai bien un fichier qui se créé avec le bon contenu.

[julesclaude]

merci ShaileTroll, j'avais essayé ce type de syntaxe mais cela ne fonctionne pas.

popo : merci beaucoup, ta commande fonctionne, elle lance le script essai.ps1 donc pour moi c'est parfait.
Par contre j'ai supprimé, dans commandLine, les deux dernières lignes. Si je comprends bien ces lignes, elles auraient du me créer dans le dossier essai, le fichier essai.txt avec pour contenu 'Ceci est un test'. Cela n'a pas marché chez moi.
mais pour autant :

Code :

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

1
2
3
4
5
6
7
var
  CommandLine: PAnsiChar;
begin
  CommandLine := '-ExecutionPolicy Bypass'
    + ' -File "C:\Essai\Essai.ps1"';
  ShellExecute(0, 'open', 'powershell.exe', CommandLine, nil, SW_SHOWNORMAL);
end;

fonctionne très bien.
Je vous félicite tous, vous animez ce forum avec beaucoup d'efficacité et de patience.
Encore merci, j'attends un peu pour fermer cette discussion.

[popo]

Si je comprends bien ces lignes, elles auraient du me créer dans le dossier essai, le fichier essai.txt avec pour contenu 'Ceci est un test'. Cela n'a pas marché chez moi.

.

Non, tu n'as pas compris.
Ces lignes sont simplement le reflet du passage de deux paramètres au script PowerShell.
C'est uniquement parce que mon script PowerShell écrit le fichier avec ces paramètres que le fichier est créé.

Si j'avais écrit Write-Output $FileContent dans mon script PowerShell à la place des deux dernières lignes, cela aurait simplement affiché le texte dans la console PowerShell.

[julesclaude]

Dans mes recherches j'avais trouvé une fonction intéressante que je n'arrivais pas à faire fonctionner.

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
function FileExecute(ahWnd: Cardinal; const aFileName, aParams, aStartDir: string; aShowCmd: Integer; aWait: Boolean): Integer;
var
  Info: TShellExecuteInfo;
  ExitCode: DWORD;
begin
  Result := -1;
  FillChar(Info, SizeOf(Info), 0);
  Info.cbSize := SizeOf(TShellExecuteInfo);
  with Info do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := ahWnd;
    lpFile := PChar(aFileName);
    lpParameters := PChar(aParams);
    lpDirectory := PChar(aStartDir);
    nShow := aShowCmd;
  end;
  if ShellExecuteEx(@Info) then
  begin
    if aWait then
    begin
      repeat
        Sleep(1);
        Application.ProcessMessages;
        GetExitCodeProcess(Info.hProcess, ExitCode);
      until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
      CloseHandle(Info.hProcess);
      Result := ExitCode;
    end;
  end
end;

Désolé je ne connais pas l'auteur de cette fonction.

En mixant la solution de popo et cette fonction, cela marche.
Quelques détails
- cette solution n'utilise pas shellexecute mais shellexecuteex qui permet d'avoir un retour d'exécution.
- elle attend que le script finisse avant de rendre la main au programme appelant
- elle renvoie éventuellement un code d'erreur

pour ceux que cela intéresse :

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
procedure TForm1.Button2Click(Sender: TObject);
var
  CommandLine: PwideChar;
  Code : Cardinal ;
begin
  CommandLine := '-ExecutionPolicy Bypass' + ' -File "C:\Essai\Essai.ps1"'  ;
  code := FileExecute(0, 'powershell.exe', CommandLine, '', SW_NORMAL, true);
  if code = 0 then
  begin
    ShowMessage('Succès !');
  end
  else
  begin
    ShowMessage('Raté !' + ' ' + inttostr(code) + SysErrorMessage(Code));
  end;
end;

N'hésitez pas à corriger mes explications, si je me trompe.

popo, je suis désolé mais je n'ai pas compris.

Non, tu n'as pas compris.
Ces lignes sont simplement le reflet du passage de deux paramètres au script PowerShell.
C'est uniquement parce que mon script PowerShell écrit le fichier avec ces paramètres que le fichier est créé.

[julesclaude]

Désolé , j'ai oublié les balises !!!