Discussion :

[manu28]

Bonjours,
j'ai développé un exe autonome en VB6.Je souhaite executer ce batch et ensuite envoyer un mail.
Mon problemme est que le batch se lance bien ,mais l'envoi du mail se fait tout de suite aprés et il n'attend pas la fin du traitement.

Merci de me dire si je dois gérer cela dans mon script ou via le traitement batch VB en lui meme et bien sur comment ....
A+

Voila mon script

Code :

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

1
2
3
4
5
6
7
8
9
10
 
c:\"program files\rep"\Batch.exe
 
$emailFrom = "--@--"
$emailTo = "--@--"
$subject = "Automate "
$body = "Bonjour,"
$smtpServer = "***""
$smtp = new-object Net.Mail.SmtpClient($smtpServer)
$smtp.Send($emailFrom, $emailTo, $subject, $body)

[Médinoc]

Ton programme VB est sans doute un programme graphique.

Essaie en utilisant la comment start et le flag /wait (voir l'aide de start dans l'invite de commandes).

[manu28]

Merci pour l'info, elle m'a permis d'avancer.Mais cette commande semble etre active que pour la V2.0 et je travaille avec la V1.0

Voila le code qui fonctionne sur le meme principe que le wait

Code :

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

1
2
3
4
 
[System.Diagnostics.Process]::Start("c:\program files\app_Batch.exe") 
$app = (Get-Process | where-Object { $_.ProcessName -ieq "app_Batch" }) 
$app.WaitForExit()

[Médinoc]

Ce n'est pas de powershell que je parle ici: Seulement de la commande start de cmd (sous Windows XP, 5.1.2600).

[Laurent Dardenne]

Salut,

Voila le code qui fonctionne sur le meme principe que le wait

Code :

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

1
2
3
4
 
[System.Diagnostics.Process]::Start("c:\program files\app_Batch.exe") 
$app = (Get-Process | where-Object { $_.ProcessName -ieq "app_Batch" }) 
$app.WaitForExit()

Tu peux le simplifier ainsi

Code :

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

1
2
$app = [System.Diagnostics.Process]::Start("C:\WINDOWS\notepad.exe")
$app.WaitForExit()

ou encore

Code :

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

([System.Diagnostics.Process]::Start("C:\WINDOWS\notepad.exe")).WaitForExit()