vbscript - VBScriptからIMsRdpClient5::GetErrorDescriptionメソッドを呼び出す方法

Question

WebページでRDPActiveXコントロールを使用して、リモートデスクトップ接続を開いています。これが私が使用しているコードですが、機能しません。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

あなたはこの[1]制限に達していると思います。VBScriptはVariantsでのみ機能するため、より具体的なタイプのパラメーターを受け入れることはできません。

RDP ActiveXコントロールは変更できないため、シンC++ラッパーを作成する以外にできることはほとんどありません。しかし、それは他の頭痛の種を伴います...

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

Answer 2

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>

これで、vbscriptではなくjavascriptでMsRdpClientイベントハンドラーを作成する方法を知る必要があるだけです。