CPU使用率监测核心代码 
'------获取当前CPU使用率------ 
   strComputer = "." 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
    Set Colitems = objWMIService.ExecQuery( _ 
        "SELECT * FROM Win32_Processor", , 48) 
    msgbox "CPU使用率: " & objitem.LoadPercentage & "%" 
 
 

objitem在哪里定义??

上面的代码发错了
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set Colitems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_Processor", , 48)
    For Each objitem In Colitems
       msgbox "CPU: " & objitem.LoadPercentage & "%"
    Next