? Environ("COMPUTERNAME")

? Environ("USERNAME")

? Environ("USERPROFILE")

? Environ("OS")

? Environ("windir")

? Environ("PROCESSOR_ARCHITECTURE")

'### 컴퓨터 환경 변수 읽어오기

Sub GETCOMPUTERINFO()

    Dim rTarget As Range: Set rTarget = Sheets.Add.Range("B5")

    Dim i As Integer

    For i = 1 To 100

        rTarget.Offset(i).Value2 = Environ(i)

        If Environ(i) = "" Then Exit For

    Next i

End Sub

ALLUSERSPROFILE               C:\ProgramData

CLASSPATH                     .;C:\Program Files\QuickTime\QTSystem\QTJava.zip

CommonProgramFiles            C:\Program Files\Common Files

COMPUTERNAME                  ADMINABYUL-PC

ComSpec                       C:\Windows\system32\cmd.exe

FP_NO_HOST_CHECK              NO

HOMEDRIVE                     C:

HOMEPATH                      \Users\adminABYUL

IFRSEditor                    C:\DART\Bin\IFRSEditor.exe

LOGONSERVER                   \\ADMINABYUL-PC

NUMBER_OF_PROCESSORS          8

OS                            Windows_NT

Path                          C:\Windows\system32;C:\Windows;

PATHEXT                       .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC

PROCESSOR_ARCHITECTURE        x86

PROCESSOR_IDENTIFIER          x86 Family 6 Model 60 Stepping 3, GenuineIntel

PROCESSOR_LEVEL               6

PROCESSOR_REVISION            3c03

ProgramData                   C:\ProgramData

ProgramFiles                  C:\Program Files

PSModulePath                  C:\Windows\system32\WindowsPowerShell\v1.0\Modules\

PUBLIC                        C:\Users\Public

QTJAVA                        C:\Program Files\QuickTime\QTSystem\QTJava.zip

SESSIONNAME                   Console

SystemDrive                   C:

SystemRoot                    C:\Windows

TEMP                          C:\Users\ADMINK~1\AppData\Local\Temp

TMP                           C:\Users\ADMINK~1\AppData\Local\Temp

USERDOMAIN                    adminABYUL-PC

USERNAME                      adminABYUL

USERPROFILE                   C:\Users\adminABYUL

windir                        C:\Windows