Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[blue]Public Sub Demo()
Dim CPU As Object
Dim computer As String
computer = "."
For Each CPU In GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & computer & "\root\cimv2").InstancesOf("Win32_Processor")
Debug.Print CPU.deviceid, CPU.Loadpercentage & "%"
Next
End Sub[/blue]