ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vbscript для запуска службы под другим пользователям
2 сообщений из 2, страница 1 из 1
vbscript для запуска службы под другим пользователям
    #37103173
mg_martini
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mg_martini
Гость
Всех приветствую!
Возникла вопрос, поэтому нужна консультация. Необходимо запустить службу(например Excel) под разными пользователями.
Сгенерированный скриптом файл в Visual 2005 прекрасно функционировал
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim wshShell
Set wshShell = WScript.CreateObject(“WScript.Shell”)
If (wscript.Arguments.Count <  3 ) then
Wscript.echo “Missing Domain User Password parameter.”
Wscript.quit
End if
wshShell.Run "cmd.exe /c ""title StartOutlook & runas.exe /user: & wscipt.Arguments(0) & "\" & wscipt.Arguments(1) & " ""%ProgramFiles%\Microsoft Office\OFFICE14\EXCEL.EXE""""
wscript.Sleep( 1000 )
wshShell.AppActivate "StartOutlook"
wshShell.SendKeys wscript.Arguments( 2 ) & "{ENTER}"
Однако в Visual 2010, после того как в сгенерированный файл в свойствах в области Target после C:\....\....\StartExcelAsUser.vbs указала Домен_Имя пользователя_Пароль и после запустила его вход не производится.
В чем моя ошибка?
...
Рейтинг: 0 / 0
07.02.2011, 21:21
| Ответить | Цитировать | Написать  
vbscript для запуска службы под другим пользователям
    #37103184
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
mg_martini,

а что пишет? в системном логе, например. Или посмотри что пишется в самом cmd, например добавив перехват вывода в файл следующим образом:
Код: plaintext
wshShell.Run "cmd.exe /c ""title StartOutlook & runas.exe /user: & wscipt.Arguments(0) & "\" & wscipt.Arguments(1) & " ""%ProgramFiles%\Microsoft Office\OFFICE14\EXCEL.EXE > c:\log.txt""""
...
Рейтинг: 0 / 0
07.02.2011, 21:29
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vbscript для запуска службы под другим пользователям
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]