Reply to thread

Message

<blockquote data-quote="larry_S" data-source="post: 581783" data-attributes="member: 85587">AW: TV-Server on WHS - Collection of fixes and workaroundsHi vvulture,that's not so easy, i Think first.Microsoft wrote about the parameter:The following code is for English (United States).If it doesen't work, i need your short Date Format.please replace the code after the SQL-Statement:[CODE]if err.number=0 then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Nur wenn kein Fehler aufgetreten ist, normales vorgehen&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if isdate(rs1(&quot;Start&quot;)) then 'Wenn Aufnahmen programmiert sind oder aktuelle eine läuft...&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Datu0=rs1(&quot;Start&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Datu1=right(&quot;00&quot;&amp;month(datu0),2)&amp;&quot;/&quot;&amp;right(&quot;00&quot;&amp;day(datu0),2)&amp;&quot;/&quot;&amp;year(datu0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Datu2=right(&quot;00&quot;&amp;hour(datu0),2)&amp;&quot;:&quot;&amp;right(&quot;00&quot;&amp;minute(datu0),2)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if rs1(&quot;Start&quot;)&lt;now() then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; 'Es läuft gerade eine Aufnahme&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; aktiv=aktiv+1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if &quot;A&quot;&amp;WshShell.RegRead(&quot;HKCU\SOFTWARE\AxoNet Software GmbH\LightsOut\MP_Aufnahme&quot;)&lt;&gt;&quot;A&quot;&amp;&quot;01.01.2020&quot; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei &quot;Aktuelle Aufnahme: &quot;&amp;rs1(&quot;Channel&quot;)&amp;&quot;-&quot;&amp;rs1(&quot;Start&quot;)&amp;&quot;-&quot;&amp;rs1(&quot;endTime&quot;)&amp; &quot;-&quot;&amp;rs1(&quot;programName&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei &quot;Ändere Taskplaner:&nbsp; 01.01.2020&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; intReturn = WshShell.Run(&quot;SCHTASKS /change /ru &quot;&amp;lcase(net.computerName)&amp;&quot;\&quot;&amp;PLUser&amp;&quot; /RP &quot;&amp;chr(34)&amp;PLPW&amp;chr(34)&amp;&quot; /TN MP_Aufnahmen2 /ST 00:00 /SD 01/01/2020&quot; , 1, true)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; WshShell.RegWrite &quot;HKCU\SOFTWARE\AxoNet Software GmbH\LightsOut\MP_Aufnahme&quot;,&quot;01.01.2020&quot;,&quot;REG_EXPAND_SZ&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei &quot;Aktuelle Aufnahme: &quot;&amp;rs1(&quot;Channel&quot;)&amp;&quot;-&quot;&amp;rs1(&quot;Start&quot;)&amp;&quot;-&quot;&amp;rs1(&quot;endTime&quot;)&amp; &quot;-&quot;&amp;rs1(&quot;programName&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei &quot;Taskplaner (keine Änderung) = &quot;&amp;rs1(&quot;Start&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; 'Es ist eine Aufnahme geplant, ggf Starttask anlegen&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'wenn Task nicht schon angelegt wurde, anlegen&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if &quot;A&quot;&amp;WshShell.RegRead(&quot;HKCU\SOFTWARE\AxoNet Software GmbH\LightsOut\MP_Aufnahme&quot;)&lt;&gt;&quot;A&quot;&amp;rs1(&quot;Start&quot;) then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei &quot;nächste Aufnahme: &quot;&amp;rs1(&quot;Channel&quot;)&amp;&quot;-&quot;&amp;rs1(&quot;Start&quot;)&amp;&quot;-&quot;&amp;rs1(&quot;endTime&quot;)&amp; &quot;-&quot;&amp;rs1(&quot;programName&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei &quot;Ändere Taskplaner: &quot;&amp;rs1(&quot;Start&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Para=&quot;SCHTASKS /change /ru &quot;&amp;lcase(net.computerName)&amp;&quot;\&quot;&amp;PLUser&amp;&quot; /RP &quot;&amp;chr(34)&amp;PLPW&amp;chr(34)&amp;&quot; /TN MP_Aufnahmen2 /ST &quot;&amp;Datu2&amp;&quot; /SD &quot;&amp;Datu1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei Para&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; intReturn = WshShell.Run(Para, 1, true)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; WshShell.RegWrite &quot;HKCU\SOFTWARE\AxoNet Software GmbH\LightsOut\MP_Aufnahme&quot;,rs1(&quot;Start&quot;),&quot;REG_EXPAND_SZ&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei &quot;nächste Aufnahme: &quot;&amp;rs1(&quot;Channel&quot;)&amp;&quot;-&quot;&amp;rs1(&quot;Start&quot;)&amp;&quot;-&quot;&amp;rs1(&quot;endTime&quot;)&amp; &quot;-&quot;&amp;rs1(&quot;programName&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Logdatei &quot;Taskplaner (keine Änderung) = &quot;&amp;rs1(&quot;Start&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; else&nbsp; ' Fehlermeldung loggen, kein Standby&nbsp; &nbsp; &nbsp; CheckFehler&nbsp; &nbsp; &nbsp; aktiv=aktiv+1&nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; db1.close&nbsp; &nbsp; &nbsp; 'Fehlerprüfung wieder aktivieren&nbsp; &nbsp; &nbsp; on error goto 0end if[/CODE]</blockquote>

[QUOTE="larry_S, post: 581783, member: 85587"] [b]AW: TV-Server on WHS - Collection of fixes and workarounds[/b] Hi vvulture, that's not so easy, i Think first. Microsoft wrote about the parameter: The following code is for English (United States). If it doesen't work, i need your short Date Format. please replace the code after the SQL-Statement: [CODE]if err.number=0 then 'Nur wenn kein Fehler aufgetreten ist, normales vorgehen if isdate(rs1("Start")) then 'Wenn Aufnahmen programmiert sind oder aktuelle eine läuft... Datu0=rs1("Start") Datu1=right("00"&month(datu0),2)&"/"&right("00"&day(datu0),2)&"/"&year(datu0) Datu2=right("00"&hour(datu0),2)&":"&right("00"&minute(datu0),2) if rs1("Start")<now() then 'Es läuft gerade eine Aufnahme aktiv=aktiv+1 if "A"&WshShell.RegRead("HKCU\SOFTWARE\AxoNet Software GmbH\LightsOut\MP_Aufnahme")<>"A"&"01.01.2020" then Logdatei "Aktuelle Aufnahme: "&rs1("Channel")&"-"&rs1("Start")&"-"&rs1("endTime")& "-"&rs1("programName") Logdatei "Ändere Taskplaner: 01.01.2020" intReturn = WshShell.Run("SCHTASKS /change /ru "&lcase(net.computerName)&"\"&PLUser&" /RP "&chr(34)&PLPW&chr(34)&" /TN MP_Aufnahmen2 /ST 00:00 /SD 01/01/2020" , 1, true) WshShell.RegWrite "HKCU\SOFTWARE\AxoNet Software GmbH\LightsOut\MP_Aufnahme","01.01.2020","REG_EXPAND_SZ" else Logdatei "Aktuelle Aufnahme: "&rs1("Channel")&"-"&rs1("Start")&"-"&rs1("endTime")& "-"&rs1("programName") Logdatei "Taskplaner (keine Änderung) = "&rs1("Start") end if else 'Es ist eine Aufnahme geplant, ggf Starttask anlegen 'wenn Task nicht schon angelegt wurde, anlegen if "A"&WshShell.RegRead("HKCU\SOFTWARE\AxoNet Software GmbH\LightsOut\MP_Aufnahme")<>"A"&rs1("Start") then Logdatei "nächste Aufnahme: "&rs1("Channel")&"-"&rs1("Start")&"-"&rs1("endTime")& "-"&rs1("programName") Logdatei "Ändere Taskplaner: "&rs1("Start") Para="SCHTASKS /change /ru "&lcase(net.computerName)&"\"&PLUser&" /RP "&chr(34)&PLPW&chr(34)&" /TN MP_Aufnahmen2 /ST "&Datu2&" /SD "&Datu1 Logdatei Para intReturn = WshShell.Run(Para, 1, true) WshShell.RegWrite "HKCU\SOFTWARE\AxoNet Software GmbH\LightsOut\MP_Aufnahme",rs1("Start"),"REG_EXPAND_SZ" else Logdatei "nächste Aufnahme: "&rs1("Channel")&"-"&rs1("Start")&"-"&rs1("endTime")& "-"&rs1("programName") Logdatei "Taskplaner (keine Änderung) = "&rs1("Start") end if end if end if else ' Fehlermeldung loggen, kein Standby CheckFehler aktiv=aktiv+1 end if db1.close 'Fehlerprüfung wieder aktivieren on error goto 0 end if[/CODE] [/QUOTE]

Verification