[英]VB Application connects to server fine on my computer but not on any other computer
[英]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)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.