I cobbled together this script which sits on my desktop called ‘ssms.vbs’. The disadvantage is you need to hard-code your password into the script and keep it upto date.
set WshShell = WScript.CreateObject("WScript.Shell") 'build runas command WshShell.run "runas /user:DOMAINUSERNAME %comspec%" WScript.Sleep 100 WshShell.SendKeys "PASSWORD" 'send password WshShell.SendKeys "{ENTER}" WScript.Sleep 500 'Open SSMS WshShell.SendKeys Chr(34) + "C:Program FilesMicrosoft SQL Server100ToolsBinnVSShellCommon7IDEssms.exe" + Chr(34) WshShell.SendKeys "{ENTER}" 'Close command prompt WshShell.SendKeys "exit" WshShell.SendKeys "{ENTER}" WScript.Sleep 1000 set wshshell = nothing