CapturePlugin - ProgDVB

Legt ein neues Gerät mit einem Standard-Treiber an.

Dann das Gerät folgendermaßen Konfigurieren:

Applikation:

C:\Windows\System32\cscript.exe

Aufnahme-Parameter:

c:\progdvb\timer.vbs %SH %SMI %SD %SMO %SY %EH %EMI %ED %EMO %EY %CNU %UP %UN %T2

Lösch-Parameter:

c:\progdvb\deltimer.vbs %T2

Bitte ändern sie die Pfadangaben entsprechend ihrem System an.

Für die folgenden 2 Skripte benötigt man noch das Tool "WakeTask". Es kann unter http://www.huebert.info/waketask/ heruntergeladen werden. Das Skript geht davon aus, das WakeTask im System32-Verzeichniss von Windows liegt und ProgDVB im C:\ProgDVB. Falls nötig ändern Sie bitte die entsprechenden Zeilen.

Speichert nun die folgenden Dateien im Verzeichniss von ProgDVB:

timer.vbs

Dim ArgObj, ch, starthh, startmin, startday, startmonth, startyear, endhh, endmin, endday, endmonth, endyear
Dim time, task, password, user, taskname, startdate, starttime, stopdate, stoptime

Set ArgObj = WScript.Arguments

   starthh = ArgObj(0)
 startmin = ArgObj(1)
 startday = ArgObj(2)
startmonth = ArgObj(3)
 startyear = ArgObj(4)

         endhh = ArgObj(5)
       endmin = ArgObj(6)
       endday = ArgObj(7)
     endmonth = ArgObj(8)
       endyear = ArgObj(9)

 ch = ArgObj(10)

password = ArgObj(11)
   user = ArgObj(12)
taskname = ArgObj(13)

startdate = startday & "/" & startmonth & "/" & startyear
starttime = starthh & ":" & startmin & ":00"
stopdate = endday & "/" & endmonth & "/" & endyear
stoptime = endhh & ":" & endmin & ":00"
startprog = """c:\progdvb\progdvb.exe /ch:" & ch & " /startrecord"""
stopprog = """c:\progdvb\progdvb.exe /stoprecord /exit"""

set task = wscript.CreateObject("wscript.Shell")
task.run ("%systemroot%\system32\schtasks.exe /create /tn " & taskname & " /tr " & startprog & " /sc once /sd " &  startdate & " /st " & starttime & " /ru " & user & " /rp " & password),1
task.run ("%systemroot%\system32\schtasks.exe /create /tn " & "stop_" & taskname & " /tr " & stopprog & " /sc once /sd " & stopdate & "  /st " & stoptime & " /ru " & user & " /rp " & password),1
wscript.sleep 200
task.run ("%systemroot%\System32\waketask.exe 1 " & taskname),1

deltimer.vbs

Dim taskname
Set ArgObj = WScript.Arguments
taskname = ArgObj(0)

set task = wscript.CreateObject("wscript.Shell")
task.run ("%systemroot%\system32\schtasks.exe /delete /f /tn " & taskname),1
task.run ("%systemroot%\system32\schtasks.exe /delete /f /tn " & "stop_" & taskname),1

(Diese Skripte wurde in http://www.dvbcube.org/index.php?board=15;action=display;threadid=6228 gepostet.)