Excel 2007 VBA - Avaya CMS - SSH сломала скрипты

Question

функции

Excel 2007, VBA, Avaya CMS Supervisor R16.2

Около 2 лет назад я бросил вместе несколько сценариев для автоматизации отчетов, которые мы сделали в Авайе. Он отлично работает, но в этот уик-энд произошли некоторые странные проблемы, и ИТ сказал, что мы должны переключить наше соединение в Avaya с «Сети» на «SSH». ИТ не изменили ничего с их стороны, но просто сказали, что это похоже на работу, и что они согласились, что это странно, что это только начало происходить. К сожалению, мои скрипты больше не работают, и я не понимаю, как заставить его работать с 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.

Теперь мы хотим изменить до скриптах немного:

REMOVE: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, тогда все должно работать ровно.