Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > Автоввод пароля


Автор: trinitr0 19.2.2014, 09:31
Здравствуйте!

Необходимо на всех компах в сети отключить службу Windows.
Для этого применяется такие в строки в скрипте:

Код

print netlogon "runas /user:DOMAIN\admin /noprofile \"net stop messenger\"\r\n";
print "123\r\n"


Но скрипт на машинах в сети выполняется, но автоввода пароля не происходит. Останавливается на строчке запроса ввода пароля.
Как решить проблему автоподстоновки пароля в данном случае? 
Кто знает, подскажите пожалуйста!

Автор: Ramirez 24.3.2014, 09:53
смею предположить, что машины в домене?
тогда задача ркшается другими способами (gpo, например).

в unix системах для взаимодействия с интрективными программами используется Expect, но с Active Perl он не работает, насколько мне известно.

Автор: trinitr0 31.3.2014, 09:45
Спасибо!

Решено  через DBD-WMI, функциями Win32 для работы с WMI

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)