Exemple

DIM strPassWord dim SysObj as Object dim PSObj as Object set SysObj = CreateObject("ZIEWin.autSystem") set PSObj = CreateObject("ZIEWin.autPS") PSObj.SetConnectionByName("A") 'Prompt user for password strPassWord = SysObj.Inputnd() PSObj.SetText(strPasssWord) DIM XferObj as Object Set XferObj = CreateObject("ZIEWin.autECLXfer") ' Initialize the connection XferObj.SetConnectionByName("A")