Vista - webpage scan client programs

We're trying implement a script on our web site that retreives the
Java Runtime version and redirects the user based on the version
number. I've made a script that works as a vbs. However, when I try
to implement it as a webpage, the script stops without showing any
error.

I realize that there might be a security issue here, but would think
that the visitor could click through the yellow bar.

Is there anything I can do to get the html page to work?

vbs script

strProd = "Java(TM) 6"
strQry = "SELECT Version FROM Win32_Product WHERE Name LIKE '%" &
strProd & "%'"

Set objWMIService = GetObject( "winmgmts://./root/CIMV2" )
'Set colItems = objWMIService.ExecQuery( strQry, "WQL", 48 )
Set colItems = objWMIService.ExecQuery( strQry)

For Each objItem In colItems
txt = txt & "Name: " & objitem.name & vbcrlf & "Version: " &
objItem.Version &_
vbcrlf & vbcrlf
Next

msgbox txt

..
..
..

html page


<script language="vbscript">
strProd = "Java(TM) 6"
strQry = "SELECT Version FROM Win32_Product WHERE Name LIKE '%" &
strProd & "%'"
document.write("start <br>")


Set objWMIService = GetObject( "winmgmts://./root/CIMV2" )
'Set colItems = objWMIService.ExecQuery( strQry, "WQL", 48 )

Set colItems = objWMIService.ExecQuery( strQry)

'for each objitem in GetObject( "winmgmts://localhost").Instancesof
("Win32_Product")

For Each objItem In colItems
txt = txt & "Name: " & objitem.name & vbcrlf & "Version: " &
objItem.Version &_
vbcrlf & vbcrlf
Next

document.write(txt)
document.write("end")
'msgbox txt
</script>