用VBS自定义时间新建计划任务
发布网友
发布时间:2022-04-22 04:50
我来回答
共1个回答
热心网友
时间:2023-12-09 13:27
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
有问题再沟通!