| OSの環境変数に関連付けられた文字列を取得（2個） (SNo.073) １．環境変数に関連付けられた文字列を取得（その１） ２．環境変数に関連付けられた文字列を取得（その２） |
|
| 使用コントロール | Button1 Button2 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．環境変数に関連付けられた文字列を取得（その１）
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'Environ 関数 名前空間 : Microsoft.VisualBasic モジュール: Interaction 'オペレーティング システムの環境変数に関連付けられた文字列を返します。 Dim i As Integer For i = 1 To 35 Console.WriteLine("{0:000} {1}", i, Interaction.Environ(i)) Next '個別に取得するには Console.WriteLine(Interaction.Environ("COMPUTERNAME")) '結果 TOSHIBA Console.WriteLine(Interaction.Environ(5)) '結果 COMPUTERNAME = TOSHIBA End Sub 上記での取得結果（私の環境での）
(UserName はそれぞれのユーザー名になります） 001 ALLUSERSPROFILE=C:\Documents and Settings\All Users 002 APPDATA=C:\Documents and Settings\username\Application Data 003 CLIENTNAME=Console 004 CommonProgramFiles=C:\Program Files\Common Files 005 COMPUTERNAME=SOTEC 006 ComSpec=C:\WINDOWS\system32\cmd.exe 007 Cor_Debugging_Control_424242=1 008 HOMEDRIVE=C: 009 HOMEPATH=\Documents and Settings\username 010 INCLUDE=C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\include\ 011 LIB=C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Lib\ 012 LOGONSERVER=\\SOTEC 013 NUMBER_OF_PROCESSORS=1 014 OS=Windows_NT 015 Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem 016 PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH 017 PROCESSOR_ARCHITECTURE=x86 018 PROCESSOR_IDENTIFIER=x86 Family 15 Model 1 Stepping 2, GenuineIntel 019 PROCESSOR_LEVEL=15 020 PROCESSOR_REVISION=0102 021 ProgramFiles=C:\Program Files 022 SESSIONNAME=Console 023 SystemDrive=C: 024 SystemRoot=C:\WINDOWS 025 TEMP=C:\DOCUME~1\YPC~1\LOCALS~1\Temp 026 TMP=C:\DOCUME~1\YPC~1\LOCALS~1\Temp 027 USERDOMAIN=SOTEC 028 USERNAME=username 029 USERPROFILE=C:\Documents and Settings\username 030 VS71COMNTOOLS=C:\Program Files\Microsoft Visual Studio .NET 2003\Common7\Tools\ 031 windir=C:\WINDOWS |
|
| ２．環境変数に関連付けられた文字列を取得（その２） Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'Environment.GetEnvironmentVariables メソッド 'すべての環境変数とその値を返します。 Dim environmentVariables As IDictionary = System.Environment.GetEnvironmentVariables() Dim d As DictionaryEntry For Each d In environmentVariables Console.WriteLine("{0} = {1}", d.Key, d.Value) Next d End Sub 上記での取得結果（私の環境での） (UserName はそれぞれのユーザー名になります） SystemDrive = C: USERPROFILE = C:\Documents and Settings\UserName INCLUDE = C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\include\ Path = C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem LOGONSERVER = \\TOSHIBA VS71COMNTOOLS = C:\Program Files\Microsoft Visual Studio .NET 2003\Common7\Tools\ PROCESSOR_ARCHITECTURE = x86 ProgramFiles = C:\Program Files NUMBER_OF_PROCESSORS = 1 CommonProgramFiles = C:\Program Files\Common Files TMP = C:\DOCUME~1\UserName\LOCALS~1\Temp APPDATA = C:\Documents and Settings\UserName\Application Data ComSpec = C:\WINDOWS\system32\cmd.exe FP_NO_HOST_CHECK = NO HOMEDRIVE = C: COMPUTERNAME = TOSHIBA PROCESSOR_LEVEL = 15 OS = Windows_NT PROCESSOR_IDENTIFIER = x86 Family 15 Model 2 Stepping 9, GenuineIntel windir = C:\WINDOWS USERDOMAIN = TOSHIBA ALLUSERSPROFILE = C:\Documents and Settings\All Users USERNAME = UserName PATHEXT = .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH CLIENTNAME = Console @ = \Documents and Settings\UserName SystemRoot = C:\WINDOWS TEMP = C:\DOCUME~1\UserName\LOCALS~1\Temp LIB = C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Lib\ PROCESSOR_REVISION = 209 SESSIONNAME = Console Cor_Debugging_Control_424242 = 1 |
|
| 取得内容は、両者で若干違います。 | |
2004/05/05
2005/10/04
VBレスキュー(花ちゃん)
VB.NET2003 VB2005