Sub GetCmdEnviron()
' 通过 Environ 获取CMD环境变量值
Dim TempFolder As String
TempFolder = Environ("TEMP")
MsgBox "TEMP路径为:" & TempFolder
MsgBox "TMP路径为:" & Environ("TMP")
MsgBox "USERNAME为:" & Environ("USERNAME")
MsgBox "windir路径为:" & Environ("windir")
MsgBox "ProgramData路径为:" & Environ("ProgramData")
MsgBox "ProgramFiles路径为:" & Environ("ProgramFiles")
MsgBox "OS为:" & Environ("OS")
MsgBox "Path为:" & Environ("Path")
MsgBox "HOMEDRIVE路径为:" & Environ("HOMEDRIVE")
MsgBox "HOMEPATH路径为:" & Environ("HOMEPATH")
MsgBox "ALLUSERSPROFILE路径为:" & Environ("ALLUSERSPROFILE")
MsgBox "APPDATA路径为:" & Environ("APPDATA")
MsgBox "CommonProgramFiles路径为:" & Environ("CommonProgramFiles")
MsgBox "COMPUTERNAME路径为:" & Environ("COMPUTERNAME")
MsgBox "ComSpec路径为:" & Environ("ComSpec")
MsgBox "configsetroot路径为:" & Environ("configsetroot")
MsgBox "LOCALAPPDATA路径为:" & Environ("LOCALAPPDATA")
MsgBox "LOGONSERVER为:" & Environ("LOGONSERVER")
MsgBox "NUMBER_OF_PROCESSORS为:" & Environ("NUMBER_OF_PROCESSORS")
MsgBox "PATHEXT为:" & Environ("PATHEXT")
MsgBox "PowerMgrPath路径为:" & Environ("PowerMgrPath")
MsgBox "PROCESSOR_ARCHITECTURE为:" & Environ("PROCESSOR_ARCHITECTURE")
MsgBox "PROCESSOR_IDENTIFIER为:" & Environ("PROCESSOR_IDENTIFIER")
MsgBox "PROCESSOR_LEVEL为:" & Environ("PROCESSOR_LEVEL")
MsgBox "PROCESSOR_REVISION为:" & Environ("PROCESSOR_REVISION")
MsgBox "PSModulePath路径为:" & Environ("PSModulePath")
MsgBox "PUBLIC路径为:" & Environ("PUBLIC")
MsgBox "SESSIONNAME为:" & Environ("SESSIONNAME")
MsgBox "SystemDrive路径为:" & Environ("SystemDrive")
MsgBox "SystemRoot路径为:" & Environ("SystemRoot")
MsgBox "USERDOMAIN为:" & Environ("USERDOMAIN")
MsgBox "USERPROFILE路径为:" & Environ("USERPROFILE")
MsgBox "windows_tracing_flags为:" & Environ("windows_tracing_flags")
MsgBox "windows_tracing_logfile路径为:" & Environ("windows_tracing_logfile")
End Sub