Ny fjernbetjening med display

'_________________________
'Dræb MCE eller hvad nu
'_________________________
Dim objWMIServicek, objProcessk, colProcessk
Dim strComputerk, strProcessKillk
strComputerk = "."
strProcessKillk = "'ehshell.exe'"
Set objWMIServicek = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputerk & "\root\cimv2")
Set colProcessk = objWMIServicek.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKillk )
For Each objProcessk in colProcessk
objProcessk.Terminate()
Next
 '___________________________________________________________ ________
'Set Delay til genstart og import af registrysetting i Millisekunder
 '___________________________________________________________ ________
WSCript.Sleep 1500
'_______________________________
'Importer Registry setting
'_______________________________
Dim objWMIServiceREG, objProcessREG, objREG
Dim strShellREG, objProgramREG, strComputerREG, strExeREG
strComputerREG = "."
strExeREG = ""'c:\windows\regedit.exe'" /s "'C:\SPDIF.reg'""
set objWMIServiceREG = getobject("winmgmts://"_
& strComputerREG & "/root/cimv2")
Set objProcessREG = objWMIServiceREG.Get("Win32_Process")
Set objProgramREG = objProcessREG.Methods_( _
"Create").InParameters.SpawnInstance_
objProgramREG.CommandLine = strExeREG
Set strShellREG = objWMIServiceREG.ExecMethod( _
"Win32_Process", "Create", objProgramREG)
'__________________________________
' Start MCE Fullscreen Aktiveret
'__________________________________
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "c:\windows\ehome\ehshell.exe", 3' (3 = fuld skærm og aktiveret. 1 = normal aktiveret)
WSCript.Quit