Const UM_TBAR_EXE = "%ProgramFiles%\UltraMon\UltraMonTaskbar.exe"

Set sh = CreateObject("WScript.Shell")
sh.Run """" & UM_TBAR_EXE & """ /stop",, True

Set wnd = CreateObject("UltraMon.Window")
For i = 1 To 20
	If wnd.Find("Realtime Soft UltraMon Taskbar Message Sink", "", 1, 0, 0) = False Then Exit For
	WScript.Sleep 1000
Next

WScript.Sleep 1000

sh.Run """" & UM_TBAR_EXE & """"