Put together a VBScript for SetRes. Maybe someone else will find it useful.
Code:
intAnswer = _
Msgbox("Are You Connected To A Projector?", _
vbYesNo, "CHANGE RESOLUTION")
If intAnswer = vbYes Then
Msgbox"Changing Resolution to 1024x768"
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("C:\SetRes\SetRes.exe h1024 v768")
Else
Msgbox "Changing Resolution to 1280x800"
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("C:\SetRes\SetRes.exe h1280 v800")
End If