来自其他计算机的 windows 服务器中的任务计划

Task schedule in windows server from other computer

我正在使用这些参数安排来自 vb.net 的任务。正确生成任务并执行。这在本地工作正常,但我需要在服务器上创建该任务。有什么想法吗?

Using tService As New TaskService()
    Dim Fecha As DateTime = DateTime.Parse(txtFDesde.Text + " " + txtHDesde.Text)
    Dim tTime As New TimeTrigger()
    Dim tDefinition As TaskDefinition = tService.NewTask
    tDefinition.RegistrationInfo.Description = "Tarea programada para ejecutar"
    tDefinition.Settings.RunOnlyIfLoggedOn = False
    tTime.StartBoundary = New DateTime(Fecha.Year, Fecha.Month, Fecha.Day, Fecha.Hour, Fecha.Minute, 0)
    tDefinition.Triggers.Add(tTime)
    Dim url As String = "http://localhost:5000/" & Param
    tDefinition.Actions.Add(New ExecAction("cmd.exe", "/c start " & url))
    tService.RootFolder.RegisterTaskDefinition("Test " & Param, tDefinition)
End Using

尝试静态连接方法...您需要服务器的凭据....https://msdn.microsoft.com/en-us/library/windows/desktop/aa383451(v=vs.85).aspx

这是有效的,我只需要在 "Connect()"

上添加服务器参数
Const TriggerTypeTime = 1
Const ActionTypeExec = 0

Dim service = CreateObject("Schedule.Service")
Call service.Connect()

Dim rootFolder
rootFolder = service.GetFolder("\")

Dim taskDefinition
taskDefinition = service.NewTask(0)

Dim regInfo
regInfo = taskDefinition.RegistrationInfo
regInfo.Description = "Testing"
regInfo.Author = "Me"

Dim principal
principal = taskDefinition.Principal

' revisar
principal.LogonType = 3

Dim settings
settings = taskDefinition.Settings
settings.Enabled = True
settings.StartWhenAvailable = True
settings.Hidden = False

Dim triggers
triggers = taskDefinition.Triggers

Dim trigger
trigger = triggers.Create(TriggerTypeTime)

Dim startTime
startTime = L_TraducirParaTrigger(Fecha)

trigger.StartBoundary = startTime
trigger.Id = "TimeTriggerId"
trigger.Enabled = True

Dim Action
Action = taskDefinition.Actions.Create(ActionTypeExec)
Action.Path = "C:\Windows\System32\cmd.exe"
Dim url As String = "http://localhost:5000/" & L_IdEjecucion
Action.Arguments = "/c start " & url
'revisar último parámetro
 Call rootFolder.RegisterTaskDefinition(L_Id, taskDefinition, 6, , , 3)