Dim wshShell
Set wshShell = WScript.CreateObject(“WScript.Shell”)
If (wscript.Arguments.Count <  3 ) then
Wscript.echo “Missing Domain User Password parameter.”
Wscript.quit
End if
wshShell.Run "cmd.exe /c ""title StartOutlook & runas.exe /user: & wscipt.Arguments(0) & "\" & wscipt.Arguments(1) & " ""%ProgramFiles%\Microsoft Office\OFFICE14\EXCEL.EXE""""
wscript.Sleep( 1000 )
wshShell.AppActivate "StartOutlook"
wshShell.SendKeys wscript.Arguments( 2 ) & "{ENTER}"