home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / scripts / envvars.vbs < prev    next >
Encoding:
Text File  |  1998-05-12  |  180 b   |  8 lines
  1. Set WShell = Wscript.CreateObject("Wscript.Shell")
  2. Set WEnvSys = WShell.Environment("PROCESS")
  3. txt=""
  4. For Each evar In WEnvSys
  5.     txt = txt & evar & vbcrlf
  6. Next
  7. Msgbox txt
  8.