VB 获取系统信息问题！

这个希望对你有帮助：
Attribute VB_Name = "操作系统信息模块"
Option Explicit

' 为进程声明 API 函数
Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" (ByRef lpVersionInformation _
As OSVERSIONINFO) As Long

'定义进程使用的常数
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2

'进程中自定义的结构变量
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
' Maintenance string for PSS usage
End Type
Public Sub WhatOS()
'********************************
'显示操作系统的版本信息
'
'**********************************
On Error GoTo Except

' 定义变量
Dim tOSVerInfo As OSVERSIONINFO, lRetVal As Long
Dim strWinVer As String, strBuildVer As String
Dim strOSName As String

Dim ConappName As String
ConappName = "当前应用系统提示？！" '定义信息框标题

tOSVerInfo.dwOSVersionInfoSize = Len(tOSVerInfo)
' 传递结构给进程
lRetVal = GetVersionEx(tOSVerInfo)
' 读取结构中的元素
strWinVer = tOSVerInfo.dwMajorVersion