Const UM_TBAR_EXE = "C:\Program Files\UltraMon\UltraMonTaskbar.exe"

Set sys = CreateObject("UltraMon.System")
If sys.NumActiveMonitors = 1 Then
	Set sh = CreateObject("WScript.Shell")
	sh.Run """" & UM_TBAR_EXE & """ /stop"
End If