Как вызвать метод IMsRdpClient5 :: GetErrorDescription из VBScript

Question

Я использую элемент управления RDP ActiveX на веб-странице для открытия подключений к удаленному рабочему столу. Вот код, который я использую, но он не работает, он застревает при вызове метода GetErrorDescription:

<script language="vbscript">

    sub MsRdpClient_OnDisconnected(disconnectCode)

      dim error_message

      extendedDiscReason = MsRdpClient.ExtendedDisconnectReason

      MsRdpClient.GetErrorDescription disconnectCode, extendedDiscReason, error_message

      MsgBox error_message, 0, "Error"

    end sub

</script>

Спасибо, Рафаэль

Answer 1

Я нашел ответ на форумах TechNet.

<script language="vbscript">

    sub MsRdpClient_OnDisconnected(disconnectCode)

      dim error_message

      extendedDiscReason = MsRdpClient.ExtendedDisconnectReason

      error_message = MsRdpClient.GetErrorDescription(disconnectCode, extendedDiscReason)

      MsgBox error_message, 0, "Error"

    end sub

</script>

Теперь мне нужно только знать, как писать обработчики событий MsRdpClient в javascript вместо vbscript.

Answer 2

Я думаю, что вы попали в это [1] ограничение. VBScript работает исключительно с вариантами, поэтому он не может принимать параметры более конкретных типов.

Поскольку вы не можете изменить элемент управления RDP ActiveX, мало что можно сделать, кроме написания тонкой оболочки C ++. Но это связано с другими головными болями ...

[1] http://support.microsoft.com/kb/197957