如何用VB.NET获取环境变量

最新推荐文章于 2024-07-06 22:40:10 发布

_道隐_

最新推荐文章于 2024-07-06 22:40:10 发布

阅读量1.7k

点赞数

分类专栏： .NET 文章标签： vb.net 存储 windows string

.NET 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

如何用VB.NET获取环境变量

作者： Builder.com.cn
2006-10-23 14:05:07

Windows系统将很多重要的信息（比如计算机名和用户名）存储在环境变量中。访问这些变量来获取这些信息是很多程序中迟早要用到的功能，在这篇文章中，我将向您介绍如何使用VB.NET来获取环境变量的信息。

为了获取环境变量的信息，您需要获取相应的环境变量数值，在VB.NET中，您可以使用System.Environment类中的两个方法GetEnvironmentVariable和GetEnvironmentVariables。以下的例子为您展示了如何使用这些与环境变量相关的方法。

例1

在列表A中，我定义了一个名为strComputerName的变量，用它来存储计算机的名称，我使用了Environment类中的GetEnvironmentVariable方法来获取所需要的环境变量信息，这个例子的结果是"COMPUTERNAME"。

Private Sub GetEnvironmentVariable()

Dim strComputerName As String

strComputerName = Environment.GetEnvironmentVariable("COMPUTERNAME")

MessageBox.Show(strComputerName)

End Sub

列表A

例2

在这个例子中，我向表单中添加了一个列表控件ListBox1，参见列表B，我将变量dictEntry定义为一个DictionaryEntry，然后我我使用了Environment类中的GetEnvironmentVariable方法创建了一个循环来遍历所有的环境变量。对每一个条目，我都在列表框中添加一行写入条目的键值，当运行这些代码的时候，您会看到图1中的结果。

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()))

End Sub

From http://www.builder.com.cn/2006/1023/326654.shtml