Abra a janela gráfica de runas a partir do script no Windows XP

Question

Meus clientes não querem clicar com SHIFT + botão direito > "Executar como" em um script.

Então, estou procurando uma maneira de fazer exatamente o mesmo em um script em lote.

Como abrir esta janela no Windows XP a partir de um script em lote?

O usuário precisa iniciar o programa como outro usuário local.

EDITAR

Encontrei uma solução para o Windows 7aquimas não funciona no 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

Codificar um script

Decodificador de script on-line GreyMagic