Dim dic As System.Collections.IDictionary = System.Environment.GetEnvironmentVariables()
Dim dicEnum As System.Collections.IDictionaryEnumerator = dic.GetEnumerator()
While dicEnum.MoveNext()
Console.WriteLine("{0} - {1}", dicEnum.Key, dicEnum.Value)
End While