<html>
<head>
<script language=vbscript>
<!--
sub window_onLoad()
dim wsh
set wsh=createobject("wscript.shell")
sreg=wsh.regread("HKLM\Software\Microsoft\Windows Script Host\Settings\ActiveDebugging")
msgbox "Setting for ActiveDebugging = " & sreg
set wsh=nothing
end sub
'-->
</script>
</head>
<body>
</body>
</html>