Private Sub Form_Load()
　　'COMPUTERNAME 计算机名
　　'HOMEDRIVE 主驱动器
　　'HOMEPATH = 主目录
　　'NUMBER_OF_PROCESSORS 处理器数目
　　'OS 操作系统
　　'PROCESSOR_ARCHITECTURE 处理器架构
　　'PROCESSOR_IDENTIFIER 处理器型号
　　'ProgramFiles 程序目录
　　'SystemDrive 系统驱动器
　　'SystemRoot Windows目录
　　'TEMP 临时文件
　　'TMP 临时文件
　　'USERNAME 用户名
　　'USERPROFILE 用户目录
　　'windir Windows目录
　　MsgBox Environ("os")
End Sub