Авторизация через ветвление/циклы

@ErgoFrosty · Регистрация: 08.07.2017

Студворк — интернет-сервис помощи студентам

Добрый день!

Недавно столкнулся с проблемой авторизации скрипта на коммутаторы. Поскольку у меня есть 3 разных вида коммутаторов решил сделать не через дефолтные операторы if/else, а через select case т.к. позже добавятся другие модели, пользуюсь скриптом через SecureCRT. Честно, сам не спец в этом, поэтому прошу вашей помощи. Проблема выглядит следующим образом: на коммутатор заходит, но когда появляется строка типа login: никаких вводов нет, сразу срабатывает строка Case Else. Прошу помочь доработать, до ума.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub main()
    Call taccacs()
    id = crt.Dialog.Prompt(vbTab & vbTab & "Commutators" & _
        vbCrlf & "GW-BLABLA1"& vbTab & vbTab & "1" & _
        vbCrlf & "GW-BLABLA2"& vbTab & vbTab & "2" & _
        vbCrlf & "GW-BLABLA3"& vbTab & vbTab & "3" & _
        vbCrlf & _
        vbCrlf & vbCrlf,"Quick Auth", "1")
    Select Case id
        Case "1": ip="11.11.11.11"
        Case "2": ip="22.22.22.22"
        Case "3": ip="33.33.33.33"
 
        Case "": Exit Sub
    End Select
    If ip="" Then Exit Sub
    crt.Screen.Send vbCr
    
    
    crt.Screen.Synchronous = True
        crt.Screen.Send "telnet " & ip & VbCr
        Select Case crt.Screen.WaitForStrings("assword:", "login:", "user:", "pass:", ">>User name:", ">>User password:",w8)
        Case "1" 'login 1
            If crt.Screen.WaitForString("login:") Then
                crt.Screen.Send admin & vbCrLf
                pause=crt.Screen.WaitForString("assword:",w8)
                crt.Screen.Send admin & vbcr
            End If
 
        Case "2" 'login 2
            If crt.Screen.WaitForString ("user:") Then
                crt.Screen.Send "admin" & vbCr
                pause=crt.Screen.WaitForString("pass:",w8)
                crt.Screen.Send "1234" & vbCr
            End If
 
        Case "3" 'login 3
            If crt.Screen.WaitForString (">>User name:") Then
                crt.Screen.Send "root" & vbCr
                pause=crt.Screen.WaitForString(">>User password:",w8)
                crt.Screen.Send "admin" & vbCr
            End If
        Case Else crt.Dialog.MessageBox ("Oops")
        End Select
 
 
    
    If crt.Screen.WaitForStrings("GW-",2) Then
        name_ = crt.Screen.ReadString("#",">","%",3)
        name_ = Split(name_, vbCrLf)
        name = name_(UBound(name_))
        crt.window.caption = "GW-" & name
    End If
End Sub

@fever brain · 08.07.2017, 17:13

Сообщение от ErgoFrosty

но когда появляется строка типа login: никаких вводов нет

Не известно как работает этот класс: crt.Dialog наверное это какая-то dll или что там еще
если ты знаешь где она имеется у тебя на диске, то скопируй в архив и сбрось сюда (у меня то ее нет)

..посмотрим что там не работает

@ErgoFrosty · 08.07.2017, 17:47 **[ТС]**

Может я совсем ничего не понимаю, но зачем crt.Dialog? у меня проблема возникает после него, на 22 строке, т.к в этот момент идёт подключение и должна быть попытка авторизации на коммутатор. Но это попытки нет, запрос логина есть. Информацию пока предоставить не могу, но можно попробовать посмотреть здесь https://www.vandyke.com/suppor... index.html

@fever brain · 08.07.2017, 19:05

Сообщение от ErgoFrosty

можно попробовать посмотреть здесь

Понятно, скидывать ты ничего не хочеш, чтож досвидания

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@ErgoFrosty 0 / 0 / 0 Регистрация: 08.07.2017 Сообщений: 2
	08.07.2017, 17:47 [ТС]
	Может я совсем ничего не понимаю, но зачем crt.Dialog? у меня проблема возникает после него, на 22 строке, т.к в этот момент идёт подключение и должна быть попытка авторизации на коммутатор. Но это попытки нет, запрос логина есть. Информацию пока предоставить не могу, но можно попробовать посмотреть здесь https://www.vandyke.com/suppor... index.html 0