Как узнать частоту процессора на VB ???

[Vovik]

Помогите мне пожалуйста узнать кто-нибудь частоту процессора на VB6.
Заранее благодарен.....

[X-BOND]

Я помню, еще на QBasic-е делал одним очень извращенным способом проверку (с очень большими погрешностями) приблизительно так:

Const S as single 'подбирается опытным путем
Dim C as long
Dim SP as single
Dim M as single
SP = Timer + 1
Do:C = C + 1:Loop Until Timer >= SP
CPU_SPEED(ГРУБО) = С / S

Но это так, для примера. Реально нужно использовать АПИ либо смотреть в реестре. Пока не знаю как, если найду - напишу.

[gaidar]

Вроде эта ссылочка должна помочь.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_perfformatteddata_perfnet_serverworkqueues.asp