Узнать информацию о компьютере

Dim i As Byte
For i = 1 To 32
    If i < 32 Then
        Text1.Text = Text1.Text & Environ(i) & vbCrLf & vbCrLf
    Else
        Text1.Text = Text1.Text & Environ(i)
    End If
Next

Option Explicit
 
Private Declare Function GlobalMemoryStatusEx Lib "kernel32" (lpBuffer As Any) As Long
Private Declare Function VarBstrFromUI8 Lib "oleaut32" (ByVal ValueL As Long, ByVal ValueH As Long, ByVal LCID As Long, ByVal Flags As Long, ByVal Out As Long) As Long
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyW" (ByVal hKey As Long, ByVal lpSubKey As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExW" (ByVal hKey As Long, ByVal lpValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProc As Long, bWow64Process As Boolean) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
 
Private Const HKEY_LOCAL_MACHINE = &H80000002
 
Private Sub Form_Load()
    Debug.Print "RAM: "; RAMInfo
    Debug.Print "CPU: "; CPUInfo
    Debug.Print IIf(IsWin64, "x64", "x86")
End Sub
 
Private Function IsWin64() As Boolean
    IsWow64Process GetCurrentProcess, IsWin64
End Function
Private Function RAMInfo() As String
    Dim dat()   As Long
    Dim s1      As String
    Dim s2      As String
 
    ReDim dat(15): dat(0) = 64
    GlobalMemoryStatusEx dat(0)
    VarBstrFromUI8 dat(2), dat(3), GetUserDefaultLCID, 0, VarPtr(s1)
    VarBstrFromUI8 dat(4), dat(5), GetUserDefaultLCID, 0, VarPtr(s2)
    
    RAMInfo = s1 & "/" & s2 & " bytes"
End Function
 
Private Function CPUInfo() As String
    Dim hKey    As Long
    Dim index   As Long
    Dim CPUName As String
    Dim Size    As Long
    Dim Freq    As Long
    
    Do Until RegOpenKey(HKEY_LOCAL_MACHINE, StrPtr("HARDWARE\DESCRIPTION\System\CentralProcessor\" & CStr(index)), hKey)
        If index Then CPUInfo = CPUInfo & vbNewLine
        CPUInfo = CPUInfo & "Processor" & Str(index) & ":"
        If RegQueryValueEx(hKey, StrPtr("ProcessorNameString"), ByVal 0&, 0, ByVal 0&, Size) = 0 Then
            CPUName = Space(Size \ 2 - 1)
            RegQueryValueEx hKey, StrPtr("ProcessorNameString"), ByVal 0&, 0, ByVal StrPtr(CPUName), Size
            CPUInfo = CPUInfo & " " & CPUName
        End If
        If RegQueryValueEx(hKey, StrPtr("~MHz"), ByVal 0&, 0, Freq, Size) = 0 Then
            CPUInfo = CPUInfo & " " & Freq & " Mhz"
        End If
        RegCloseKey hKey
        index = index + 1
    Loop
End Function