Using Environ

• Environ is a command that allows you to get system environmental
  information.


• It can also get any of the Environment Variables from the [System
  Properties, Advanced, Environment Variables]  settings in windows.

Syntax: Environ(expression)

Where expression is includes the environmental variable you wish to
retrieve

Example:

Call MsgBox("Your Temp Directory is: " & Environ("Temp"),
vbInformation, "Temp Directory Finder")

List of Common Expressions and sample output:

Full List of variables my computer can get:

  
• ALLUSERSPROFILE

  
• APPDATA

  
• CLIENTNAME

  
• CommonProgramFiles

  
• COMPUTERNAME

  
• ComSpec

  
• DRIVERNETWORKS

  
• DRIVERWORKS

  
• HOMEDRIVE

  
• HOMEPATH

  
• include

  
• lib

  
• LOGONSERVER

  
• MSDevDir

  
• NUMBER_OF_PROCESSORS

  
• OS

  
• Path

  
• PATHEXT

  
• PROCESSOR_ARCHITECTURE

  
• PROCESSOR_IDENTIFIER

  
• PROCESSOR_LEVEL

  
• PROCESSOR_REVISION

  
• ProgramFiles

  
• SESSIONNAME

  
• SystemDrive

  
• SystemRoot

  
• TEMP

  
• TMP

  
• USERDOMAIN

  
• USERNAME

  
• USERPROFILE

  
• VTOOLSD

  
• windir

Code used to get all variables:

Dim environinfo as string 'Declare environinfo
variable as string

On Error goto done 'If an error occurs then goto
end (error expected due to large for loop)

environinfo = "" 'Set our variable to nothing

For i = 1 To 200 'Do a large for loop and try 200
environmental indexes augmenting i by 1

   environinfo = environinfo & Environ(i) & vbCrLf
'Augment variable and add put on separate lines

Next i 'Loop until i is 200



done: 'Where to go on error, means we are done in this
case

clipboard.settext environinfo 'Copy our variable
information to clipboard

Call MsgBox("Your Environment Variables have been copied to clipboard",
vbInformation, "Environs Found") 'alert the user that
the variables are in clipboard