スペック
Excel 2007、VBA、Avaya CMS Supervisor R16.2
約 2 年前、Avaya で行ったレポートを自動化するスクリプトをまとめました。うまく機能していますが、今週末、いくつかの奇妙な問題が発生し、IT から Avaya での接続を「ネットワーク」から「SSH」に切り替えるように言われました。IT 側は何も変更していませんでしたが、これは機能しているようで、奇妙に感じ始めたばかりであることに同意しただけでした。残念ながら、私のスクリプトは機能しなくなり、SSH で機能させる方法に困惑しています。
Dim cvsApp As New ACSUP.cvsApplication 'acsApp.exe
Dim cvsConn As New ACSCN.cvsConnection 'cvsconn.dll
Dim cvsSrv As New ACSUPSRV.cvsServer 'acsSRV.exe
Dim Rep As New ACSREP.cvsReport 'acsRep.exe
Dim Info As Object, Log As Object, b As Object
Dim InfoOB As Object, LogOB As Object, bOB As Object
cvsApp.CreateServer(UserName, "", "", serverAddress, False, "ENU", cvsSrv, cvsConn)
cvsConn.Login(UserName, passW, serverAddress, "ENU")
これは、Avaya にアクセスしてサーバーに接続するスクリプトの一部です。誰かがこれについて手がかりを持っている場合は、私と共有してください。繰り返しますが、「ネットワーク」(ポート 23) 接続では正常に機能し、「SSH」(ポート 22) では機能しなくなりました。
有用なエラーを生成するのではなく、スクリプトがハングするだけです。Excel では、「実行時エラー '9': 下付き文字が範囲外です」が返されます。これは、Avaya に接続してデータを取得できない場合に発生する基本的なエラーです。
前もって感謝します！