『壹』 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