有个项目需要用到Windows的用户登陆名来进行相关处理，这样就需要用到Environ函数（帮助文档）：

Environ("USERNAME")

一句代码即可读取到用户登陆名。

写一个函数来循环Environ，使我们知道，通过Environ可以从Windwos中获取到哪些信息：

Public Function GetAllEnviron()
    Dim intI As Integer
    intI = 1
    Do Until Nz(Environ(intI), "") = ""
        Debug.Print intI & ":" & Environ(intI)
        intI = intI + 1
    Loop
End Function

调用GetAllEnviron即可在立即窗体显示出所有信息：