Reply to thread

Message

<blockquote data-quote="xavier" data-source="post: 519586" data-attributes="member: 10592">You need the devcon Microsoft tool (search in this forum for x32 or x64 versions).Next, you can run this script (or similar) at the resume:[CODE]Option Explicit' *********************************************' This function checks if a process is running ' *********************************************Function IsProcessRunning( strProcess )&nbsp; &nbsp; Dim Process, strObject&nbsp; &nbsp; IsProcessRunning = False&nbsp; &nbsp; strObject&nbsp;&nbsp; = &quot;winmgmts:\\.\root\cimv2&quot;&nbsp; &nbsp; For Each Process in GetObject( strObject ).InstancesOf( &quot;win32_process&quot; )&nbsp; &nbsp; &nbsp; &nbsp; If UCase( Process.name ) = UCase( strProcess ) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; IsProcessRunning = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Function&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; NextEnd Function' ===Dim Shell, process, prockill, returnSet Shell = CreateObject(&quot;WScript.Shell&quot;)process&nbsp;&nbsp; = &quot;MediaPortal&quot;prockill&nbsp; = &quot;tskill &quot; &amp; processreturn = Shell.Run (prockill, 0, True)' Check for MediaPortal still runningdo&nbsp; &nbsp; WScript.Sleep(100)loop while IsProcessRunning ( process &amp; &quot;.exe&quot; ) ' Stop tvservicereturn = Shell.Run(&quot;&quot;&quot;C:\Windows\System32\net.exe&quot;&quot;&quot; &amp; &quot;stop tvservice&quot;, 1, true)' Disable SkyStar2return = Shell.Run(&quot;&quot;&quot;C:\\devcon.exe&quot;&quot;&quot; &amp; &quot;disable PCI\VEN_13D0*&quot;, 1, true)' Enable SkyStar2return = Shell.Run(&quot;&quot;&quot;C:\\devcon.exe&quot;&quot;&quot; &amp; &quot;enable PCI\VEN_13D0*&quot;, 1, true)' Run MediaPortalreturn = Shell.Run(&quot;&quot;&quot;C:\\Program Files (x86)\\Team MediaPortal\\MediaPortal\\MediaPortal.exe&quot;&quot;&quot;, 1, false)[/CODE]Regards,xavier</blockquote>

[QUOTE="xavier, post: 519586, member: 10592"] You need the devcon Microsoft tool (search in this forum for x32 or x64 versions). Next, you can run this script (or similar) at the resume: [CODE] Option Explicit ' ********************************************* ' This function checks if a process is running ' ********************************************* Function IsProcessRunning( strProcess ) Dim Process, strObject IsProcessRunning = False strObject = "winmgmts:\\.\root\cimv2" For Each Process in GetObject( strObject ).InstancesOf( "win32_process" ) If UCase( Process.name ) = UCase( strProcess ) Then IsProcessRunning = True Exit Function End If Next End Function ' === Dim Shell, process, prockill, return Set Shell = CreateObject("WScript.Shell") process = "MediaPortal" prockill = "tskill " & process return = Shell.Run (prockill, 0, True) ' Check for MediaPortal still running do WScript.Sleep(100) loop while IsProcessRunning ( process & ".exe" ) ' Stop tvservice return = Shell.Run("""C:\Windows\System32\net.exe""" & "stop tvservice", 1, true) ' Disable SkyStar2 return = Shell.Run("""C:\\devcon.exe""" & "disable PCI\VEN_13D0*", 1, true) ' Enable SkyStar2 return = Shell.Run("""C:\\devcon.exe""" & "enable PCI\VEN_13D0*", 1, true) ' Run MediaPortal return = Shell.Run("""C:\\Program Files (x86)\\Team MediaPortal\\MediaPortal\\MediaPortal.exe""", 1, false)[/CODE] Regards, xavier [/QUOTE]

Verification