Const ULTRAMON_DIR = "C:\Program Files\UltraMon"
Const PROFILE_DIR = "C:\Documents and Settings\Christian\Application Data\Realtime Soft\UltraMon\Profiles"
Const PROFILE = "Default"

Const POS_ICONS = 2
Set sh = CreateObject("WScript.Shell")
sh.Run """" & ULTRAMON_DIR & "\UltraMonShortcuts.exe"" /l " & PROFILE_DIR & "\" & PROFILE & ".umprofile",, True
Set sys = CreateObject("UltraMon.System")
sys.RestorePositions POS_ICONS