Virtual-Weltanschauung-PmWiki

Main.VBScript History

Hide minor edits - Show changes to markup

September 12, 2007, at 03:34 PM by Zeppo -

Changed lines 1-2 from:

to:

Added line 30:

Restore

September 12, 2007, at 03:33 PM by Zeppo -

Changed lines 1-2 from:

to:

Deleted line 30:

Restore

September 12, 2007, at 03:33 PM by Zeppo -

Added lines 1-2:

Added line 31:

Restore

September 12, 2007, at 03:21 PM by Zeppo -

Added lines 1-28:

strComputer = "." strComputer = "." Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\"_
    & strComputer & "\root\cimv2")

Set colScheduledJobs = objWMIService.ExecQuery _

    ("Select * from Win32_ScheduledJob")

For Each objJob in colScheduledJobs

    Wscript.Echo "Command: " & objJob.Command & VBNewLine _
    & "Days Of Month: " & objJob.DaysOfMonth & VBNewLine _
    & "Days Of Week: " & objJob.DaysOfWeek & VBNewLine _
    & "Description: " & objJob.Description & VBNewLine _
    & "Elapsed Time: " & objJob.ElapsedTime & VBNewLine _
    & "Install Date: " & objJob.InstallDate & VBNewLine _
    & "Interact with Desktop: " _
        & objJob.InteractWithDesktop & VBNewLine _
    & "Job ID: " & objJob.JobId & VBNewLine _
    & "Job Status: " & objJob.JobStatus & VBNewLine _
    & "Name: " & objJob.Name & VBNewLine _
    & "Notify: " & objJob.Notify & VBNewLine _
    & "Owner: " & objJob.Owner & VBNewLine _
    & "Priority: " & objJob.Priority & VBNewLine _
    & "Run Repeatedly: " & objJob.RunRepeatedly & VBNewLine _
    & "Start Time: " & objJob.StartTime & VBNewLine _
    & "Status: " & objJob.Status & VBNewLine _
    & "Time Submitted: " & objJob.TimeSubmitted & VBNewLine _
    & "Until Time: " & objJob.UntilTime

Restore