Calling PDH.DLL

[DarkMatter]

I'm doing this just to get a better handle on Dll calling. I am having issues calling C:\windows\system32\pdh.dll.

I'm sure it has something to do with the variable types I am using in calling the functions but I am unsure. Does anyone have any exsperiance calling PDH.DLL?

Here is my code:

Dim $QueryHandle
Dim $Counter
Dim $lData
Dim $Percent = 0


Init()

While 1

    DllCall("pdh.dll", "int", "PdhCollectQueryData", "long", $QueryHandle)
    $Percent = DllCall("pdh.dll", "double", "PdhVbGetDoubleCounterValue", "long", $Counter, "long", $lData)
    ConsoleWrite($Percent[0] & @CRLF & $Percent[1] & @CRLF & $Percent[2] & @CRLF)
Wend

Func Init()
    DllCall("pdh.dll", "long", "PdhVbOpenQuery", "long", $QueryHandle)
    DllCall("pdh.dll", "long", "PdhVbAddCounter", "long", $QueryHandle, "str", "\Processor(0)\% Processor Time", "long", $Counter)
    DllCall("pdh.dll", "int", "PdhCollectQueryData", "long", $QueryHandle)
    DllCall("pdh.dll", "double", "PdhVbGetDoubleCounterValue", "long", $Counter, "long", $lData)
EndFunc

The odd thing is I am not getting any errors when I check @error but my return value on $Percent is always nothing.

Any ideas?