Retrieving System Information

[mxnmx]

Hi! All,
I would like to retrive these things using VB, please help:
ComputerName
RAM
HDD
Processor
And the Operating System that is running...

Thanks!!!

[Michael_Kamen]

You can use the GetSystemInfo API to get some of the things you listed.
This is an example how to use it:

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
Private Sub Form_Load()
    Dim SInfo As SYSTEM_INFO
    'KPD-Team 1998
    'URL: [url]http://www.allapi.net/[/url]
    '[email protected]
    'Set the graphical mode to persistent
    Me.AutoRedraw = True
    'Get the system information
    GetSystemInfo SInfo
    'Print it to the form
    Me.Print "Number of procesor:" + str$(SInfo.dwNumberOrfProcessors)
    Me.Print "Processor:" + str$(SInfo.dwProcessorType)
    Me.Print "Low memory address:" + str$(SInfo.lpMinimumApplicationAddress)
    Me.Print "High memory address:" + str$(SInfo.lpMaximumApplicationAddress)
End Sub

It has more potential.....

[Pirate]

here is another way , very easy though

open new project then add form ------choose Frmabout form then run your project , click System Info button then you're done!

cheers

[Michael_Kamen]

That's possible too. But it gives you wayyyyy to much information if all he needs are just the 5 things he mentioned.

[Pirate]

so nice job Michael