香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 29th Nov 2006, 13:54 PM | Script | (1286 Reads)

WMI Example: Win32_ScheduledJob

All Windows Platforms

 

 
Sub ScheduledJob()
strServer = "."
Set objWMI = GetObject("winmgmts://" & strServer & "/rootcimv2")
Set objInstances = objWMI.InstancesOf("Win32_ScheduledJob", 48)
On Error Resume Next
For Each objInstance In objInstances
   Debug.Print objInstance.getObjectText_
Next
End Sub
'---- 
 
Sub ScheduledJob2()
strServer = "."
Set objWMI = GetObject("winmgmts://" & strServer & "/rootcimv2")
Set objInstances = objWMI.InstancesOf("Win32_ScheduledJob", 48)
On Error Resume Next
For Each objInstance In objInstances
    With objInstance
        Debug.Print .Caption
        Debug.Print .Command
        Debug.Print .DaysOfMonth
        Debug.Print .DaysOfWeek
        Debug.Print .Description
        Debug.Print .ElapsedTime
        Debug.Print .InstallDate
        Debug.Print .InteractWithDesktop
        Debug.Print .JobId
        Debug.Print .JobStatus
        Debug.Print .Name
        Debug.Print .Notify
        Debug.Print .Owner
        Debug.Print .Priority
        Debug.Print .RunRepeatedly
        Debug.Print .StartTime
        Debug.Print .Status
        Debug.Print .TimeSubmitted
        Debug.Print .UntilTime
    End With
On Error GoTo 0
Next
End Sub

mySinaBlog 不支援斜線,斜線現用全形\取代 ,請改回。