VBA获取CMD环境变量值

TOMaster.

于 2024-03-05 22:17:01 发布

阅读量144

点赞数 2

分类专栏： VBA技术文章标签： VBA获取系统变量

本文链接：https://blog.csdn.net/bigtoothcat/article/details/136491647

版权

VBA技术专栏收录该内容

12 篇文章 3 订阅

订阅专栏

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