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

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