computer preformance

im trying to find an easy way to find a few things about my computer like the current CPU and PF usage, and the used amount of disk space out of the total disk space i have.

this (http://vbnet.mvps.org/index.html?code/wmi/wmiprocessor.htm) may help.
could even get you started:

Private Sub Command1_Click()
Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject

Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Processor")

For Each cpu In cpuSet
Print "Processor name:" & cpu.Name
Print "Current running speed:" & cpu.CurrentClockSpeed
Print "Maxmimum running speed:" & cpu.MaxClockSpeed
Next cpu
End Sub


Also:
GetDiskFreeSpace