UDF get_page_faults

[JRSmile]

ConsoleWrite(get_page_fault("firefox.exe"))

Func get_page_fault($sProcessName)
    Local $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
    Local $colProcesses = $objWMIService.ExecQuery("Select * from Win32_Process")
    Local $X[1][2]
    Local $i = 0
    For $objProcess In $colProcesses
        $i += 1
        ReDim $X[$i + 1][2]
        $X[0][0] = $i
        $X[$i][0] = $objProcess.Name
        $X[$i][1] = $objProcess.PageFaults
    Next
    $colProcesses = 0
    $objProcess = 0
    For $i = 1 To $X[0][0]
        If StringInStr($sProcessName, $X[$i][0]) Then Return $X[$i][1]
    Next
    Return 0
EndFunc  ;==>get_page_fault