Copy Paste Clip number :
 

Copy-Paste anything you want, then get it from anywhere.


Clip number :   SOR
Direct URL :   https://www.heypasteit.com/clip/SOR
Date :   2011-02-03 15:57:39 GMT
Download as file
<!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>
© 2020  HeyPasteIt.com  -  All rights reserved.