[Iska]

Попробуйте унаследованную команду «at.exe», создающую унаследованные задания, работающие от имени SYSTEM. Главная проблема будет в том, чтобы указать время в команде +1 минута от текущего (впрочем, примеры арифметических операций в пакетных файлах для времени на форуме, помнится, были).

Если по Вашим условиям допустимо использование WSH, и в момент исполнения скрипта существует Проводник, то вот (пример для Блокнота):

читать дальше »

Код:

Option Explicit

Const strPath2Tasks = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"

Dim strComputer

Dim objSWbemServicesEx
Dim objSWbemObjectEx
Dim objSWbemDateTime

Dim dtNow, intInterval
Dim lngJobID

Dim objShell, objFolder, objFolderItem, objVerb


' Задаём время выполнения минуту назад, в результате задание будет намечено
' на следующий день
intInterval = -1

Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

With CreateObject("WbemScripting.SWbemDateTime")
    ' Вычисляем время задания, отталкиваясь от текущей даты
    dtNow       = DateAdd("n", intInterval, Now())
    
    .Hours      = Hour(dtNow)
    .Minutes    = Minute(dtNow)
    .Seconds    = Second(dtNow)
    
    ' Получаем разницу между временем UTC и текущим поясным временем
    For Each objSWbemObjectEx In objSWbemServicesEx.InstancesOf("Win32_TimeZone")
        .UTC    = objSWbemObjectEx.Bias
        
        Exit For
    Next
    
    ' 6-й параметр метода .Create() управляет разрешением взаимодействовать с рабочим столом
    ' текущего пользователя, в данном случае — True, т.е. — разрешено.
    If objSWbemServicesEx.Get("Win32_ScheduledJob").Create( _
        "Notepad.exe", String(8, "*") & Mid(.Value, 9), , , , True, lngJobID) = 0 Then
        WScript.Echo "Создано запланированное задание #" & lngJobID & "."

        Set objShell  = WScript.CreateObject("Shell.Application")
        ' Подключаемся к виртуальной папке «Назначенные задания»
        Set objFolder = objShell.NameSpace(strPath2Tasks)
        
        If Not (objFolder Is Nothing) Then
            ' Перебираем все пункты…
            For Each objFolderItem In objFolder.Items
                ' …пока не дойдём до трубуемого нам «At…»
                If objFolderItem.Name = "At" & CStr(lngJobID) Then
                    ' Перебираем глаголы…
                    For Each objVerb In objFolderItem.Verbs
                        ' …пока не дойдём до трубуемого нам «В&ыполнить»
                        If objVerb.Name = "В&ыполнить" Then
                            ' Исполняем этот глагол
                            objVerb.DoIt
                            
                            ' Величина времени задержки подбирается опытным путём
                            ' и зависит от запускаемого заданием приложения
                            WScript.Sleep 1000
                            WScript.Echo "Запущено задание #" & lngJobID & "."
                            
                            Exit For
                        End If
                    Next
                    
                    Exit For
                End If
            Next
        End If
        
        Set objFolder = Nothing
        Set objShell  = Nothing
        
        ' Удаляем задание
        If objSWbemServicesEx.Get("Win32_ScheduledJob.JobId=" & lngJobID & "").Delete() = 0 Then
            WScript.Echo "Удалено задание #" & lngJobID & "."
        Else
            WScript.Echo "Не удалось удалить задание #" & lngJobID & "."
        End If
    Else
        WScript.Echo "Не удалось создать запланированное задание."
    End If
End With

Set objSWbemServicesEx = Nothing

WScript.Quit 0

Наконец, возможно, самым простым для Вас будет использовать стороннее средство — «psexec.exe» из комплекта PsTools.