|
Компьютерный форум OSzone.net » Клиентские ОС Microsoft » Microsoft Windows 2000/XP » Доступ - Выполнить Скрипт от пользователя |
|
Доступ - Выполнить Скрипт от пользователя
|
Новый участник Сообщения: 37 |
Нашел скрипт который запускает указанную программу от указанного пользователя.
Вот он ========================= On Error Resume Next Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") CompName = "CompName" 'имя компьютера UserName = "Domain\User" 'имя пользователя Pass = "Pass" 'пароль пользователя Set objServices = objSWbemLocator.ConnectServer(CompName, "root\CIMV2", UserName, Pass, Null, Null, 0) If Err.Number <> 0 Then WScript.Echo Err.Number & ": " & Err.Description WScript.Quit End If Set objClass = objServices.Get("Win32_Process") Res = objClass.Create("notepad.exe", Null, Null, PID) If Res <> 0 Then WScript.Echo "Код ошибки: " & Res End If ========================= но проблема в том что он запускает скрипт на удаленном компьюторе. А как его переделать чтобы он запускал программу от указанного пользователя на локальной машине? |
|
Отправлено: 21:09, 18-04-2008 |
Новый участник Сообщения: 37
|
Профиль | Отправить PM | Цитировать Нашел скрипт который запускает указанную программу от указанного пользователя.
Вот он ========================= On Error Resume Next Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") CompName = "CompName" 'имя компьютера UserName = "Domain\User" 'имя пользователя Pass = "Pass" 'пароль пользователя Set objServices = objSWbemLocator.ConnectServer(CompName, "root\CIMV2", UserName, Pass, Null, Null, 0) If Err.Number <> 0 Then WScript.Echo Err.Number & ": " & Err.Description WScript.Quit End If Set objClass = objServices.Get("Win32_Process") Res = objClass.Create("notepad.exe", Null, Null, PID) If Res <> 0 Then WScript.Echo "Код ошибки: " & Res End If ========================= но проблема в том что он запускает скрипт на удаленном компьюторе. А как его переделать чтобы он запускал программу от указанного пользователя на локальной машине? |
Отправлено: 09:36, 19-04-2008 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Сообщения: 53356
|
Профиль | Отправить PM | Цитировать yastreb_oren, вместо CompName - точка.
И в теме [решено] Запуск программ от имени другого пользователя. |
Отправлено: 09:42, 19-04-2008 | #3 |
Ветеран Сообщения: 4904
|
Профиль | Сайт | Отправить PM | Цитировать runas
|
------- Отправлено: 09:59, 19-04-2008 | #4 |
Новый участник Сообщения: 37
|
Профиль | Отправить PM | Цитировать так чтоли
Res = objClass.Create("runas notepad.exe", Null, Null, PID) ну потребуетcz ввода пароля |
|
Отправлено: 10:57, 19-04-2008 | #5 |
Новый участник Сообщения: 37
|
Профиль | Отправить PM | Цитировать Лан поменял. Вот что получилось
On Error Resume Next Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") CompName = "." 'имя компьютера UserName = "Administrator" 'имя пользователя Pass = "microsoft" 'пароль пользователя Set objServices = objSWbemLocator.ConnectServer(CompName, "root\CIMV2", UserName, Pass, Null, Null, 0) If Err.Number <> 0 Then WScript.Echo Err.Number & ": " & Err.Description WScript.Quit End If Set objClass = objServices.Get("Win32_Process") Res = objClass.Create("notepad.exe", Null, Null, PID) If Res <> 0 Then WScript.Echo "Код ошибки: " & Res End If А вот что выдает -2147217308: Учетные данные пользователя не могут быть использованы для местных подключений |
Отправлено: 11:07, 19-04-2008 | #6 |
Сообщения: 53356
|
Профиль | Отправить PM | Цитировать yastreb_oren, тогда читайте тему.
|
Отправлено: 11:14, 19-04-2008 | #7 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - [решено] выполнить скрипт на удалённой машине | Dijio | Microsoft Windows 2000/XP | 2 | 01-07-2009 16:44 | |
2008 - Скрипт при ПЕРВОМ входе пользователя домена | tojlst9lk | Windows Server 2008/2008 R2 | 1 | 17-03-2009 04:43 | |
VBS/WHS/JS - как запустить скрипт от имени другого пользователя? | pva | Программирование и базы данных | 2 | 07-03-2008 12:45 | |
Скрипт по редактированию профиля пользователя. | GreenIce | Microsoft Windows NT/2000/2003 | 0 | 29-05-2007 14:01 | |
Скрипт для проверки пользователя ($) | Mike-os | Вебмастеру | 7 | 25-11-2005 18:27 |
|