Все удалось оживить скрипт, пароль на устройстве изменился!
Код:
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate "http://admin:password@10.37.167.114/chgpassw.htm"
While objIE.Busy
WScript.Sleep 200
Wend
Set objForm = objIE.Document.forms("frm")
objForm.elements("user_no").value = "130"
objForm.submit()
WScript.Sleep 600
Set objForm = objIE.Document.forms("frm")
objForm.elements("oldpassw").value = "password"
objForm.elements("newpassw1").value = "Passwordnew"
objForm.elements("newpassw2").value = "Passwordnew"
objIE.Visible = True
Помогите заставить этот скрипт брать логин, пароль, IP из файла для заполнения данной формы
Код:
objIE.Navigate "http://admin:password@10.37.167.114/chgpassw.htm"
и пароли для заполнения этих форм:
Код:
objForm.elements("oldpassw").value = "password"
objForm.elements("newpassw1").value = "Passwordnew"
objForm.elements("newpassw2").value = "Passwordnew"
А так же обработать ошибку, типа если не удалось подключится к IP из за того что не подошел стандартный пароль, забить на него и перейти к следующему устройству.
