Found this before but you'd need to do it using Excel and add it as a macro then activate.
You can use some of the keywords from what it pulls up into the Sheet1 as a reference and use the Environ(""") command in VB to pull up that specific item. For example using VB you can find the username of the currently logged on user by coding Environ("username"). You can then use that string to display it on things like MsgBox's and unbound fields.
----------------------------------------------------------------
Sub Environ_Check()
Dim r As Long
Dim P As Long
r = 1
Do
Cells(r, 1) = r
Cells(r, 2) = Environ$(r)
P = InStr(1, Cells(r, 2), "=")
Cells(r, 3) = Left$(Cells(r, 2), P - 1)
' 'or the following with Excel 2000
' Cells(r, 3) = Split(Cells(r, 2), "=")(0)
r = r + 1
Loop Until Len(Environ$(r)) = 0
Columns("A:B").AutoFit
[A1].Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\u74evr\My Documents\Environ.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Run "Environ.xls!Environ_Check"
Range("B16").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.SmallScroll ToRight:=1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B17").Select
ActiveWindow.SmallScroll Down:=10
Range("B35").Select
ActiveWindow.SmallScroll Down:=10
Range("B39").Select
ActiveWindow.SmallScroll Down:=-110
ActiveWorkbook.Save
-----------------------------------------------------
