<button onClick=WhatDepth()>Цветовая
палитра <script language="vbscript">
sub WhatDepth()
alert screen.colorDepth
end sub
</script>

<button onClick=SizeScreen()>Размеры экрана</button>
<script language="vbscript">
sub SizeScreen()
alert "Размеры экрана: "&screen.width&"x"&screen.height
end sub
</script>

<button onclick=IsJava()>Java</button>
<script language="vbscript">
sub IsJava()
alert navigator.javaEnabled
end sub
</script>

<button onclick=PauseSec()>HTML-часы</button>
<p id=mysample>Пример HTML-часов</p>
<script language="vbscript">
sub PauseSec()
ID = Window.setinterval("TimerFunc",1000,"vbscript")
end sub

sub TimerFunc()
mysample.innerText=time
end sub
</script>

<button onClick=HowMany()>Количество записей History</button>
<script language="vbscript">

sub HowMany()
'получаем число записей
alert history.length
end sub

</script>

<button onclick="getHost()">Host текущей страницы</button>
<script language="vbscript">
function getHost()
alert document.location.host
end function
</script>