vbscript 转javascript，小弟谢谢了

<SCRIPT ID="clientdoscheckVBS" LANGUAGE="vbscript">
        Sub dogcheck_onclick
            On Error resume next
            dim aObject,DevicePath
            set aObject = CreateObject("Syunew3A.s_simnew3")
            DevicePath = aObject.FindPort(0)
            if aObject.LastError <> 0 then
                msgbox "未找到，再进行登录!"
                exit sub
            end if
            form1.lockbhText.value = aObject.YReadString(0, 11, "ffffffff", "ffffffff", devicepath)
            If aObject.LastError <> 0 Then
                MsgBox "读错误!"
                Exit Sub
            end if
            MsgBox "读成功!"
           
        end sub
    </SCRIPT>

---

另外，js是严格区分大