''' <summary>
''' Listar las variables de entrono.
''' Las variables del sistema se exponen a través del método
''' GetEnvironmentVariables de la clase System.Environment.
''' </summary>
''' <returns>
''' En este caso una cadena en la que cada linea contiene una pareja clave=valor</returns>
''' <remarks>
''' <bibliografia>
''' Clase Environment
''' Proporciona información acerca del entorno y la plataforma actuales,
''' y la forma de manipularlos.
''' https://msdn.microsoft.com/es-es/library/system.environment(v=vs.110).aspx
'''
''' Método Environment.GetEnvironmentVariables
''' Recupera todos los nombres de las variables de entorno y sus valores.
''' https://msdn.microsoft.com/es-es/library/system.environment.getenvironmentvariables(v=vs.110).aspx
'''
''' Interfaz IDictionary
''' Representa una colección no genérica de pares clave-valor.
''' https://msdn.microsoft.com/es-es/library/system.collections.idictionary(v=vs.110).aspx
'''
''' Estructura DictionaryEntry
''' Define un par clave-valor de diccionario que se puede establecer o recuperar.
''' https://msdn.microsoft.com/es-es/library/system.collections.dictionaryentry(v=vs.110).aspx
'''
''' Clase StringWriter
''' Implementa un TextWriter para escribir información en una cadena.
''' La información se almacena en un StringBuilder subyacente.
''' https://msdn.microsoft.com/es-es/library/system.io.stringwriter(v=vs.110).aspx
'''
''' www.devx.com
''' List all Environment Variables
''' http://www.devx.com/tips/dot-net/list-all-environment-variables-170128002013.html
''' </bibliografia>
'''</remarks>
Public Function ListadoVariablesEntrono() As String
Dim environmentVariables As IDictionary = System.Environment.GetEnvironmentVariables()
Using sw As New System.IO.StringWriter
For Each ev In environmentVariables
Dim de As DictionaryEntry = CType(ev, DictionaryEntry)
sw.WriteLine(String.Format("Clave: {0}, Valor: {1}", de.Key, de.Value))
Next
sw.Flush()
Return sw.ToString
End Using
End Function