Reply to thread

Message

<blockquote data-quote="Windoo" data-source="post: 434222">Pour ceux que ca interressent, j'ai un script VBS unique qui s'occupe de tout (plus de .bat) :Shell.CurrentDirectory reçoit le dossier d'instalaltion de grabtvfr et ensuite de MPshell.run &quot;GrabTvFr.exe&quot;, 1, true : le dernier paramètre provoque l'attente de la fin de la commande avant de poursuivre.il faut probablement configurer l'antivirus pour ne pas bloquer les scripts.### Début du script ###Dim net,ProcessSet, ProcessSet net&nbsp; = Wscript.CreateObject(&quot;WScript.Network&quot;)Set shell = WScript.CreateObject(&quot;WScript.Shell&quot;)ProcessName=&quot;mediaportal.exe&quot;Computer=Ucase(net.ComputerName)Set ProcessSet=GetObject(&quot;winmgmts:{impersonationLevel=impersonate}!//&quot; &amp; Computer).InstancesOf _&nbsp; &nbsp; (&quot;Win32_process&quot;)Trouve=falsefor each Process in ProcessSet&nbsp; &nbsp; If InStr(1,Process.Name, ProcessName, vbTextCompare)&gt;0 Then&nbsp; &nbsp; &nbsp; &nbsp; result=Process.terminate(0)&nbsp; &nbsp; End IfNextShell.CurrentDirectory=&quot;D:\GrabTvFr&quot;shell.run &quot;GrabTvFr.exe&quot;, 1, trueShell.CurrentDirectory=&quot;C:\Program Files\MediaPortal&quot;shell.run &quot;MediaPortal.exe&quot;Wscript.quit### Fin du script ###</blockquote>

[QUOTE="Windoo, post: 434222"] Pour ceux que ca interressent, j'ai un script VBS unique qui s'occupe de tout (plus de .bat) : Shell.CurrentDirectory reçoit le dossier d'instalaltion de grabtvfr et ensuite de MP shell.run "GrabTvFr.exe", 1, true : le dernier paramètre provoque l'attente de la fin de la commande avant de poursuivre. il faut probablement configurer l'antivirus pour ne pas bloquer les scripts. ### Début du script ### Dim net,ProcessSet, Process Set net = Wscript.CreateObject("WScript.Network") Set shell = WScript.CreateObject("WScript.Shell") ProcessName="mediaportal.exe" Computer=Ucase(net.ComputerName) Set ProcessSet=GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).InstancesOf _ ("Win32_process") Trouve=false for each Process in ProcessSet If InStr(1,Process.Name, ProcessName, vbTextCompare)>0 Then result=Process.terminate(0) End If Next Shell.CurrentDirectory="D:\GrabTvFr" shell.run "GrabTvFr.exe", 1, true Shell.CurrentDirectory="C:\Program Files\MediaPortal" shell.run "MediaPortal.exe" Wscript.quit ### Fin du script ### [/QUOTE]

Verification