Как открыть эмулятор AS400 с помощью Vbscript

Question

Я сделал приложение HTA, которое должно открыть эмулятор As400, но я не могу заставить его работать. Это мой код.

Sub TestSub()       
    Dim sessName,sessNo,userName,pass,filePath,i,aw

    sessName = document.getElementById("session").value
    sessNo = document.getElementById("sessno").value
    userName = document.getElementById("uname").value
    pass = document.getElementById("psw").value
    sessName = sessName&".WS"
    filePath = "C:\Users\Public\Documents\IBM\Client Access\Emulator\Private\"&sessName&".ws"       

    'sessNo = sessNo*1      
    'For i = 0 to sessNo            
        Set autECLConnMgr = CreateObject("PCOMM.autECLConnMgr")
        Set autECLConnList = CreateObject("PCOMM.autECLConnList")
        Set autECLOIA = CreateObject("PCOMM.autECLOIA")
        Set autECLPS = CreateObject("PCOMM.autECLPS")   
        Set autECLSession = CreateObject("PCOMM.autECLSession")     

            autECLConnList.Refresh()                        
            autECLConnMgr.StartConnection("PROFILE=filePath CONNNAME=A WINSTATE=RESTORE")
            autECLOIA.SetConnectionByName("A")
            autECLPS.SetConnectionByName("A")
            autECLOIA.WaitForAppAvailable()
            autECLOIA.WaitForInputReady()
    'Next 


    msgbox "Macro Finished!"
End Sub

Я даже не могу открыть эмулятор. Не знаю, что не так с моим кодом, так как я только начинающий в создании приложений HTA. Спасибо заранее !!

Это ошибка, которую я получаю при каждом запуске.