Windows 2008 R2 64 bit vbs script is not run in Task Scheduler

Question

Good day! 
There is a script that at a certain point opens excel, says there is something, saves and closes. 
Does not work in 2008 scheduler mode to perform regardless of the user's registration (ie, the script should run when the PC no one registered), if you run your hands or in the Run mode only for the registered user oki-all 
Here is a sample text of the script:
checkosx86x64args()
Dim conn
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=MSDAORA.1;Password=пароль;User ID=логин;Data Source=база;Persist Security Info=True"
conn.Open
Set Recordset = CreateObject("ADODB.Recordset")
Recordset.CursorLocation = 3
Recordset.Open "текст запроса", conn, 2, 3, 1
If Recordset.RecordCount = 0 Then
Recordset.Close: Call Pochta
else
Incas = Recordset.GetRows
Recordset.Close
End if
Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open("*.xlsx")
DateNow = Left(Now(),10)
DateTimeNow1 = CDate(DateNow + " " + "14:00:00")
DateTimeNow2 = CDate(DateNow + " " + "21:00:00")
'DateTimeNow3 = CDate(DateNow + " " + "23:30:00")
'objExcel.Range("A1:F1").Merge - объединение ячеек
objExcel.Range("A1:F1") = Empty ' очистка объединенных ячеек
If Now < DateTimeNow1 Then
objExcel.Range("A1:F1").Value = "Текст " + DateNow + " с 05:00:00 до 06:45:00"
ElseIf Now < DateTimeNow2 Then
objExcel.Range("A1:F1").Value = "Текст " + DateNow + " с 14:00:00 до 16:30:00"
Else objExcel.Range("A1:F1").Value = "Текст " + DateNow + " с 21:00:00 до 23:30:00"
End If
For j = 3 To 100 Step 1
objExcel.Cells(j, 1).Clear
objExcel.Cells(j, 2).Clear
objExcel.Cells(j, 3).Clear
objExcel.Cells(j, 4).Clear
objExcel.Cells(j, 5).Clear
objExcel.Cells(j, 6).Clear
Next
intRow = 3
i = 0
For f = 0 To UBound(Incas, 2)
AZS = Incas(0, f)
nTo = Incas(1, f)
Term = Incas(2, f)
DataIn = Incas(3, f)
Addres = Incas(4, f)
Phone = Incas(5, f)
objExcel.Cells(intRow,1).Value = AZS
objExcel.Cells(intRow,2).Value = nTo
objExcel.Cells(intRow,3).Value = Term
objExcel.Cells(intRow,4).Value = DataIn
objExcel.Cells(intRow,5).Value = Addres
objExcel.Cells(intRow,6).Value = Phone
intRow = intRow + 1
Next
'For k = 0 To 6
' objExcel.Columns(k + 1).AutoFit
'Next
objExcel.DisplayAlerts = False
objExcel.ActiveWorkbook.SaveAs("*.xlsx")
objExcel.DisplayAlerts = True
objexcel.Quit
conn.Close
Wscript.Sleep(180)
Call OtpravkaPochti
Recordset = ""
conn.Close
'------------------------Процедура отправки почты если есть запись в таблице-----------------------------------------
Sub OtpravkaPochti()
Const EmailFrom = "почта"
Const EmailPassword = "пароль"
Const strSmtpServer = "сервер"
Const EmailTo = "адресаты"
' Кому будет отправляться e-mail
Const AttFile = "*.xlsx" 'Указываем путь к файлу, который необходимо вложить в сообщение
Set objEmail = CreateObject("CDO.Message")
objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = "текст"
objEmail.Textbody = "текст"
objEmail.AddAttachment(AttFile)
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/languagecode") = 1049
objEmail.BodyPart.CharSet = "windows-1251"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext") = true
objEmail.Configuration.Fields.Update
objEmail.Send
WScript.Quit
End Sub
'------------------------Процедура отправки почты если нет записей в таблице-----------------------------------------
Sub Pochta()
End Sub
sub checkosx86x64args()
' если скрипт запущен из %windir%\system32\ под win x64 - перезапуск из %windir%\syswow64\
dim cmdln, arg
with createobject("WScript.Shell")
if replace(lcase(wscript.path), lcase(.expandenvironmentstrings("%windir%\")), "") = "system32" then
cmdln = replace(lcase(wscript.fullname), "system32", "syswow64")
if createobject("scripting.filesystemobject").fileexists(cmdln) then
cmdln = cmdln & " """ & wscript.scriptfullname & """"
for each arg in wscript.arguments
cmdln = cmdln & " """ & arg & """"
next
.run cmdln
wscript.quit
end if
end if
end with
end sub
Please help me with a problem.
Please help me with a
problem.

Answer 1

Thank you very much Jesper for sharing this. My program also calls Excel.application in
the script and it was never working after we moved the script to Win 2008 R2 server. After creating these 2 folders, it started working.
C:\Windows\SYSWOW64\config\systemprofile\desktop\
C:\Windows\System32\config\systemprofile\desktop\