用VBS自定义时间新建计划任务
发布网友
共1个回答
热心网友
input = inputbox("请输入执行时间，格式为HHMMSS")
eTime = "********" & input & ".000000-420"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheledJob")
errJobCreated = objNewJob.Create _
("Notepad.exe", eTime,_
True , 4, , True, JobId)
If errJobCreated <> 0 Then
Wscript.Echo "创建任务失败！"
Else
Wscript.Echo "任务创建成功！"
End If
有问题再沟通！
