Retrieving Serial Numbers

[James Stanich]

More from Hack :

Private Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type
 
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
 
Dim MS As MEMORYSTATUS
MS.dwLength = Len(MS)
GlobalMemoryStatus MS
MsgBox MS.dwMemoryLoad & " percentage memory used"
MsgBox MS.dwTotalPhys & " total amount of physical memory in bytes"
MsgBox MS.dwAvailPhys & " available physical memory"
MsgBox MS.dwTotalPageFile & " total amount of memory in the page file"
MsgBox MS.dwAvailPageFile & " available amount of memory in the page file"
MsgBox MS.dwTotalVirtual & " total amount of virtual memory"
MsgBox MS.dwAvailVirtual & " available virtual memory"
 
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Type SYSTEM_INFO
        dwOemID As Long
        dwPageSize As Long
        lpMinimumApplicationAddress As Long
        lpMaximumApplicationAddress As Long
        dwActiveProcessorMask As Long
        dwNumberOrfProcessors As Long
        dwProcessorType As Long
        dwAllocationGranularity As Long
        dwReserved As Long
End Type
 
Dim InfoResult As SYSTEM_INFO
GetSystemInfo InfoResult
MsgBox "Your CPU type is " & InfoResult.dwProcessorType
MsgBox "You have " & InfoResult.dwNumberOrfProcessors & " processor(s)"