Открыть графическое окно runas из скрипта на Windows XP

Question

Мои клиенты не хотят делать SHIFT+ правый клик> "Запуск от имени" в сценарии.

Поэтому я ищу способ сделать то же самое из пакетного сценария.

Как открыть это окно в Windows XP из пакетного скрипта?

Пользователь должен запустить программу как другой локальный пользователь.

РЕДАКТИРОВАТЬ

Я нашел решение для Windows 7 здесь, но оно не работает на XP ...

Answer 1

CredTask.vbs:

On Error Resume Next

strComputer = "." 'local computer
strUserName = "Domain\User" 'user name
strPassword = "Password" 'user password

strCommandLine="calc.exe"

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objServices = objSWbemLocator.ConnectServer(strComputer, "root\CIMV2", strUserName, strPassword, 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(strCommandLine, Null, Null, PID)
If Res <> 0 Then
    WScript.Echo "Error ru application code: " & Res
End If

Кодировать скрипт

GreyMagic Online Script Decoder