Всем доброго времени!
По работе я часто сталкиваюсь с микротик routerboard, так как занимаюсь их настройкой и поддержкой в своем городе.
Сейчас я хочу поделиться способом простой замены пароля на беспроводную сеть роутеров этой фирмы.
Привожу листинг скрипта vbs:
Set WshShell = CreateObject("WScript.Shell")
Dim max,min,key,fso,tf
max=10000000
min=20000000
Randomize
key=(Int((max-min+1)*Rnd+min)) 'генерируем рандомный пароль
WScript.Sleep (1000)
WshShell.Run "telnet ip-routerboard" 'Телнетимся к роутеру
WScript.Sleep (500)
WshShell.Sendkeys "login" 'Авторизуемся: логин
WScript.Sleep (1000)
WshShell.Sendkeys "{enter}"
WshShell.Sendkeys "password" 'пароль
WshShell.Sendkeys "{enter}"
WScript.Sleep (500)
WshShell.Sendkeys "/interface wireless security-profiles edit profile1 wpa2-pre-shared-key" 'подключаемся к файлу паролей wpa2
WshShell.Sendkeys "{enter}"
WshShell.Sendkeys "^{k}" 'удаление лишней строки
WshShell.Sendkeys "^{k}"
WshShell.Sendkeys "{LEFT 20}" 'выбор старого пароля
WshShell.Sendkeys "{delete 10}" 'удаление старого пароля
WScript.Sleep (500)
WshShell.Sendkeys "{enter}" & key & "~" 'пишем сгенерированный пароль
WshShell.Sendkeys "^{o}" 'Сохраняем
WshShell.Sendkeys "/interface wireless security-profiles edit profile1 wpa-pre-shared-key" 'подключаемся к файлу паролей wpa
WshShell.Sendkeys "{enter}"
WshShell.Sendkeys "^{k}" 'удаление лишней строки
WshShell.Sendkeys "^{k}"
WshShell.Sendkeys "{LEFT 20}"'выбор старого пароля
WshShell.Sendkeys "{delete 10}" 'удаление старого пароля
WScript.Sleep (500)
WshShell.Sendkeys "{enter}" & key & "~" 'пишем сгенерированный пароль
WScript.Sleep (500)
WshShell.Sendkeys "^{o}" 'Сохраняем
WshShell.Sendkeys "{enter}"
WshShell.Sendkeys "quit"
WshShell.Sendkeys "{enter 2}"
WshShell.SendKeys("%{F4}")
WScript.Sleep (500)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("D:testnewpass.txt", True) 'Создаем текстовый файл
tf.Write(key) 'Пишем в него ключ
WScript.Sleep (500)
WshShell.Run "путь до текстового файла"
tf.close
В этих строках нужно profile1 заменить на ваш профиль безопасности.
WshShell.Sendkeys "/interface wireless security-profiles edit profile1 wpa-pre-shared-key" 'подключаемся к файлу паролей wpa
WshShell.Sendkeys "/interface wireless security-profiles edit profile1 wpa2-pre-shared-key" 'подключаемся к файлу паролей wpa2
В этих строках нужно profile1 заменить на ваш профиль безопасности,
По окончанию работы скрипт откроет текстовый файл с новым паролем.
Автор:
Романов-Кошкин-Захарьин-Голштейн-Готторпский
