Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Sub LaunchApp Dim objTaskService Dim strTaskName, rootFolder, taskDefinition, triggers, trigger, Action 'Create the TaskService object Set objTaskService = CreateObject("Schedule.Service") Call objTaskService.Connect() strTaskName = "Launch App As Interactive User" 'Get a folder to create a task definition in Set rootFolder = objTaskService.GetFolder("\") 'Delete the task if already present On Error Resume Next Call rootFolder.DeleteTask(strTaskName, 0) Err.Clear 'Create the new task Set taskDefinition = objTaskService.NewTask(0) 'Create a registration trigger Set triggers = taskDefinition.Triggers Set trigger = triggers.Create(TriggerTypeRegistration) 'Create the action for the task to execute Set Action = taskDefinition.Actions.Create(ActionTypeExecutable) Action.Path = strKIX Action.Arguments = strScriptName Action.WorkingDirectory = strWorkingDirectory 'Register (create) the task call rootFolder.RegisterTaskDefinition(strTaskName, taskDefinition, FlagTaskCreate,,, LogonTypeInteractive) Set objTaskService = nothing End Sub