Runas with Passthrough Credentials

email me

sPassword = InputBox(“Password”)’password could be here, but needs to be compiled if so
with CreateObject(“WScript.Shell”)
.Run “runas /user:domain\user \\unc\location\Install.bat”, 1, False
Do Until .AppActivate(“runas.exe”) : WSH.Sleep 100 : Loop
.Sendkeys sPassword& “~”
end with

* I have not tested this beyond the lab