[Immortalarena]

I have a script that connects to an Access Database. I need to use the Access Database to read and write the data, but when the script runs I get the login prompt, meaning I have to run this job manually. Doesn anyone have any idea how I might put a username and password through to help automate this script?

I've done somethign similar before with Web Directory Security, but I'm not sure how to get my vbscript working. Any help would be greatly appreciated.

DSN="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=L:\Data.mdb;"
Set con = CreateObject("ADODB.Connection")
con.Open(dsn)

'-----------------------------------This worked in Web, but isn't working here

struserName = "USERNAME"
strPassWord = "PASSWORD"
strURL="SHAREPOINT ADDRESS"

Dim objXMLHTTP
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
Call objXMLHTTP.Open("Get", strURL, False, struserName, strPassWord)
Call objXMLHTTP.Send()

'-----------------------------------

strSQL="SELECT * FROM [Data]"
Set rstuid = CreateObject("ADODB.Recordset")
rstuid.Open strSQL, con, adOpenStatic, adLockReadOnly

rstuid.movenext

My goal is for it to be able to run without someone having to do it manually and enter in the username and password.

Thanks!

[Advertisements]

Append to the connection string
"User ID=USERNAME_HERE;Password=PASSWORD_HERE;"

[devper94]

Append to the connection string
"User ID=USERNAME_HERE;Password=PASSWORD_HERE;"