List of all variables of Environ
It will populate them in sheet range starting C4
Needs Cutstring3 to separate variable name from value
You can also check EnvVar_All
Sub EnvironList()
X1 = 4
For I = 1 To 250
ThisVar = Environ(I)
Range("C" & X1).Value = I
Range("D" & X1).Value = CutString3(ThisVar, 1, "=")
Range("E" & X1).Value = CutString3(ThisVar, 2, "=")
Range("F" & X1).Value = ThisVar
X1 = X1 + 1
Next
End Sub
' List found so far
'1 ALLUSERSPROFILE
'2 APPDATA
'3 CommonProgramFiles
'4 CommonProgramFiles(x86)
'5 CommonProgramW6432
'6 COMPUTERNAME
'7 ComSpec
'8 DriverData
'9 FPS_BROWSER_APP_PROFILE_STRING
'10 FPS_BROWSER_USER_PROFILE_STRING
'11 HOMEDRIVE
'12 HOMEPATH
'13 LOCALAPPDATA
'14 LOGONSERVER
'15 NUMBER_OF_PROCESSORS
'16 OneDrive
'17 OneDriveCommercial
'18 OneDriveConsumer
'19 OS
'20 Path
'21 PATHEXT
'22 PROCESSOR_ARCHITECTURE
'23 PROCESSOR_IDENTIFIER
'24 PROCESSOR_LEVEL
'25 PROCESSOR_REVISION
'26 ProgramData
'27 ProgramFiles
'28 ProgramFiles(x86)
'29 ProgramW6432
'30 PSModulePath
'31 PUBLIC
'32 SESSIONNAME
'33 SystemDrive
'34 SystemRoot
'35 TEMP
'36 TMP
'37 USERDOMAIN
'38 USERDOMAIN_ROAMINGPROFILE
'39 USERNAME
'40 USERPROFILE
'41 windir
X1 = 4
For I = 1 To 250
ThisVar = Environ(I)
Range("C" & X1).Value = I
Range("D" & X1).Value = CutString3(ThisVar, 1, "=")
Range("E" & X1).Value = CutString3(ThisVar, 2, "=")
Range("F" & X1).Value = ThisVar
X1 = X1 + 1
Next
End Sub
' List found so far
'1 ALLUSERSPROFILE
'2 APPDATA
'3 CommonProgramFiles
'4 CommonProgramFiles(x86)
'5 CommonProgramW6432
'6 COMPUTERNAME
'7 ComSpec
'8 DriverData
'9 FPS_BROWSER_APP_PROFILE_STRING
'10 FPS_BROWSER_USER_PROFILE_STRING
'11 HOMEDRIVE
'12 HOMEPATH
'13 LOCALAPPDATA
'14 LOGONSERVER
'15 NUMBER_OF_PROCESSORS
'16 OneDrive
'17 OneDriveCommercial
'18 OneDriveConsumer
'19 OS
'20 Path
'21 PATHEXT
'22 PROCESSOR_ARCHITECTURE
'23 PROCESSOR_IDENTIFIER
'24 PROCESSOR_LEVEL
'25 PROCESSOR_REVISION
'26 ProgramData
'27 ProgramFiles
'28 ProgramFiles(x86)
'29 ProgramW6432
'30 PSModulePath
'31 PUBLIC
'32 SESSIONNAME
'33 SystemDrive
'34 SystemRoot
'35 TEMP
'36 TMP
'37 USERDOMAIN
'38 USERDOMAIN_ROAMINGPROFILE
'39 USERNAME
'40 USERPROFILE
'41 windir
None
Views 1,027
Downloads 283
CodeID
DB ID