Option explicit
dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "runas /user:administrator ""CrossLoop.exe"""
WScript.Sleep 100
oShell.Sendkeys "password~"
Wscript.Quit
dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "runas /user:administrator ""CrossLoop.exe"""
WScript.Sleep 100
oShell.Sendkeys "password~"
Wscript.Quit
If I manually click the crossloop icon and do a RunAs from the user desktop everything works fine
Comment