Take the 2-minute tour ×
Server Fault is a question and answer site for professional system and network administrators. It's 100% free, no registration required.

Hello everybody I have a script on vbscript

Dim WSHShell, WinDir, Value, wshProcEnv, fso, Spath

Set WSHShell = CreateObject("WScript.Shell")

Dim objFSO, objFileCopy
Dim strFilePath, strDestination

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set windir = objFSO.getspecialfolder(0)
objFSO.CopyFile "\dv.rt.ru\SYSVOL\DV.RT.RU\scripts\shutdown.vbs", windir&"\", OverwriteExisting

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
JobID = "1"

Set colScheduledJobs = objWMIService.ExecQuery _
("Select * from Win32_ScheduledJob")
For Each objJob in colScheduledJobs
objJob.Delete
Next

Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreate = objNewJob.Create _
(windir & "\shutdown.vbs", "**093000.000000+660", _
True, 1 OR 2 OR 4 OR 8 OR 16 OR 32 OR 64, ,True, JobId)

How make that shutdown.vbs not run once at 9:30 but run for 9:30 to 12:00

share|improve this question
    
user31568: Your last question (an exact copy/paste of this one) got closed as "not a real question" meaning we couldn't tell exactly what you where looking for. You might want to edit in some more detail about what you are trying to do, what you have already tried, and what errors you are seeing. –  Zypher May 18 '10 at 6:39
    
Crossposted: StackOverflow and SuperUser. –  Dennis Williamson May 18 '10 at 9:03
    
Since the user has no interest in following up on his question (even though an answer was proposed), can we close this? –  gWaldo Sep 7 '10 at 19:52
add comment

1 Answer

You will need to do a Create for each time that you want to schedule the task.

errJobCreate = objNewJob.Create _
(windir & "\shutdown.vbs", "********093000.000000+660", _
True, 1 OR 2 OR 4 OR 8 OR 16 OR 32 OR 64, ,True, JobId)
errJobCreate = objNewJob.Create _
(windir & "\shutdown.vbs", "********093500.000000+660", _
True, 1 OR 2 OR 4 OR 8 OR 16 OR 32 OR 64, ,True, JobId)
errJobCreate = objNewJob.Create _
(windir & "\shutdown.vbs", "********094000.000000+660", _
True, 1 OR 2 OR 4 OR 8 OR 16 OR 32 OR 64, ,True, JobId)
.
.
.

Or set the time in a variable and increment it and do the Create in a loop.

share|improve this answer
add comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.