The use of ACE/400 DAO with VB Script is very similar to that of VB. ACE/400 for VB must be installed on the Internet server machine for this purpose. To enable ACE/400 DAO, use a code such as this:

Dim ace400,db
Set ace400=CreateObject("ACE400.ACE400")

To open the database, use code like this:

Set db=ace400.Opendatabase("",0,0,"USER=QPGMR;PASSWORD= xXXXX")

You must provide the password with the Opendatabase because otherwise the login box will appear on the server.

Hint: To improve your code, it is safer to experiment with VB before using VBScript, because with VB, you have the Object Browser.