Set IEwindow = ActivateIE(330, 70, "VBScript Příklad okna")

do while true
	show IEwindow, "Je právě " & Time & " hodin a dnes je " & Date & "."
	loop

function ActivateIE(width, height, title)
	set handle = CreateObject("InternetExplorer.Application")
	set ActivateIE = handle
	handle.height = height
	handle.width = width
	handle.MenuBar = vbFalse
	handle.navigate ("javascript:'<TITLE>" + title + "</TITLE>'")
	handle.StatusBar = vbFalse
	handle.ToolBar = vbFalse
	handle.visible = vbTrue
	do while handle.ReadyState <> 4
		loop
end function

sub show(obj, text)
	on error resume next
	obj.document.body.innerHTML = text
	if err <> 0 then Wscript.Quit
end sub