hi
du kanst auch dieses skript verwenden
1 !! vorsicht user und password werden mit übergeben!!!
2 braucht des record.vbs skript von winTv
3 benützt in dieser fassung jt.exe (startet die aufnahmen auch aus dem Standby)
4 Parameter wie für winTV für win2k und XP
5 delete wird in die bat datei geschrieben
6 in v_path_txt (C:\progdvb\bat_file\aufnahmen) werden txt dateien mit der gleichen namen wie die Geplanten tasks erstellt und wieder gelöscht
7 -> kann die txt datei nicht gelöscht werden wird sie auch in den geplanten tasks von der batch datei nicht gelöscht!!!
8
daran denken auf was für ein system es laufen soll (c:\WINNT\system32\.. ) für win2k
update pfade im skipt die anzupassen sind
v_path_cscript // target computer
v_path_record // target computer
v_path_winTV // target computer
v_path_jt // target computer
v_path_bat // local computer
v_path_txt // local computer
v_bat_file // local computer
timer.vbs
Code: Alles auswählen
'pfade anpassen !!!!
v_path_cscript = "C:\Windows\System32\cscript.exe"
v_path_record = "G:\skripte\record.vbs"
v_path_winTV = "D:\PROGRAMME\WinTV\WinTV2K.EXE"
v_path_jt = "C:\Windows\System32\jt.exe"
v_path_bat = "C:\progdvb\bat_file"
v_path_txt = "C:\progdvb\bat_file\aufnahmen"
v_bat_file = "data.bat"
'parameter anzahl ueberpruerfen ,uebernemen und anpassen
Set ArgObj = WScript.Arguments
v_counter = ArgObj.count
IF 14 <> v_counter THEN
Wscript.Echo "Falsche Anzahl der Parameter"
WScript.Quit(1)
ELSE
v_starthh = ArgObj(0)
v_startmin = ArgObj(1)
v_startday = ArgObj(2)
v_startmonth = ArgObj(3)
v_startyear = ArgObj(4)
v_endhh = ArgObj(5)
v_endmin = ArgObj(6)
v_channelnr = ArgObj(7)
v_password = ArgObj(8)
v_user = ArgObj(9)
v_telecast = ArgObj(10)
v_seconds = ArgObj(11)
v_minutes = ArgObj(12)
v_channelname = ArgObj(13)
IF 100 > v_minutes Then
IF 10 > v_minutes Then
v_minutes = "00" & v_minutes
ELSE
v_minutes = "0" & v_minutes
END IF
END IF
'namen fuer gelpante tasks (job objekt)
v_taskname = """"& v_startmonth &","& v_startday &" "& v_starthh & v_startmin &"-"& v_endhh & v_endmin &" "& v_minutes &" "& v_channelnr &" "& v_channelname &" "& v_telecast &".job"""
v_taskname_txt = ""& v_startmonth &","& v_startday &" "& v_starthh & v_startmin &"-"& v_endhh & v_endmin &" "& v_minutes &" "& v_channelnr &" "& v_channelname &" "& v_telecast &".txt"
'v_taskname kann nach Anleitung geändert werden
'parameter fuer gelpante tasks
v_user = """"& v_user &""""
v_password = """"& v_password &""""
v_startdate = v_startmonth &":"& v_startday &":"& v_startyear
v_starttime = v_starthh &":"& v_startmin
'parameter fuer cscript (record.vbs)
v_parameter = """"& v_path_record &" "& v_path_winTV &" "& v_channelnr &" "& v_telecast &" "& v_channelname &" "& v_seconds &""""
'batch datei bearbeiten / erstellen
set objShell = wscript.CreateObject("wscript.Shell")
objShell.CurrentDirectory = v_path_bat
Set objFSO = wscript.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(v_bat_file) Then
Set objFile = objFSO.OpenTextFile(v_bat_file ,8 )
Else
Set objFile = objFSO.CreateTextFile(v_bat_file)
End If
objFile.WriteLine v_path_jt &" /sj ApplicationName="& v_path_cscript &" SystemRequired=1 DeleteWhenDone=1 Comment=""Create by TV-Browser"" Parameters="& v_parameter &"/ctj StartTime="& v_starttime &" StartDate="& v_startdate &" type=ONCE Disabled=0 /SM "& v_machine &" /sc "& v_user &" "& v_password &" /saj "& v_taskname
objFile.Close
'txt datei erstellen
objShell.CurrentDirectory = v_path_txt
Set objFile = objFSO.CreateTextFile(v_taskname_txt)
objFile.Close
END IF
deltimer.vbs
Code: Alles auswählen
'pfade anpassen !!!!
v_path_jt = "C:\Windows\System32\jt.exe"
v_path_txt = "C:\progdvb\bat_file\aufnahmen"
v_path_bat = "C:\progdvb\bat_file"
v_bat_file = "data.bat"
'parameter anzahl ueberpruerfen ,uebernemen und anpassen
Set ArgObj = WScript.Arguments
v_counter = ArgObj.count
IF 11 <> v_counter THEN
Wscript.Echo "Falsche Anzahl der Parameter"
WScript.Quit(1)
ELSE
v_starthh = ArgObj(0)
v_startmin = ArgObj(1)
v_startday = ArgObj(2)
v_startmonth = ArgObj(3)
v_startyear = ArgObj(4)
v_endhh = ArgObj(5)
v_endmin = ArgObj(6)
v_channelnr = ArgObj(7)
v_telecast = ArgObj(8)
v_minutes = ArgObj(9)
v_channelname = ArgObj(10)
IF 100 > v_minutes Then
IF 10 > v_minutes Then
v_minutes = "00" & v_minutes
ELSE
v_minutes = "0" & v_minutes
END IF
END IF
'namen fuer gelpante tasks (job objekt)
v_taskname_txt = ""& v_startmonth &","& v_startday &" "& v_starthh & v_startmin &"-"& v_endhh & v_endmin &" "& v_minutes &" "& v_channelnr &" "& v_channelname &" "& v_telecast &".txt"
v_taskname = """"& v_startmonth &","& v_startday &" "& v_starthh & v_startmin &"-"& v_endhh & v_endmin &" "& v_minutes &" "& v_channelnr &" "& v_channelname &" "& v_telecast &".job"""
'v_taskname kann nach Anleitung geändert werden
'einen job objekt löschen (gelpante tasks) in die bat datei schreiben
'batch datei bearbeiten / erstellen
set objShell = wscript.CreateObject("wscript.Shell")
objShell.CurrentDirectory = v_path_bat
Set objFSO = wscript.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(v_bat_file) Then
Set objFile = objFSO.OpenTextFile(v_bat_file ,8 )
Else
Set objFile = objFSO.CreateTextFile(v_bat_file)
End If
objFile.WriteLine v_path_jt & " /sd "& v_taskname
objFile.Close
'txt datei löschen
objShell.CurrentDirectory = v_path_txt
objFSO.DeleteFile(v_taskname_txt)
END IF