<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>sysinfo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="MSThemeCompatible" content="Yes">
</head>
<body style="font:messagebox;">
<script language="VBScript" type="text/VBScript">
function cpustatus()
Set objWMIService = GetObject( "winmgmts://./root/cimv2" )
Set colItems = objWMIService.ExecQuery( "Select * from Win32_DisplayConfiguration", , 48 )
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", _
wbemFlagReturnImmediately wbemFlagForwardOnly)
For Each objItem In colItems
width = 100 - objItem.LoadPercentage
cpustatus = "<table width='100' height='10' cellspacing='1' cellpadding='1' bgcolor='black'><tr><td bgcolor='orange' class='border2'></td><td bgcolor='white' width='" & width & "'></td></tr></table>" & "CPU Utilization: " & objItem.LoadPercentage & "%"
Next
end function
function refresh()
document.all.upd.InnerHTML = cpustatus()
end function
function window_onload()
call setInterval("refresh()",1000)
end function
document.write "<SPAN id='upd'>" & cpustatus() & "</SPAN>"
</script>
</body>
</html>
|