为了获取环境变量的信息，

在vb.NET中，您可以使用@H_403_8@System.@H_403_8@Environment类中的两个方法@H_403_8@GetEnvironmentVariable和@H_403_8@GetEnvironmentVariables。

举例1：

保存用户名的环境变量是USERNAME。

比如

Dim username as String

username=Environment.GetEnvironmentVariable("USERNAME")

举例2：

保存计算机名的环境变量是@H_403_8@COMPUTERNAME

Dim strComputerName As String

strComputerName = Environment.GetEnvironmentVariable("COMPUTERNAME")

举例3：

在这个例子中，我向表单中添加了一个列表控件@H_403_8@ListBox1，参见列表B，我将变量@H_403_8@dictEntry定义为一个@H_403_8@DictionaryEntry，然后我使用了@H_403_8@Environment类中的@H_403_8@GetEnvironmentVariables方法创建了一个循环来遍历所有的环境变量。对每一个条目，我都在列表框中添加一行写入条目的键值

Private Sub GetEnvironmentVariables()

Dim dictEntry As System.Collections.DictionaryEntry

ForEach dictEntry In Environment.GetEnvironmentVariables()

ListBox1.Items.Add("Key: " & (dictEntry.Key.ToString()) & " Value: " & _

(dictEntry.Value.ToString()))

Next

End Sub