Как мне запустить этот VBscript при выходе из системы?
У меня есть этот VBScript, который я хочу запускать каждый день, даже если я не на своем компьютере:
Option Explicit Dim file, folder Dim xlapp, xlbook, filesys, accapp Dim sorte, journee, projet, compagnie Set xlapp = CreateObject("Excel.Application") xlapp.displayalerts = false Set filesys = CreateObject("Scripting.FileSystemObject") folder = "\\OGR-VMHOST-01\FTPRoot\Dataroom\test" For Each file In filesys.GetFolder(folder).Files If UCase(filesys.GetExtensionName(file.Name)) = "XLSM" Then Set xlbook = xlapp.Workbooks.Open(file.Path) On Error resume next xlapp.Run "Upload_DB" xlbook.SaveAs file.Path If err <> 0 Then xlbook.Close xlapp.Quit End if sorte = xlbook.ActiveSheet.cells(1,1).value journee = xlbook.ActiveSheet.cells(1,3).value compagnie = xlbook.ActiveSheet.cells(1,7).value projet = xlbook.ActiveSheet.cells(2,7).value xlbook.Close If InStr(sorte, "Milling") Then sorte = "Milling" Else sorte = "Mining" End If file.Name = sorte & "_" & compagnie & "_" & projet & "_" & journee & ".xlsm" If err <> 0 Then xlapp.Quit End if filesys.MoveFile file.Path, "\\OGR-VMHOST-01\FTPRoot\Dataroom\test\Archive\" If err <> 0 Then xlapp.Quit End if End if Next xlapp.Quit folder = "\\OGR-VMHOST-01\FTPRoot\Dataroom\test\Rapports" For Each file In filesys.GetFolder(folder).Files filesys.MoveFile file.Path, "J:\Rapports\Archive\" next Set accapp = CreateObject("Access.Application") accApp.OpenCurrentDataBase("\\OGR-VMHOST-01\FTPRoot\Dataroom\test\DB\Rapports Quotidiens.accdb") accapp.Run "ExportToPDF" accapp.Quit Set xlapp = Nothing Set xlbook = nothing Set filesys = Nothing Set accapp = nothing
По сути, он открывает все файлы Excel на общем диске, заставляет их запускать макрос, а затем перемещает их в другое место. Затем он запускает макрос доступа, который создает отчет и отправляет его по электронной почте.
Я могу заставить скрипт работать в планировщике задач, если я установлю, что мне нужно войти в систему в момент выполнения, но в тот момент, когда я настроил его на работу, когда не вошел в систему, кажется, он больше ничего не делает ,
Читая другие вопросы, я полагаю, что это связано с тем, что у учетной записи по умолчанию недостаточно прав для ее запуска. Итак, как мне сделать так, чтобы мой скрипт использовал мою учетную запись для выполнения своей задачи?
РЕДАКТИРОВАТЬ: Кажется, что сценарий не является причиной сейчас. Я даже не могу запустить cmd без входа в систему. А системный администратор компании понятия не имеет, о чем я говорю.
0 ответов на вопрос
Похожие вопросы
-
3
Как я могу инициировать задачу Windows из ярлыка?
-
1
Использование подключенного жесткого диска USB для запуска запланированного задания
-
3
Запуск bat-файла с помощью планировщика Windows
-
-
1
Как найти IP-адрес в электронной таблице Excel?
-
4
Автоматически закрывать программу в назначенное время каждый день
-
3
Центрировать текст в документе Word
-
2
Планировщик задач Win7 аварийно завершает работу с описанием ошибки «RpcServerUseProtseq: ncacn_ip_t...
-
1
Скрипт Active Directory VBS для аудита презентации
-
3
Ошибка ввода: отсутствует механизм сценариев для расширения файла ".vbs"
-
1
Проверка VBScript на наличие синтаксических ошибок без фактического запуска скрипта