请大家帮忙解决几个问题！与客户机环境有关！

Question

<script Language="JavaScript">
<!-- HIDE
function PrintString(par, val)
{
if ((val != null) && (val != ''))
document.writeln('<tr><td width="220" align="left">' + par + '</td><td align="left">' + val + "</td></tr>\n")
}document.writeln('<tr><td colspan="2" align="center"><b>JavaScript' + "</b></td></tr>\n")if (navigator.plugins) {
numPlugins = navigator.plugins.length
    strPlugins = '';
for (i = 0; i < numPlugins; i++) {
plugin = navigator.plugins[i]
        if (i) strPlugins = strPlugins + "<br>\n"
strPlugins = strPlugins + plugin.name + ' (' + plugin.description + ' - ' + plugin.filename.substring(plugin.filename.lastIndexOf("\\")+1,plugin.filename.length) + ')'
}
PrintString('Plugins', strPlugins)
}PrintString('CPU type', navigator.cpuClass)
if (screen.width && screen.height) PrintString('Screen size', screen.width + ' x ' + screen.height)
if (screen.width && screen.height) PrintString('Actual screen size', screen.availWidth + ' x ' + screen.availHeight)
PrintString('Screen Color Depth', screen.colorDepth)
PrintString('Pages visited in this window', history.length)
today = new Date()
PrintString('Date and time on your computer', today)
PrintString('Date in your locale format', today.toLocaleString())
//--></script><script language="VBScript"><!--
document.write "<tr><td colspan=2 align=center><b>VBScript</b></td></tr>"
PrintString "Screen size", (screen.width & " x " & screen.height)
PrintString "Viewable size", (document.body.clientWidth  & " x " & document.body.clientHeight)WM_activeXDetect strActX, "ShockWave Flash Plug-in", "ShockwaveFlash.ShockwaveFlash"
WM_activeXDetect strActX, "ShockWave Director Plug-in", "SWCtl.SWCtl.1"
WM_activeXDetect strActX, "ShockWave ActiveX Control Plug-in", "SWCtl.SWCtl.7"
WM_activeXDetect strActX, "Active Shockwave Plug-in", "Macromedia.ActiveShockwave.1"
WM_activeXDetect strActX, "Real Player Plug-in", "RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"
WM_activeXDetect strActX, "Real Player Plug-in", "rmocx.RealPlayer G2 Control"
WM_activeXDetect strActX, "Real Juke Box", "IERJCtl.IERJCtl.1"
WM_activeXDetect strActX, "Media Player", "MediaPlayer.MediaPlayer.1"
WM_activeXDetect strActX, "Adobe Acrobat Reader Plug-in", "PDF.PdfCtrl.1"
WM_activeXDetect strActX, "MS Agent 1.5", "Agent.Control.1"
WM_activeXDetect strActX, "MS Agent 2.0", "Agent.Control.2"
WM_activeXDetect strActX, "MS Animation Control", "ComCtl2.Animation.1"
WM_activeXDetect strActX, "MS DirectAnimation Control", "DirectAnimation.DirectAnimationIntegratedMediaControl.1"
WM_activeXDetect strActX, "Microsoft VRML 2.0 Viewer", "MSVRML2C.VRMLBrowserCtl.1"
PrintString "ActiveX installed", strActXFunction PrintString(byVal par, byVal val)
If (val <> "") Then
document.write "<tr><td width=""220"" align=""left"">" & par & "</td><td align=""left"">" & val & "</td></tr>"
End If
End FunctionFunction WM_activeXDetect(byRef str, byVal name, byVal activeXname)
  on error resume next
  If ScriptEngineMajorVersion >= 2 then
WM_activeXDetect = False
WM_activeXDetect = IsObject(CreateObject(activeXname))
If (err) then
  WM_activeXDetect = False
End If
  Else
WM_activeXDetect = False
  End if
  If WM_activeXDetect = True Then
     If (str <> "") Then
str = str & ", "
     End If
 str = str & name & " (" & activeXname & ")"
  End If 
  Return str
End Function
--></script>
找到一段现成的，