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