Option Explicit



Private Declare Function GetEnvironmentVariable Lib "kernel32" _

    Alias "GetEnvironmentVariableA" ( _

    ByVal lpName As String, _

    ByVal lpBuffer As String, _

    ByVal nSize As Long) As Long



Function GetEnvironmentVar(strEnvName As String) As String

    GetEnvironmentVar = String(255, 0)

    GetEnvironmentVariable strEnvName, _

        GetEnvironmentVar, _

        Len(GetEnvironmentVar)

    If InStr(1, GetEnvironmentVar, Chr(0)) > 0 Then

        GetEnvironmentVar = Left(GetEnvironmentVar, _

            InStr(1, GetEnvironmentVar, Chr(0)) - 1)

    End If

    GetEnvironmentVar = strEnvName & ": " & GetEnvironmentVar

End Function



Sub GetEnviro()

Dim strMsg As String

'// Build the string msg

strMsg = GetEnvironmentVar("_MACH")

strMsg = strMsg & vbCr & GetEnvironmentVar("_TYPE")

strMsg = strMsg & vbCr & GetEnvironmentVar("ALLUSERSPROFILE")

strMsg = strMsg & vbCr & GetEnvironmentVar("APPDATA")

strMsg = strMsg & vbCr & GetEnvironmentVar("CommonProgramFiles")

strMsg = strMsg & vbCr & GetEnvironmentVar("COMPUTERNAME")

strMsg = strMsg & vbCr & GetEnvironmentVar("ComSpec")

strMsg = strMsg & vbCr & GetEnvironmentVar("HOMEDRIVE")

strMsg = strMsg & vbCr & GetEnvironmentVar("HOMEPATH")

strMsg = strMsg & vbCr & GetEnvironmentVar("HOMESHARE")

strMsg = strMsg & vbCr & GetEnvironmentVar("Include")

strMsg = strMsg & vbCr & GetEnvironmentVar("Lib")

strMsg = strMsg & vbCr & GetEnvironmentVar("LOGONSERVER")

strMsg = strMsg & vbCr & GetEnvironmentVar("LOGSERVER")

strMsg = strMsg & vbCr & GetEnvironmentVar("NUMBER_OF_PROCESSORS")

strMsg = strMsg & vbCr & GetEnvironmentVar("OS")

strMsg = strMsg & vbCr & GetEnvironmentVar("Os2LibPath")

strMsg = strMsg & vbCr & GetEnvironmentVar("Path")

strMsg = strMsg & vbCr & GetEnvironmentVar("PATHEXT")

strMsg = strMsg & vbCr & GetEnvironmentVar("PROCESSOR_ARCHITECTURE")

strMsg = strMsg & vbCr & GetEnvironmentVar("PROCESSOR_IDENTIFIER")

strMsg = strMsg & vbCr & GetEnvironmentVar("PROCESSOR_LEVEL")

strMsg = strMsg & vbCr & GetEnvironmentVar("PROCESSOR_REVISION")

strMsg = strMsg & vbCr & GetEnvironmentVar("ProgramFiles")

strMsg = strMsg & vbCr & GetEnvironmentVar("SMSHOME")

strMsg = strMsg & vbCr & GetEnvironmentVar("STARTUPLOG")

strMsg = strMsg & vbCr & GetEnvironmentVar("SYBASE")

strMsg = strMsg & vbCr & GetEnvironmentVar("SystemDrive")

strMsg = strMsg & vbCr & GetEnvironmentVar("SystemRoot")

strMsg = strMsg & vbCr & GetEnvironmentVar("TEMP")

strMsg = strMsg & vbCr & GetEnvironmentVar("TMP")

strMsg = strMsg & vbCr & GetEnvironmentVar("USERDOMAIN")

strMsg = strMsg & vbCr & GetEnvironmentVar("USERDOMAIN")

strMsg = strMsg & vbCr & GetEnvironmentVar("UserName")

strMsg = strMsg & vbCr & GetEnvironmentVar("USERPROFILE")

strMsg = strMsg & vbCr & GetEnvironmentVar("windir")

MsgBox strMsg, vbInformation, "Envoronmental variables"

End Sub