Выполнить Скрипт от пользователя
 

Нашел скрипт который запускает указанную программу от указанного пользователя.
Вот он
=========================
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
=========================

но проблема в том что он запускает скрипт на удаленном компьюторе. А как его переделать чтобы он запускал программу от указанного пользователя на локальной машине?

Выполнить Скрипт от пользователя
 

Нашел скрипт который запускает указанную программу от указанного пользователя.
Вот он
=========================
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
=========================

но проблема в том что он запускает скрипт на удаленном компьюторе. А как его переделать чтобы он запускал программу от указанного пользователя на локальной машине?

yastreb_oren, вместо CompName - точка.
И в теме [решено] Запуск программ от имени другого пользователя.

runas

так чтоли
Res = objClass.Create("runas notepad.exe", Null, Null, PID)

ну потребуетcz ввода пароля

Лан поменял. Вот что получилось

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: Учетные данные пользователя не могут быть использованы для местных подключений

yastreb_oren, тогда читайте тему.