Dim wshShell
set wshShell = WScript.CreateObject("WScript.Shell")
if (wscript.Arguments.Count < 2) then
wscript.echo "Missing Domain User Password parameter."
wscript.quit
end if
‘wscript.echo "Opening Internet Explorer as " & wscript.Arguments(0) & "\" & wscript.Arguments(1)
wshShell.Run "cmd.exe /c ""title StartIE & runas.exe /user:" & wscript.Arguments(0) & "\" & wscript.Arguments(1) & " ""%ProgramFiles%\Internet Explorer\IEXPLORE.EXE"""""
wscript.Sleep(1000)
wshShell.AppActivate "StartIE"
wshShell.SendKeys wscript.Arguments(2) & "{ENTER}"
Save this script then create a shortcut with this as the target
C:\<path>\StartIEAsUser.vbs <domain> <user> <password>