'Get the set
    Set objProcSet = objService.InstancesOf(strWBEMClass)
        If blnErrorOccurred("Could not obtain " & _
                   strWBEMClass & " instance.") Then
        Exit Sub
    End If

    If objProcSet.Count = 0 Then
        Call WriteLine("No processor information is available.", objOutputFile)   
        Exit Sub
    End If

    Call WriteLine("Processor information for Machine " _
                  & strServer, objOutputFile)
    Call WriteLine("", objOutputFile)

    For Each objProc In objProcSet
        Call WriteLine("Name                = " & _
             objProc.Name, objOutputFile)
        Call WriteLine("Current Voltage     = " & _
             objProc.CurrentVoltage, objOutputFile)
        Call WriteLine("Device ID           = " & _
             objProc.DeviceID, objOutputFile)
        Call WriteLine("Status              = " & _
             objProc.CpuStatus, objOutputFile)
        Call WriteLine("Data Width          = " & _
             objProc.DataWidth, objOutputFile)
        Call WriteLine("Current Clock Speed = " & _
             objProc.CurrentClockSpeed, objOutputFile)
        Call WriteLine("L2 Cache Size       = " & _
             objProc.L2CacheSize, objOutputFile)
        Call WriteLine("Level               = " & _
             objProc.Level, objOutputFile)
        Call WriteLine("External Clock      = " & _
             objProc.ExtClock, objOutputFile)
        Call WriteLine("", objOutputFile)
    Next