VBScript on Windows to download file from SharePoint [duplicate] - vbscript

Question

This question already has answers here:
Unrecognized database format'C:\.....\Employees.accdb for Microsoft Access Database File?
(2 answers)
Running VBS script from VBA - Unrecognized DB Format
(1 answer)
Closed 14 days ago.
This post was edited and submitted for review 13 days ago.
Is it possible to execute a VB Script (.vbs) from a Windows desktop to download a file from a SharePoint URL to a local folder and then open the file.
I'm using this with Access databases and below is the code I currently have. This seems to work but when it tries to open the file I get the "unrecognized database format error".
I've used a similar script to do this off the NAS and it works file, it's just an issue now that these files are getting moved to SharePoint.
Dim objShell, objEnv, objFSO, objFile, objFSO2, strDir, ServerDBFile, LocalDBFile
SET objShell = CreateObject("wscript.Shell")
SET objEnv = objShell.Environment("Process")
SET objFSO = CreateObject("Scripting.FileSystemObject")
SET objFSO2 = CreateObject("Scripting.FileSystemObject")
LocalDBFile = objEnv("USERPROFILE") & "\Documents\Database\DSEP\TESTING\DSEP_FE_SQL.accdb"
'ServerDBFile = "\\nas.rchsd.org\depts\DSEP\database\Staging\SQL Server\DSEP_SQL\Dev\DSEP_FE_SQL.accdb"
ServerDBFile = "https://rchsdorg.sharepoint.com/sites/RCHSD-DSEP-Test-DevlplScrngEnhancmntPrgm-M365/Shared%20Documents/General/DSEP%20Staging/DSEP/DSEP_FE_SQL.accdb?csf=1&web=1&e=FtLS9U"
'SET objFile = objFSO.GetFile(ServerDBFile)
'Create an HTTP object
SET objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1" )
dim bStrm: SET bStrm = CreateObject("Adodb.Stream")
'Download the specified URL
objHTTP.Open "GET", ServerDBFile, False
objHTTP.Send ""
'Check for Database folders
strDir = objEnv("USERPROFILE") & "\Documents\Database"
If objFSO.FolderExists(strDir) Then
'wscript.echo "Database Path Exists"
Else
'wscript.echo "Creating Network location"
objFSO.CreateFolder(strDir)
End If
'Check for DSEP folder
strDir = objEnv("USERPROFILE") & "\Documents\Database\DSEP"
If objFSO.FolderExists(strDir) Then
'wscript.echo "Database\DSEP Path Exists"
Else
'wscript.echo "Creating Network location"
objFSO.CreateFolder(strDir)
End If
'Check for TESTING folder
strDir = objEnv("USERPROFILE") & "\Documents\Database\DSEP\TESTING"
If objFSO.FolderExists(strDir) Then
'wscript.echo "Database\DSEP\TESTING Path Exists"
Else
'wscript.echo "Creating Network location"
objFSO.CreateFolder(strDir)
End If
'Delete local file if found.
If (objFSO.FileExists(LocalDBFile)) Then
'wscript.echo "Local File Exists"
objFSO.DeleteFile(LocalDBFile)
'wscript.echo "Local File Deleted"
End If
If objHTTP.Status = 200 Then 'Expecting a HTTP 200 OK response
With bStrm
.Type = adTypeBinary '//binary
.Open
.Write objHTTP.responseBody
.SaveToFile LocalDBFile, 2 '//overwrite
End With
Else
'Check the response body for details of the error.
wscript.echo "Unexpected response: " & objHTTP.Status & " - " & objHTTP.StatusText, 48, "Error"
End If
set accessApp = createObject("Access.Application")
accessApp.visible = true
accessApp.UserControl = true
accessApp.OpenCurrentDataBase(LocalDBFile)