Example

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")