Как мне запустить этот VBscript при выходе из системы?

359
Eloyas

У меня есть этот 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

0 ответов на вопрос

Похожие вопросы