? 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