Const DISPLAY_PROFILE_DOCKED = ""
Const DISPLAY_PROFILE_UNDOCKED = ""
Const WALLPAPER_DOCKED = ""
Const WALLPAPER_UNDOCKED = ""

Const INSTALL_DIR = "%ProgramFiles%\UltraMon"

If DISPLAY_PROFILE_DOCKED = "" Or DISPLAY_PROFILE_UNDOCKED = "" Or WALLPAPER_DOCKED = "" Or WALLPAPER_UNDOCKED = "" Then
	MsgBox "Please set the display profiles and wallpapers in the script.",, WScript.ScriptName
	WScript.Quit
End If

Set util = CreateObject("UltraMon.Utility")
dispProfile = ""
wallpaper = ""
If util.Docked = True Then
	dispProfile = DISPLAY_PROFILE_DOCKED
	wallpaper = WALLPAPER_DOCKED
Else
	dispProfile = DISPLAY_PROFILE_UNDOCKED
	wallpaper = WALLPAPER_UNDOCKED
End If

Set sh = CreateObject("WScript.Shell")
sh.Run """" & INSTALL_DIR & "\UltraMonShortcuts.exe"" /l " & dispProfile,, True
sh.Run """" & INSTALL_DIR & "\UltraMonDesktop.exe"" /load " & wallpaper