Windows Task Scheduler does not execute .vbs script as exptected while using CScript.exe

Question

We have a .vbs script that reads a source text file, looks for errors, performs a find/replace and then writes a cleaned version of the file to a destination folder.
When executing the script by manually double clicking on the .vbs file, the script works flawlessly.  But when executing via Windows Task Scheduler using Cscript.exe, it creates an empty, zero byte, text file.  Task Scheduler is set to run
"C:\Windows\System32\cscript.exe" with the Add arguments (optional): C:\Scripts\myscript.vbs.
Does anyone know of a way to make it work using the Windows Task Scheduler?
Part of the Script:
Sub CheckFilesIntegrity()
Dim cleanedfile,strLine,outputStr, tempstr, tmpChar, changeTo, companycode, storestring
Dim ObjFileSys, objFile,objCleanFile
charArray = Array("-","?", "/", "\", ":", "*", """", "<", ">", ",", "&", "#", "~", "%", "{",
"}", "+", "_", ".", "a", "e", "o", "s", "h","i","E", "O","P", "S", "p", "=")
 Set ObjFileSys   = CreateObject("Scripting.FileSystemObject")
 Set objCleanFile = CreateObject("Scripting.FileSystemObject")
 Set objFile = ObjFileSys.OpenTextFile(file.name, ForReading, True)
 textfilename = destinationpath & objfilesys.GetBaseName(file) & ".txt"
 Set cleanedfile = objCleanFile.OpenTextFile(textfilename, ForWriting, True)
 ObjLog.writeline "File containing cleaned up data: " & textfilename
 Do while not objfile.AtEndOfStream
     strLine = objfile.ReadLine()
     tempstr = strLine
     If (Left(UCase(tempStr),8) <> "HPAYMENT") Then
      'fix pay now data entry whre record does not have a company code
      If Mid(tempstr, 18,3) = "000" Then
       companycode = Mid(tempstr,32,3)
       storestring = Left(tempstr,17)
       tempstr =Replace(tempstr,"000",companycode,18,1,1)
       tempstr = storestring & tempstr
       storestring = Left(tempstr,31)
       tempstr= Replace(tempstr,companycode,"000",32,1,1)
       tempstr = storestring & tempstr
      End If
      'remove invalid characters and replace them with zero (filler)
   For Each tmpChar in charArray
    Select Case tmpChar
     Case "-","?", "/", "\", ":", "*", """", "<", ">", ",", "&", "#", "~", "%",
"{", "}", "+", "_", ".", "a", "e", "o", "s", "h","i","E", "O","P", "S", "p", "="
     changeTo = "0"
     outputStr = replace( tempstr, tmpChar, changeTo,1,-1,1 )
    End Select
    tempstr=outputstr
   Next
  Else
   outputStr = tempstr 
  End If
    strLine = outputStr
  cleanedfile.writeline(strLine)
 Loop
 cleanedfile.Close
 Set cleanedfile = Nothing
 Set ObjFileSys = Nothing
 Set objFile = Nothing
 ObjLog.writeline " Completed processing of file: " & textfilename
End Sub

Answer 1

So we ended up getting it to work by replicating the double click function.  Meaning that we created a Batch file that calls the .vbs script, then had Windows Task Scheduler run the Batch file.  In that way all necessary permissions were passed
through from one environment to another, which was failing when we called the .vbs script using CScript.