'VB Environ系统环境变量函数大全：
Public Sub Get_Environ()
Debug.Print Environ("Windir") 'c:\windows Windows 目录
Debug.Print Environ("ProgramFiles") 'c:\ProgramFiles 应用程序文件夹
Debug.Print Environ("UserProfile") 'C:\Documents and Settings\Administrator 用户配置文件目录
Debug.Print Environ("ALLUSERSPROFILE") '局部 返回所有“用户配置文件”的位置。
Debug.Print Environ("APPDATA") '局部 返回默认情况下应用程序存储数据的位置。
Debug.Print Environ("COMPUTERNAME") '系统 返回计算机的名称。
Debug.Print Environ("COMSPEC") '系统 返回命令行解释器可执行程序的准确路径。
Debug.Print Environ("HOMEDRIVE") '系统 返回连接到用户主目录的本地工作站驱动器号。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。
Debug.Print Environ("HOMEPATH") '系统 返回用户主目录的完整路径。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。
Debug.Print Environ("NUMBER_OF_PROCESSORS") '系统 指定安装在计算机上的处理器的数目。
Debug.Print Environ("OS") '系统 返回操作系统的名称。Windows 2000 将操作系统显示为 Windows_NT。
Debug.Print Environ("PATH") '系统 指定可执行文件的搜索路径。
Debug.Print Environ("PATHEXT") '系统 返回操作系统认为可执行的文件扩展名的列表。
Debug.Print Environ("PROCESSOR_ARCHITECTURE") '系统 返回处理器的芯片体系结构。值: x86，IA64。
Debug.Print Environ("PROCESSOR_LEVEL") '系统 返回计算机上安装的处理器的型号。
Debug.Print Environ("PROCESSOR_LEVEL") '系统 返回处理器的版本号。
Debug.Print Environ("SYSTEMDRIVE") '系统 返回包含 Windows XP 根目录（即系统根目录）的驱动器。
Debug.Print Environ("SYSTEMROOT") '系统 返回 Windows XP 根目录的位置。
Debug.Print Environ("TEMP") 'and %TMP") '系统和用户 返回对当前登录用户可用的应用程序所使用的默认临时目录。有些应用程序需要 TEMP，而其它应用程序则需要 TMP。
Debug.Print Environ("USERDOMAIN") '局部 返回包含用户帐户的域的名称。
Debug.Print Environ("USERNAME") '局部 返回当前登录的用户的名称。
End Sub