Obtener las variables de entorno

Dim env As IDictionary = Environment.GetEnvironmentVariables()
' para mostrar una variable de la que conocemos el nombre
Console.WriteLine("USERNAME = {0}", env("USERNAME"))
 
' para listar todas las variables
Dim en As IEnumerator = env.Keys.GetEnumerator()
While en.MoveNext
  Console.WriteLine("{0} = {1}", en.Current, env(en.Current()))
End While