Macro VBS pour ouvrir une cession AS400

Bonjour a toute et a tous,

Je souhaiterais ouvrir une session As400 a l'aide d'une commande vbs et changer la date a un endroit bien précis.
La commande suivante me permet d'ouvrir des fichiers Excel et de lancer des macros dans excel. Comment puis-je la modifier pour l'AS400.

Dim Xl
dim wk
Set Xl = WScript.CreateObject("EXCEL.application")
Xl.Visible = True
set Wk = Xl.workbooks.open("c:NONDUFICHIEREXCEL")
Xl.Run "NOMDELAMACRO"
wk.save
wk.close
xl.quit

D'avance merci pour votre aide.