variables environnement (nom de machine, user ...)

Function VariablesEnvironnement()

Dim varEnv As Variant, intI As Integer

Dim strMessage As String, v As Variant

' Liste des variables d'environnement

varEnv = Array("ALLUSERSPROFILE", "APPDATA", "COMPUTERNAME", "HOMEDRIVE", "HOMEPATH", _

"LOGONSERVER", "NUMBER_OF_PROCESSORS", "OS", "PATH", "PATHEXT", "PROCESSOR_ARCHITECTURE", _

"PROCESSOR_IDENTIFIER", "PROCESSOR_LEVEL", "PROCESSOR_REVISION", "PROMPT", _

"SYSTEMDRIVE", "SYSTEMROOT", "TEMP", "TMP", "USERDOMAIN", "USERNAME", "USERPROFILE")

' Lecture de toutes les valeurs

strMessage = ""

For Each v In varEnv

strMessage = strMessage & v & " = " & Environ(v) & vbCrLf

Next

' Affichage final

MsgBox strMessage

End Function