Environment Variables

"Environ" function in VB returns operating system environment variable.

Eg:
1. Environ("computerName") 'Displays Computer name
Or
Environ(5) 'Also displays computer name

~~~~~~~~~~~~~~~~~~~~~~
Public Sub printEnvironmentVariables()

Dim i As Integer

For i = 1 To 33
Debug.Print Environ(i)
Next i

End Sub
~~~~~~~~~~~~~~~~~~~~~~

Result
====
ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\bbaskara\Application Data
CLIENTNAME=Console
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=BENOY-RAJ
ComSpec=C:\WINDOWS\system32\cmd.exe
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\benoy
LOGONSERVER=\\PILOT03
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\Sys tem32\Wbem;C:\Program Files\Microsoft SQL Server\80\Tools\BINN;C:\MSSQL7\BINN;C:\Program Files\Microsoft SQL Server\80\Tools\Binn\
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WS F;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 7 Stepping 3, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0703
ProgramFiles=C:\Program Files
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=C:\DOCUME~1\benoy\LOCALS~1\Temp
TMP=C:\DOCUME~1\benoy\LOCALS~1\Temp
USERDNSDOMAIN=
USERDOMAIN=
USERNAME=benoy
USERPROFILE=C:\Documents and Settings\benoy
VS80COMNTOOLS=C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\
windir=C:\WINDOWS

~~~~~~~~~~~~~~~~~~~~~~~~~~~


If any issues or suggestions, contact me @ binoy_rb@hotmail.com


thanks
Binoy