von fingerhut » 09 Apr 2005, 18:06
ok fehler gefunden skript muss im TV-Browser Verzeichnis liegen
Rev 0.01
Code: Alles auswählen
v_find = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objItem in colItems
If Instr(objItem.Name, "tvbrowser") > 0 Then
v_find = 1
End If
Next
set task = wscript.CreateObject("wscript.Shell")
IF 0 = v_find THEN
task.run("D:\Programme\TV-Browser\tvbrowser.exe"),1
ELSE
task.AppActivate("TV-Browser ")
END IF
na ja tv-browser finden und wenn noch nicht aktiv starten oder das fenster anzeigen
ist noch nicht ganz fertig
ich finde das Fenster von TV-Browser nicht wenn er minimiert ist
ok fehler gefunden skript muss im TV-Browser Verzeichnis liegen
Rev 0.01
[code]
v_find = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objItem in colItems
If Instr(objItem.Name, "tvbrowser") > 0 Then
v_find = 1
End If
Next
set task = wscript.CreateObject("wscript.Shell")
IF 0 = v_find THEN
task.run("D:\Programme\TV-Browser\tvbrowser.exe"),1
ELSE
task.AppActivate("TV-Browser ")
END IF
[/code]
na ja tv-browser finden und wenn noch nicht aktiv starten oder das fenster anzeigen
ist noch nicht ganz fertig ;-)
ich finde das Fenster von TV-Browser nicht wenn er minimiert ist