『壹』 VBA获得软件版本号
'VB Environ系统环境变量函数大全：
PublicSubGet_Environ()
Debug.PrintEnviron("Windir")'c:windowsWindows目录
Debug.PrintEnviron("ProgramFiles")'c:ProgramFiles应用程序文件夹
Debug.PrintEnviron("UserProfile")'C:用户配置文件目录
Debug.PrintEnviron("ALLUSERSPROFILE")'局部返回所有“用户配置文件”的位置。
Debug.PrintEnviron("APPDATA")'局部返回默认情况下应用程序存储数据的位置。
Debug.PrintEnviron("COMPUTERNAME")'系统返回计算机的名称。
Debug.PrintEnviron("COMSPEC")'系统返回命令行解释器可执行程序的准确路径。
Debug.PrintEnviron("HOMEDRIVE")'系统返回连接到用户主目录的本地工作站驱动器号。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。
Debug.PrintEnviron("HOMEPATH")'系统返回用户主目录的完整路径。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。
Debug.PrintEnviron("NUMBER_OF_PROCESSORS")'系统指定安装在计算机上的处理器的数目。
Debug.PrintEnviron("OS")'系统返回操作系统的名称。Windows2000将操作系统显示为Windows_NT。
Debug.PrintEnviron("PATH")'系统指定可执行文件的搜索路径。
Debug.PrintEnviron("PATHEXT")'系统返回操作系统认为可执行的文件扩展名的列表。
Debug.PrintEnviron("PROCESSOR_ARCHITECTURE")'系统返回处理器的芯片体系结构。值:x86，IA64。
Debug.PrintEnviron("PROCESSOR_LEVEL")'系统返回计算机上安装的处理器的型号。
Debug.PrintEnviron("PROCESSOR_LEVEL")'系统返回处理器的版本号。
Debug.PrintEnviron("SYSTEMDRIVE")'系统返回包含WindowsXP根目录（即系统根目录）的驱动器。
Debug.PrintEnviron("SYSTEMROOT")'系统返回WindowsXP根目录的位置。
Debug.PrintEnviron("TEMP")'and%TMP")'系统和用户返回对当前登录用户可用的应用程序所使用的默认临时目录。有些应用程序需要TEMP，而其它应用程序则需要TMP。
Debug.PrintEnviron("USERDOMAIN")'局部返回包含用户帐户的域的名称。
Debug.PrintEnviron("USERNAME")'局部返回当前登录的用户的名称。
EndSub
『贰』 VB获取操作系统版本信息问题
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private 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
Private Sub Command1_Click()
Dim xx As OSVERSIONINFO
'在正式调用函数之前，必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小（148）
xx.dwOSVersionInfoSize = 148
GetVersionEx xx
Print xx.dwBuildNumber
Print xx.dwMajorVersion
Print xx.dwMinorVersion
Print xx.dwOSVersionInfoSize
Print xx.dwPlatformId
Print xx.szCSDVersion
End Sub