codice:
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
Dim MemStatus As MEMORYSTATUS
GlobalMemoryStatus MemStatus
InstRAM = MemStatus.dwTotalPhys / 1048576
'Se invece si desidera avere informazioni su un hard disk si
'può chiamare la funzione GetDiskFreeSpace delle API nel
'seguente modo :
Dim SectorXCluster as Long
Dim ByteXSector As Long
Dim FreeCluster As Long
Dim TotalCluster As Long
Dim FreeSpace As Long
GetDiskFreeSpace "C:" SectorXCluster, ByteXSector, _
    FreeCluster, TotalCluster
'Lo spazio libero in MB è dato dalla formula :
FreeSpace = (FreeCluster * SectorXCluster * ByteXSector) / 1048576
'Ulteriori caratteristiche su un hard disk si possono avare
'chiamando la funzione GetVolumeInformation delle API.
'Si possono ricavare il nome del volume, il numero seriale,
'la massima lunghezza per un nome di file, il tipo di file
'system e il nome del file system :
Dim volName As String
Dim volSerialNumber As Long
Dim volMaxName As Long
Dim volFlag As Long
Dim volSysName As String
volName = String(200, 0)
volSysName = String(200, 0)
GetVolumeInformation "c:\", volName, Len(volName), _
    volSerialNumber, volMaxName, volFlag, volSysName, _
    Len(volSysName)
'Richiamando la funzione GetDriveType delle API si possono
'avere informazioni sul tipo di unità (disco rigido, floppy,
'disco remoto, disco RAM o CD-ROM):
Dim t As Long
t = GetDriveType("C:\")
MsgBox "Drive C: Type " & Choose(t + 1, "Unknow", "Invalid", _
    "Floppy", "Hard-Disk", "Network", "CD-ROM","RAM Disk")
'La funzione delle API per ricavare le caratteristiche del
'proprio computer si chiama GetSystemInfo che ritorna il
'risultato attraverso i campi della struttura SYSTEM_INFO
'indicando :
'* il tipo di processore (dwProcessorType)
'* la sua architettura (dwProcessoreArchittetture)
'* la dimensione di una pagina (dwPageSize)
'* il numero di processori (dwNumberOfProcessors)
'Per ricavare la versione del sistema operativo su cui gira la
'nostra applicazione si chiama GetVersionEx delle API che
'richiede la struttura OSVERSIONINFO e in cui sono memorizzate
'informazioni come la versione minore (minor) e la versione
'maggiore (major) ed il tipo di piattaforma (Win32s, Win95 e
'Win NT).
'Se si desidera conoscere il nome assegnato al computer in fase
'di installazione è sufficiente scrivere :
Dim cpNome As String
cpNome = String(100,0)
GetComputerName cpNome, Len(cpNome)
direi che possono bastare che dici?