Programmers invitation

[gunsmokingman]

The Task schedule seems very hard to do.

You have to create the task then delete the task to recreate the task

to do what you want. This is my understanding on what I have read about it.

Martin would it not be better to start the script as soon as some one logs on.

Then you could leave it in a loop that does not end.

This loop would keep going because there is no -1

Dim Inta : Inta = 1-1

Do

Inta = Inta + 1

'''' Your Action Here

wscript.sleep 60000

Loop Until Inta = -1

The share folder I have no way of testing that.

[dman]

Hi Martin,

I have been so busy I don't have time to pee. Hope to dig into this over the weekend :-)

[Martin Zugec]

2Dman: No prob, this is hobby project

2GSM: Nope, that is not good The problem is any error during script will block whole execution, whether batch services are independent on each other + you can create threaded execution...

If it is really big problem, I could write it in .NET...

[gunsmokingman]

It is kinda of a problem in vbs because as I understand it you must

create the task then delete the task. You would have to do this for

each task.

The loop you could add I believe a way to handle errors

On Error Resume Next

Here is a example of what I mean

Dim Act, Fso, SD, Test

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Act = CreateObject("Wscript.shell")

SD = Act.ExpandEnvironmentStrings("%systemdrive%")

Test = Array("\Test5","\Test4","\Test3","\Test2")

For Each StrTest In Test

Fso.CreateFolder(SD & StrTest)

Next

Act.Run(SD)

MsgBox "Part One Of The Test Completed"

On Error Resume Next

Fso.DeleteFolder(SD &"\Test1")

Fso.DeleteFolder(SD &"\Test2")

Fso.DeleteFolder(SD &"\Test3")

Fso.DeleteFolder(SD &"\Test4")

Fso.DeleteFolder(SD &"\Test5")

Here Is Another Example

Dim Act, Fso, SD, RunTest

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Act = CreateObject("Wscript.Shell")

SD = Act.ExpandEnvironmentStrings("%systemdrive%")

RunTest = Array(_

SD & "\Windows\Notepad.exe",SD & "\Windows\SmokePad.exe",_

SD & "\Windows\System32\Mspaint.exe",SD & "\Windows\System32\Martin.exe")

For Each StrRunTest In RunTest

If Fso.FileExists(StrRunTest) Then

Act.Run(StrRunTest),1,True

Act.Popup "Completed The Test" & vbCrLf & strRunTest, 5, "Completed", 0 + 32

Else

Act.Popup "Error In The Test" & vbCrLf & strRunTest, 5, "Error", 0 + 32

End If

Next

[Martin Zugec]

Hmmm, I can see the problem

The Win32_ScheduledJob class doesnt support that kind of job I would like to see

Looks like we will need to find some workaround...

Dman, what do you think, could you create it using C++? I would like to use as less as possible of .NET, because it require runtime