Peder Borg Borup

Private Function CreateScheduledTask(ByVal strName As String, ByVal StartTime As DateTime) As Boolean
Try
If EncoderTaskRunning() = False And EncoderTaskExists(“StartEncoder”) = False Then

Dim sCreateTask As New System.Diagnostics.Process
sCreateTask.StartInfo.FileName = “c:\windows\system32\schtasks.exe”
sCreateTask.StartInfo.Arguments = “/CREATE /sc ONCE /ru runasusername /rp runasuserpassword /TN ” & strName & ” /TR c:\windows\system32\cmd.exe /ST ” & StartTime & “”
sCreateTask.StartInfo.RedirectStandardOutput = True
sCreateTask.StartInfo.RedirectStandardError = True
sCreateTask.StartInfo.UseShellExecute = False
sCreateTask.Start()
sCreateTask.WaitForExit()

If sCreateTask.ExitCode <> 0 Then
EventLog.WriteEntry(sCreateTask.StandardError.ReadToEnd)
Else
EventLog.WriteEntry(sCreateTask.StandardOutput.ReadToEnd)
End If

sCreateTask.Dispose()
sCreateTask = Nothing

Else

EventLog.WriteEntry(“Encoder is running – could not create scheduled task”)

End If

Catch ex As Exception
EventLog.WriteEntry(ex.Message.ToString)
End Try
End Function