เปิดหน้าต่าง Runas แบบกราฟิกจากสคริปต์ใน Windows XP

ลูกค้าของฉันไม่ต้องการทำ SHIFT + คลิกขวา> "Run as" บนสคริปต์

ดังนั้นฉันกำลังมองหาวิธีที่จะทำสิ่งเดียวกันจากสคริปต์ชุด

วิธีเปิดหน้าต่างนี้ใน Windows XP จากชุดสคริปต์?

ผู้ใช้จำเป็นต้องเปิดโปรแกรมเป็นผู้ใช้ภายในเครื่องรายอื่น

แก้ไข

ฉันพบวิธีแก้ปัญหาสำหรับ Windows 7 ที่นี่แต่มันไม่ทำงานบน XP ...

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 ออนไลน์