Anilrgowda

I'll explain what we want to do and hope that somebody can give me tips on how we could do it.

We want Powerpoint presentation to start running automatically on a Windows XP PC, but it has to start according to a certain schedule. The schedule is in txt format, but this schedule changes continually (daily). Also, the schedule may say 8:00 but we need the presentation to always start 15 minutes earlier than the time displayed in the schedule.

Can somebody give me tips on how to achieve this?

Anilrgowda

Then this version should do it...if it works, the Dim objShell..and objOutput.WriteLine... lines can be removed...


Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objShell: Set objShell = CreateObject("wscript.Shell")
Dim objFile: Set objFile = objFSO.OpenTextFile("C:\schedule.txt")
Dim objOutput: Set objOutpu=objFSO.CreateTextFile("C:\SchedResults.tx t")
x = 0
Do While Not objFile.AtEndOfStream
x = x + 1
strTime = objFile.ReadLine
strNewTime = FormatDateTime(DateAdd("n", -15, strTime), 4) & ":00"
strPresentation = "C:\Path to File\present.ppt"
strTask = "powerpnt /s " & strPresentation
objOutput.WriteLine "schtasks /create /ru system /sc once /st " & strNewTime & " /tn Present" & x & " /tr " & Chr(34) & strTask & Chr(34)
objShell.Run "schtasks /create /ru USERNAME /rp PASSWORD /sc once /st " & strNewTime & " /tn Present" & x & " /tr " & Chr(34) & strTask & Chr(34)
Loop
objFile.Close
objOutput.Close
Set objFile=Nothing
Set objShell=Nothing
Set objFSO=Nothing