Function GetSheduledJob
	Dim ServicesSet
	Dim Items
	Set ServicesSet = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.")
	Set Items = ServicesSet.ExecQuery("Select * from Win32_ScheduledJob")
	For Each Item in Items
		GetSheduledJob = GetSheduledJob & "Caption: " & Item.Caption & ";"
		GetSheduledJob = GetSheduledJob & "Command: " & Item.Command & ";"
		GetSheduledJob = GetSheduledJob & "DayMounth: " & Item.DaysOfMounth & ";"
		GetSheduledJob = GetSheduledJob & "DayWeek: " & Item.DaysOfWeek & ";"
		GetSheduledJob = GetSheduledJob & "Description: " & Item.Description & ";"
		GetSheduledJob = GetSheduledJob & "ElapsedTime: " & Item.ElapsedTime & ";"
		GetSheduledJob = GetSheduledJob & "InstallDate: " & Item.InstallDate & ";"
		GetSheduledJob = GetSheduledJob & "Name: " & Item.Name & ";"
		GetSheduledJob = GetSheduledJob & "Notify: " & Item.Notify & ";"
		GetSheduledJob = GetSheduledJob & "Priority: " & Item.Priority & ";"
		GetSheduledJob = GetSheduledJob & "StartTime: " & Item.StartTime & ";"
		GetSheduledJob = GetSheduledJob & "Status: " & Item.Status & ";"
		GetSheduledJob = GetSheduledJob & "=============================================" & ";"
	Next
End Function

MsgBox(GetSheduledJob)