Does anyone know how the system resources is calculated?
Ie my system currently states I have 83% system resources available..
I'm playing around with a function to determine the load on the system...
So far I have this...hehe
Function GetHealthOfServer() As Long
Local vi As OSVERSIONINFO
Local m As MEMORYSTATUS
Local mPercent As Long
Local pPercent As Long
Local vPercent As Long
'Get version of windows
vi.dwOsVersionInfoSize = SizeOf(vi)
GetVersionEx vi
'Get memory information
GlobalMemoryStatus m
pPercent = (m.dwAvailPhys / m.dwTotalPhys) * 100 'How much Physical ram
vPercent = (m.dwAvailVirtual / m.dwTotalVirtual) * 100 'Virtual Ram
mPercent = m.dwMemoryLoad 'Memory load on system
End Function
-------------
Scott
mailto:[email protected][email protected]</A>
Ie my system currently states I have 83% system resources available..
I'm playing around with a function to determine the load on the system...
So far I have this...hehe
Function GetHealthOfServer() As Long
Local vi As OSVERSIONINFO
Local m As MEMORYSTATUS
Local mPercent As Long
Local pPercent As Long
Local vPercent As Long
'Get version of windows
vi.dwOsVersionInfoSize = SizeOf(vi)
GetVersionEx vi
'Get memory information
GlobalMemoryStatus m
pPercent = (m.dwAvailPhys / m.dwTotalPhys) * 100 'How much Physical ram
vPercent = (m.dwAvailVirtual / m.dwTotalVirtual) * 100 'Virtual Ram
mPercent = m.dwMemoryLoad 'Memory load on system
End Function
-------------
Scott
mailto:[email protected][email protected]</A>
Comment