关于windows下计划任务脚本的问题？？

zxq20004

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2"
Set objNewJob = objWMIService.Get("Win32_ScheduledJob"
errJobCreated = objNewJob.Create _
    ("notepad.exe", "********123000.000000-420", _
        True , 1 OR 4 OR 16, , , JobID)
Wscript.Echo errJobCreated

以上就是这个vbs脚本可以成功执行，不知怎样修改，让notepad立即执行或以几秒或一分钟后 执行 时间上怎莫修改 还有不要弹出对话框来

renstone921

Windows Script Host                
Sleep Method

Suspends script execution for a specified length of time, then continues execution.

object.Sleep(intTime)
Arguments
object
WScript object.
intTime
Integer value indicating the interval (in milliseconds) you want the script process to be inactive.
Remarks

The thread running the script is suspended, releasing its CPU utilization. Execution resumes as soon as the interval expires. Using the Sleep method can be useful when you are running asynchronous operations, multiple processes, or if your script includes code triggered by an event. To be triggered by an event, a script must be continually active (a script that has finished executing will certainly not detect an event). Events handled by the script will still be executed during a sleep.
Note   Passing the Sleep method a 0 or –1 does not cause the script to suspend indefinitely.
Example

The following example demonstrates the use of a single .wsf file for two jobs in different script languages (VBScript and JScript). The functionality of both jobs is the same — each runs the Windows calculator and sends it keystrokes to execute a simple calculation.

<package>;
   <job id="vbs">;
      <script language="VBScript">;
         set WshShell = WScript.CreateObject("WScript.Shell"
         WshShell.Run "calc"
         WScript.Sleep 100
         WshShell.AppActivate "Calculator"
         WScript.Sleep 100
         WshShell.SendKeys "1{+}"
         WScript.Sleep 500
         WshShell.SendKeys "2"
         WScript.Sleep 500
         WshShell.SendKeys "~"
         WScript.Sleep 500
         WshShell.SendKeys "*3"
         WScript.Sleep 500
         WshShell.SendKeys "~"
         WScript.Sleep 2500
      </script>;
   </job>;

   <job id="js">;
      <script language="JScript">;
         var WshShell = WScript.CreateObject("WScript.Shell";
         WshShell.Run("calc";
         WScript.Sleep(100);
         WshShell.AppActivate("Calculator";
         WScript.Sleep(100);
         WshShell.SendKeys("1{+}";
         WScript.Sleep(500);
         WshShell.SendKeys("2";
         WScript.Sleep(500);
         WshShell.SendKeys("~";
         WScript.Sleep(500);
         WshShell.SendKeys("*3";
         WScript.Sleep(500);
         WshShell.SendKeys("~";
         WScript.Sleep(2500);
      </script>;
   </job>;
</package>;
See Also

zxq20004

回 renstone921 大哥
谢谢阿
可是我看太不懂啊
能不能再详细点啊
我不懂vbs

zxq20004

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2"
Set objNewJob = objWMIService.Get("Win32_ScheduledJob"
errJobCreated = objNewJob.Create _
   ("notepad.exe", "********123000.000000-420", _
       True , 1 OR 4 OR 16, , , JobID)
<package>;
  <job id="vbs">;
     <script language="VBScript">;
        set WshShell = WScript.CreateObject("WScript.Shell"
        WshShell.Run "calc"
        WScript.Sleep 100
        WshShell.AppActivate "Calculator"
        WScript.Sleep 100
        WshShell.SendKeys "1{+}"
        WScript.Sleep 500
        WshShell.SendKeys "2"
        WScript.Sleep 500
        WshShell.SendKeys "~"
        WScript.Sleep 500
        WshShell.SendKeys "*3"
        WScript.Sleep 500
        WshShell.SendKeys "~"
        WScript.Sleep 2500
     </script>;
  </job>;

Wscript.Echo errJobCreated
不能运行

renstone921

你需要做的仅仅是把下面的代码段加入你的代码。
set WshShell = WScript.CreateObject("WScript.Shell"
WshShell.Sleep 2500

zxq20004

renstone921大哥
报错：对象不支持‘wshell.sleep'

renstone921

你把你的全部代码贴出来。

zxq20004

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2"
Set objNewJob = objWMIService.Get("Win32_ScheduledJob"
errJobCreated = objNewJob.Create _
    ("Notepad.exe", "********123000.000000-420", _
        True , 1 OR 4 OR 16, , , JobID)
Wscript.Echo errJobCreated
set WshShell = WScript.CreateObject("WScript.Shell"
WshShell.Sleep 2500
Wscript.Echo errJobCreated
执行后可以成功后报错对象不支持‘wshell.sleep'
sleep 2500 之后不能把notepad启动

renstone921

你把下面的代码为a.vbs,然后用鼠标双击来启动执行

set WshShell = WScript.CreateObject("WScript.Shell"

        WScript.Sleep 100001

         WshShell.Run "calc"
         WshShell.AppActivate "Calculator"
         WScript.Sleep 100
         WshShell.SendKeys "1{+}"
         WScript.Sleep 500
         WshShell.SendKeys "2"
         WScript.Sleep 500
         WshShell.SendKeys "~"
         WScript.Sleep 500
         WshShell.SendKeys "*3"
         WScript.Sleep 500
         WshShell.SendKeys "~"
         WScript.Sleep 2500

zxq20004

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2"
Set objNewJob = objWMIService.Get("Win32_ScheduledJob"
errJobCreated = objNewJob.Create _
    ("Notepad.exe", "********123000.000000-420", _
        True , 1 OR 4 OR 16, , , JobID)

set WshShell = WScript.CreateObject("WScript.Shell"
WshShell.Sleep 2500
Wscript.Echo errJobCreated
刚才贴错了