Dim JobID As String = "Test"
Dim mgmtClass As New ManagementClass("Win32_ScheduledJob")
Dim methodArgs(6) As Object 'seven arguments
methodArgs(0) = "Notepad.exe"
methodArgs(1) = "********143000.000000-420"
methodArgs(2) = True
methodArgs(3) = 1 Or 4 Or 16 'days of the week?
methodArgs(4) = Nothing
methodArgs(5) = True
Methodargs(6) = JobID
'Execute the method
Dim errorNum As Integer = mgmtClass.InvokeMethod("Create", methodArgs)
MsgBox(errorNum) 'Zero means success.
http://social.msdn.microsoft.com/Forums/en-US/vblanguage/thread/04eca99a-d167-4388-b010-7d5ded0da86e/
http://msdn.microsoft.com/en-us/library/aa394399(VS.85).aspx
No comments:
Post a Comment