Copy Paste Clip number :
 

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


Clip number :   T2C
Direct URL :   https://www.heypasteit.com/clip/T2C
Date :   2011-02-11 16:11:36 GMT
Download as file
function cpustatus()

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", wbemFlagReturnImmediately   wbemFlagForwardOnly)
 

For Each objItem In colItems

cpuWidth = 100 - objItem.LoadPercentage
                               
cpustatus = "<table width='100' height='10' cellspacing='1' cellpadding='1' bgcolor='black'><tr><td bgcolor='#979D99' class='border2'></td><td bgcolor='white' width='" & cpuWidth & "'></td></tr></table>" & "CPU Utilization: " & objItem.LoadPercentage & "%"
Next                             

end function
© 2020  HeyPasteIt.com  -  All rights reserved.