*取得系统变量的最简单方法（Environ 函数）

Environ 函数

返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数：

部分 描述
envstring 可选参数。包含一个环境变量名的字符串表达式。
number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。

说明

如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。

如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串。

参数对照：（在本机测试结果如下）

number envstring
1 ALLUSERSPROFILE
2 APPDATA
3 CLIENTNAME
4 CommonProgramFiles
5 COMPUTERNAME
6 ComSpec
7 FP_NO_HOST_CHECK
8 HOMEDRIVE
9 HOMEPATH
10 LOGONSERVER
11 NUMBER_OF_PROCESSORS
12 OS
13 Path
14 PATHEXT
15 PROCESSOR_ARCHITECTURE
16 PROCESSOR_IDENTIFIER
17 PROCESSOR_LEVEL
18 PROCESSOR_REVISION
19 ProgramFiles
20 SESSIONNAME
21 SystemDrive
22 SystemRoot
23 TEMP
24 TMP
25 USERDOMAIN
26 USERNAME
27 USERPROFILE
28 windir

 

============================================================================

For i = 1 To 28
    Debug.Print Environ(i)
Next i

1 ALLUSERSPROFILE=C:\Documents and Settings\All Users
2 APPDATA=C:\Documents and Settings\Tnss\Application Data
3 CLIENTNAME=Console
4 CommonProgramFiles=C:\Program Files\Common Files
5 COMPUTERNAME=TNS
6 ComSpec=C:\WINDOWS\system32\cmd.exe
7 FP_NO_HOST_CHECK=NO
8 HOMEDRIVE=C:
9 HOMEPATH=\Documents and Settings\Tnss
10 LOGONSERVER=\\TNS
11 NUMBER_OF_PROCESSORS=1
12 OS=Windows_NT
13 Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem
14 PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
15 PROCESSOR_ARCHITECTURE=x86
16 PROCESSOR_IDENTIFIER=x86 Family 15 Model 1 Stepping 2, GenuineIntel
17 PROCESSOR_LEVEL=15
18 PROCESSOR_REVISION=0102
19 ProgramFiles=C:\Program Files
20 SESSIONNAME=Console
21 SystemDrive=C:
22 SystemRoot=C:\WINDOWS
23 TEMP=C:\DOCUME~1\Tnss\LOCALS~1\Temp
24 TMP=C:\DOCUME~1\Tnss\LOCALS~1\Temp
25 USERDOMAIN=TNS
26 USERNAME=Tnss
27 USERPROFILE=C:\Documents and Settings\Tnss
28 windir=C:\WINDOWS