Dim strComputer As String
            Dim objWMIService, objNewJob As Object
            Dim errJobCreated As Integer
            Dim JobId As String = "test"
 
            Dim Wscript As Object = CreateObject("WScript.Shell")
 
            strComputer = "."
            objWMIService = GetObject("winmgmts:" _
                & "{impersonationLevel=impersonate}!\\" _
                & strComputer & "\root\cimv2")
            objNewJob = objWMIService.Get("Win32_ScheduledJob")
            errJobCreated = objNewJob.Create _
                ("Notepad.exe", "********012500.000000-420", _
                    True, 4, , True, JobId)
            If errJobCreated <> 0 Then
                Wscript.Echo("Error on task creation")
            Else
                Wscript.Echo("Task created")
            End If