vba - Excel 2007 VBA - Avaya CMS - SSH 破坏脚本

Question

规范

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 来提取数据。

提前致谢!

Answer 1

在亲自与 Avaya 交谈后，根本没有解决方案，我开始进一步解决它，以便我可以再次自动生成报告。如果您遇到了同样的问题，这是我达到的解决方案:

由于 SSH 阻止我们为 Avaya 创建进程，让我们先启动进程然后捕获这些创建的进程来绕过它。只需手动打开 Avaya(双击 Avaya CMS Supervisor 的图标)并使用您的凭据登录。成功登录后，最小化 Avaya。

现在我们要稍微改变一下脚本:

删除: Dim cvsConn As New ACSCN.cvsConnection
发件人:

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")

与:

Set cvsSrv = cvsApp.Servers(1)

我希望这对大家有所帮助。它应该通过允许您使用已打开的连接来解决问题，而不是让脚本在处理报告时在后台创建进程。如果您不忘记先打开 Avaya，那么一切都应该运行顺利。