'Запускаем командную строку
'
set oShell = CreateObject("WScript.Shell")
oShell.run "cmd.exe"
WScript.Sleep 1000
'
'Набираем телнет
'
oShell.SendKeys"telnet 10.20.2.251 5003"
oShell.SendKeys("{Enter}")
WScript.Sleep 2000
' Вводим пароль на станцию вместо 12345678 указать свой
oShell.SendKeys"12345678"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
' Бывает что станция тупит не сразу спрашивает пароль, на всякий случай пытаемся ввсести его ещё раз, вместо 12345678 указать свой
oShell.SendKeys"12345678"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
' Вввыодим пароль на вход в Maint (пароль brandy вроде как стандартный от производителя)
oShell.SendKeys"brandy"
oShell.SendKeys("{Enter}")
WScript.Sleep 3000
'
'Зашли, теперь говорим станции идти в ребут
'
oShell.SendKeys"reset 0"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000

;вписать сетевой адрес мини-АТС:
connect '192.168.100.1'
;вписать путь к лог-файлу -- на всякий случай проверять как все прошло...
logopen 'C:\ipldk.log' 1 1

getdate Currentdate
gettime Currenttime
; добавить в лог-файл информацию о текущей дате и времени
logwrite '================'#13#10
logwrite Currentdate
logwrite #13#10
logwrite Currenttime
logwrite #13#10'================'#13#10

; login
wait   'Press enter.'
sendln #13
wait   'ENTER PASSWORD:'
; вписать инженерный пароль обслуживания системы (для доступа к функциям maint)
sendln 'тут_пароль'
; auto login into maintenance mode complete.

wait   'maint>'
sendln 'reboot'
wait 'Password:'
; вписать административный пароль на доступ к настройкам мини-АТС
sendln 'тут_адм_пароль'
wait 'Retype password:'
sendln 'тут_тот_же_адм_пароль'

logwrite #13#10
logclose
disconnect
closett