Reply to thread

Message

<blockquote data-quote="Eso Rimmer" data-source="post: 398473" data-attributes="member: 84454">Ok, so after some tries and errors I put together script which seems to work OK on my Vista x64. It just kills mediaportal.exe, waits 5 seconds and then runs mediaportal.exe again. You can change the waiting time on line &quot;WScript.Sleep 5000 &quot;. Maybe it will help someone:[CODE]Option ExplicitDim objWMIService, objProcess, colProcess, objCalcDim strComputer, strProcessKill, strShell, objProgram, strExestrComputer = &quot;.&quot;strProcessKill = &quot;'mediaportal.exe'&quot; strExe = &quot;mediaportal.exe&quot;Set objWMIService = GetObject(&quot;winmgmts:&quot; _&amp; &quot;{impersonationLevel=impersonate}!\\&quot; _ &amp; strComputer &amp; &quot;\root\cimv2&quot;) Set colProcess = objWMIService.ExecQuery _(&quot;Select * from Win32_Process Where Name = &quot; &amp; strProcessKill )For Each objProcess in colProcessobjProcess.Terminate()NextWScript.Sleep 5000 ' Obtain the Win32_Process class of object.Set objProcess = objWMIService.Get(&quot;Win32_Process&quot;)Set objProgram = objProcess.Methods_( _&quot;Create&quot;).InParameters.SpawnInstance_objProgram.CommandLine = strExe 'Execute the program now at the command line.Set strShell = objWMIService.ExecMethod( _&quot;Win32_Process&quot;, &quot;Create&quot;, objProgram) [/CODE]</blockquote>

[QUOTE="Eso Rimmer, post: 398473, member: 84454"] Ok, so after some tries and errors I put together script which seems to work OK on my [B]Vista x64[/B]. It just kills mediaportal.exe, waits 5 seconds and then runs mediaportal.exe again. You can change the waiting time on line "WScript.Sleep 5000 ". Maybe it will help someone: [CODE]Option Explicit Dim objWMIService, objProcess, colProcess, objCalc Dim strComputer, strProcessKill, strShell, objProgram, strExe strComputer = "." strProcessKill = "'mediaportal.exe'" strExe = "mediaportal.exe" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & strProcessKill ) For Each objProcess in colProcess objProcess.Terminate() Next WScript.Sleep 5000 ' Obtain the Win32_Process class of object. Set objProcess = objWMIService.Get("Win32_Process") Set objProgram = objProcess.Methods_( _ "Create").InParameters.SpawnInstance_ objProgram.CommandLine = strExe 'Execute the program now at the command line. Set strShell = objWMIService.ExecMethod( _ "Win32_Process", "Create", objProgram) [/CODE] [/QUOTE]

Verification