Public Function getMachineName() As String
Dim reVal As String
reVal = Environ$("computername")
getMachineName = reVal
End Function
'현재 컴퓨터의 로그인 사용자를 반환한다.
g_UserName = Environ("USERNAME")
'현재 컴퓨터의 OS 를 반환하다.
g_OS = Environ("OS")
| envstring | 반환값 |
| ALLUSERSPROFILE | C:\ProgramData |
| APPDATA | C:\Users\home\AppData\Roaming |
| APR_ICONV_PATH | C:\AutoSet9\Server\bin\iconv\ |
| CARBON_MEM_DISABLE | 1 |
| CommonProgramFiles | C:\Program Files (x86)\Common Files |
| CommonProgramFiles(x86) | C:\Program Files (x86)\Common Files |
| CommonProgramW6432 | C:\Program Files\Common Files |
| COMPUTERNAME | HOME-PC |
| ComSpec | C:\Windows\system32\cmd.exe |
| FP_NO_HOST_CHECK | NO |
| HOMEDRIVE | C: |
| HOMEPATH | \Users\home |
| include | C:\Program Files (x86)\Microsoft Visual Studio\VC98\atl\include;C:\Program Files (x86)\Microsoft Visual Studio\VC98\mfc\include;C:\Program Files (x86)\Microsoft Visual Studio\VC98\include |
| lib | C:\Program Files (x86)\Microsoft Visual Studio\VC98\mfc\lib;C:\Program Files (x86)\Microsoft Visual Studio\VC98\lib |
| LOCALAPPDATA | C:\Users\home\AppData\Local |
| LOGONSERVER | \\HOME-PC |
| MSDevDir | C:\Program Files (x86)\Microsoft Visual Studio\Common\MSDev98 |
| NUMBER_OF_PROCESSORS | 4 |
| OS | Windows_NT |
| Path | C:\Program Files (x86)\Microsoft Office\OFFICE11\;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\AutoSet9\Server\conf\;C:\AutoSet9\Server\bin\;;C:\Program Files (x86)\NVIDIA Corporation\PhysX\Common;C:\Program Files (x86)\Windows Kits\8.1\Windows Performance Toolkit\;C:\Program Files\Microsoft SQL Server\110\Tools\Binn\;C:\Program Files (x86)\Microsoft SDKs\TypeScript\1.0\;C:\Program Files\Microsoft SQL Server\120\Tools\Binn\;C:\Program Files (x86)\Microsoft Visual Studio\Common\Tools\WinNT;C:\Program Files (x86)\Microsoft Visual Studio\Common\MSDev98\Bin;C:\Program Files (x86)\Microsoft Visual Studio\Common\Tools;C:\Program Files (x86)\Microsoft Visual Studio\VC98\bin;C:\Program Files (x86)\ESTsoft\ALSee\x64 |
| PATHEXT | .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC |
| PROCESSOR_ARCHITECTURE | x86 |
| PROCESSOR_ARCHITEW6432 | AMD64 |
| PROCESSOR_IDENTIFIER | Intel64 Family 6 Model 37 Stepping 5, GenuineIntel |
| PROCESSOR_LEVEL | 6 |
| PROCESSOR_REVISION | 2505 |
| ProgramData | C:\ProgramData |
| ProgramFiles | C:\Program Files (x86) |
| ProgramFiles(x86) | C:\Program Files (x86) |
| ProgramW6432 | C:\Program Files |
| PSModulePath | C:\Windows\system32\WindowsPowerShell\v1.0\Modules\ |
| PUBLIC | C:\Users\Public |
| SESSIONNAME | Console |
| SystemDrive | C: |
| SystemRoot | C:\Windows |
| TEMP | C:\Users\home\AppData\Local\Temp |
| TMP | C:\Users\home\AppData\Local\Temp |
| USERDOMAIN | home-PC |
| USERNAME | home |
| USERPROFILE | C:\Users\home |
| VS110COMNTOOLS | C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\Tools\ |
| VS120COMNTOOLS | C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\Tools\ |
| WecVersionForRosebud.1D08 | 3 |
| windir | C:\Windows |
| windows_tracing_flags | 3 |
| windows_tracing_logfile | C:\BVTBin\Tests\installpackage\csilogfile.log |
Environ 함수 예제
아래 예제에서는 Environ 함수를 사용하여 환경 문자열 표에서 입력 번호와 PATH 문의 길이를 지원합니다.
Dim EnvString, Indx, Msg, PathLen ' 변수를 선언합니다.
Indx = 1 ' 1로 인덱스를 초기화합니다.
Do
EnvString = Environ(Indx) ' 환경 변수를 읽어들입니다.
If Left(EnvString, 5) = "PATH=" Then ' PATH 항목을 확인합니다.
PathLen = Len(Environ("PATH")) ' 길이를 읽어들입니다.
Msg = "PATH entry = " & Indx & " and length = " & PathLen
Exit Do
Else
Indx = Indx + 1 ' PATH 항목이 아닙니다,
End If ' 증가.
Loop Until EnvString = ""
If PathLen > 0 Then
MsgBox Msg ' 메시지를 표시합니다.
Else
MsgBox "No PATH environment variable exists."
End If