特定のプロセスCPU稼働率取得について

#module GetCPUPer

#uselib "pdh.dll"
#func PdhOpenQuery "PdhOpenQuery" int,int,var
#func PdhAddCounter "PdhAddCounterA" int,var,int,var
#func PdhCollectQueryData "PdhCollectQueryData" int
#func PdhGetFormattedCounterValue "PdhGetFormattedCounterValue" int,int,int,var
#func PdhCloseQuery "PdhCloseQuery" int
#func PdhBrowseCounters "PdhBrowseCountersA" var

#define 	PDH_FMT_DOUBLE		0x200

#defcfunc GetPerCPU int time
	dim FmtValue,4 : cpu = 0f
	PdhOpenQuery 0, 0, hQuery
	s="\\Process(test.exe)\\% Processor Time"
	PdhAddCounter hQuery, s, 0, hCounter
	PdhCollectQueryData hQuery
	await time
	PdhCollectQueryData hQuery
	PdhGetFormattedCounterValue hCounter, PDH_FMT_DOUBLE, NULL, FmtValue
	dupptr cpu,varptr(FmtValue)+8,8,3
	PdhCloseQuery hQuery
return cpu
#global
/* end of GetCPUPer ----------------------------------------------------------- */

#define		WM_LBUTTONDOWN		0x0201
#define		WM_RBUTTONDOWN		0x0204
#define		WM_NCLBUTTONDOWN	0x00A1
#define		HTCAPTION		2

	bgscr 0,104,20 : gsel 0,2
	oncmd gosub *LBUTTONDOWN,WM_LBUTTONDOWN
	oncmd *RBUTTONDOWN,WM_RBUTTONDOWN
	//dim PDH_BROWSE_DLG_CONFIG,10
	//PdhBrowseCounters PDH_BROWSE_DLG_CONFIG
	font "",12
	repeat
       	redraw 0
		time = GetPerCPU(1000)
		color : boxf
		color 0,0,255 : boxf 2,2,time,16
		color 255,255,255: pos 3,3: mes strf("%7.2f %%",time)
		redraw 1
	loop

//マウス左ドラッグでウィンドウを移動
*LBUTTONDOWN
	sendmsg hwnd,WM_NCLBUTTONDOWN,HTCAPTION,0
return

//右クリックで終了
*RBUTTONDOWN
end

下の質問に同じのがありますが、
私も気になり少し試してみた。

test.exeというCPUを取得したいのですが　これだとずっと0%です。
書き方を間違えているのでしょうか？

HSPTV!掲示板