Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - [решено] Помощь со скриптом автологина

Ответить
Настройки темы
Любой язык - [решено] Помощь со скриптом автологина

Новый участник


Сообщения: 3
Благодарности: 0


Конфигурация

Профиль | Отправить PM | Цитировать


Изменения
Автор: Ugend
Дата: 28-10-2012
Изображения
Тип файла: png vbs.png
(8.2 Kb, 8 просмотров)
Тип файла: png psh.png
(26.9 Kb, 11 просмотров)
Всем привет!

Есть один скрипт на vbs, другой на powershell. Выполняют одну и ту же операцию.
Скрипты были найдены в интернете и немного подправлены под себя.
Суть скриптов заключается в том чтобы войти по адресу ввести логин/пароль и нажать логин.
Данный скрипт должен отрабатываться при входе пользователя в компьютер путем выполнения политики (GPO) "Сценарий входа".
Все работает отлично за одним исключением, скрипт полностью (на 100%) отрабатывается только, если вход осуществляется встроенной в домен учеткой Администратора или если просто зайти в компьютер локальным админом и выполнить скрипт вручную.
Если вход осуществляется обычным пользователем входящим только в группу "Пользователи домена", то скрипт открывает лишь заданный url и на этом все заканчивается. Если пользователя наделить аналогичными правами, что и у встроенного в домен админа, то скрипт отрабатывается, но не полностью, открывается url, происходит вход, но не запускается надстройка, необходимая для работы с сайтом. В любом случае меня данный расклад не устраивает, т.к. я не хочу наделять пользователей правами.

Прошу помочь в решении проблемы, либо может поможете в написании нового скрипта, который бы работал корректно. В написании скриптов я не силен.
Ошибки скриптов во вложении.

Коды скриптов:
VBS
читать дальше »
Код: Выделить весь код
Option Explicit

Const READYSTATE_COMPLETE = 4

Dim objIE
Dim objForm

Set objIE = WScript.CreateObject("InternetExplorer.Application")

With objIE
    '.Visible = False
    .Visible = True
    
    .Navigate "https://idp.folio.fabasoft.com/idp/Authn/UserPassword"
    
    ' Ждём…
    Do 
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    ' Заполняем форму #0
    Set objForm = .Document.forms(0)
    
    With objForm
        .elements("j_username").value = "login"
        .elements("j_password").value = "password"
        
        ' Отправляем форму на сервер
        .submit()
    End With
    
    ' Ждём…
    Do
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    'Тут прочие действия, для чего, собственно и затевались…
End With

Set objIE = Nothing

WScript.Quit 0


PowerShell
читать дальше »
Код: Выделить весь код
$url = "https://idp.folio.fabasoft.com/idp/Authn/UserPassword" 
$username="login" 
$password="password" 
$ie = New-Object -com internetexplorer.application; 
$ie.visible = $true; 
$ie.navigate($url);
$doc = $ie.document

$sw = @'
[DllImport("user32.dll")]
public static extern int ShowWindow(int hwnd, int nCmdShow);
'@

$type = Add-Type -Name ShowWindow2 -MemberDefinition $sw -Language CSharpVersion3 -Namespace Utils -PassThru
$type::ShowWindow($ie.hwnd, 3) # 3 = maximize

while ($ie.Busy -eq $true) 
{ 
    Start-Sleep -Milliseconds 1000; 
} 

$doc.getElementById("j_username").value = $username 
$doc.Document.getElementByID("j_password").value = $password 
$doc.Document.getElementById("submitpass").Click();


PS Использовать IE не обязательно, можно и Ghrome.
PPS Бился с проблемой дней пять, но безуспешно. Поэтому решил обратится за помощью.

Отправлено: 22:14, 28-10-2012

 

Пользователь


Сообщения: 114
Благодарности: 13

Профиль | Отправить PM | Цитировать


А почему с IE не работает? Должно бы работать.

Отправлено: 23:06, 01-09-2015 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 2204
Благодарности: 729

Профиль | Отправить PM | Цитировать


Цитата corbis:
А почему с IE не работает? Должно бы работать. »
Он настроен на работу с другими сайтами и настройки безопасности под них не дают залогится.

Отправлено: 23:24, 01-09-2015 | #12


Пользователь


Сообщения: 114
Благодарности: 13

Профиль | Отправить PM | Цитировать


поковыряйте настройки IE. Обязательно должно работать. Обычно создатели сайта инструкцию присылают какие настройки сделать, чтобы работало.

Отправлено: 12:03, 02-09-2015 | #13


Ветеран


Сообщения: 2204
Благодарности: 729

Профиль | Отправить PM | Цитировать


Цитата corbis:
поковыряйте настройки IE. Обязательно должно работать. »
Работает. Не смог понять, как определить значения "j_username", j_password страницы http://www.pgz.ako.kirov.ru/website/Menu/Page/170

Отправлено: 11:32, 10-09-2015 | #14


Ветеран


Сообщения: 1259
Благодарности: 861

Профиль | Отправить PM | Цитировать


to sov44:

Код: Выделить весь код
# Получаем Frame, который содержит форму для пароля и логина			
$frame = $ie.Document.Frames.Item(0).Document.Body
# Получаем элемент Login
$login = $frame.document.getElementById("frmLogin")
# Заполняем поле Пользователь
$login.Value = 12345678
# Получаем элемент Password
$pass = $frame.document.getElementById("frmPassword")
# Заполняем поле Пароль
$pass.Value = 12345678
# Нажать кнопку Вход
$frame.document.activeElement.Click()
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:59, 10-09-2015 | #15


Ветеран


Сообщения: 2204
Благодарности: 729

Профиль | Отправить PM | Цитировать


Основная задача - создать ярлык на рабочем столе для входа по логину и паролю на сайт.
Kazun, c PowerShell не работал, этот код нужно обернуть в скрипт (zk.ps1) и добавить как аргумент запуска странички в свойствах ярлыка ie?
Хотел добавить код в скрипт PowerShell шапки, но не понял, что куда. Сорри за ламерство с PowerShell.
Хотелось бы видеть код и на vbs

Отправлено: 13:28, 10-09-2015 | #16



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - [решено] Помощь со скриптом автологина

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
MSFT SQL Server - Помогите со скриптом e2site Программирование и базы данных 2 06-05-2009 02:34
Помогите со скриптом BigDim Microsoft Windows NT/2000/2003 2 04-07-2008 04:18
Помогите со скриптом msaus Вебмастеру 7 14-08-2006 17:57
помогите со скриптом slaine Вебмастеру 5 21-09-2005 22:33
Помогите со скриптом boneheap Вебмастеру 1 01-11-2004 22:20




 
Переход