Search

VBA to get Important System Information - Must Know function for Developers

Hello friends, all relevant materials for this topic/tutorial can be downloaded from here. Please support by subscribing to our channel and sharing them with your friends.

If you have any questions/feedback/tutorial request, please you can email me directly vbaa2z.team@gmail.com or comment on YouTube Video (blog comments are not actively monitored).

Video Link: https://www.youtube.com/watch?v=VPUNefqjgDY
VBA to get Important System Information - Must Know function for Developers


Option Explicit
'-----------------------------
'Thanks for downloading the code.
'Please visit our channel for a quick explainer on this code.
'Feel free to update the code as per your need and also share with your friends.
'Channel: Youtube.com/vbaa2z
'Download free codes from http://vbaa2z.blogspot.com
'Subscribe channel: youtube.com/vbaa2z
'Contact Us (vbaa2z.team@gmail.com)
'AUTHOR: UNKNOWN
'-----------------------------
Sub get_environ_info()

Dim i As Long, x&

For i = 1 To 40
  
  Debug.Print i & ": " & Environ(i)
  
  x = Application.WorksheetFunction.Find("=", Environ(i), 1)
  Debug.Print Left(Environ(i), x) & "  * * * * "
  
Next

End Sub

Function userName()
userName = Environ("USERNAME")
End Function


Function Computername()
Computername = Environ("COMPUTERNAME")
End Function


ALLUSERSPROFILE,
APPDATA,
CommonProgramFiles,
CommonProgramFiles(x86),
CommonProgramW6432,
COMPUTERNAME,
ComSpec,
FP_NO_HOST_CHECK,
HOMEDRIVE,
HOMEPATH,
LOCALAPPDATA,
LOGONSERVER,
NUMBER_OF_PROCESSORS,
OS,
Path,
PATHEXT,
PROCESSOR_ARCHITECTURE,
PROCESSOR_ARCHITEW6432,
PROCESSOR_IDENTIFIER,
PROCESSOR_LEVEL,
PROCESSOR_REVISION,
ProgramData,
ProgramFiles,
ProgramFiles(x86),
ProgramW6432,
PSModulePath,
PUBLIC,
PyCharm Community Edition,
SESSIONNAME,
SystemDrive,
SystemRoot,
TEMP,
TMP,
USERDOMAIN,
USERNAME,
USERPROFILE,
VS140COMNTOOLS,
windir,
windows_tracing_flags,
windows_tracing_logfile,

No comments:

Post a Comment

Note: only a member of this blog may post a comment.