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