printenv.vbs revision 8ff4c40d4bb9cd11a32f6c32ba240b2d024b746a
7a275829d3e843d6584854b805edc24cd2c498a0fuankg'
7a275829d3e843d6584854b805edc24cd2c498a0fuankg
7a275829d3e843d6584854b805edc24cd2c498a0fuankg' To permit this cgi, replace ' on the first line above with the
7a275829d3e843d6584854b805edc24cd2c498a0fuankg' appropriate shebang, f.e. '!c:/windows/system32/cscript -nologo
7a275829d3e843d6584854b805edc24cd2c498a0fuankg'
7a275829d3e843d6584854b805edc24cd2c498a0fuankg' Note that it is subject to cross site scripting attacks on MS IE
7a275829d3e843d6584854b805edc24cd2c498a0fuankg' and any other browser which fails to honor RFC2616, so never use
7a275829d3e843d6584854b805edc24cd2c498a0fuankg' it in a live server environment, it is provided only for testing.
7a275829d3e843d6584854b805edc24cd2c498a0fuankg
7a275829d3e843d6584854b805edc24cd2c498a0fuankg''
7a275829d3e843d6584854b805edc24cd2c498a0fuankg'' printenv -- demo CGI program which just prints its environment
7a275829d3e843d6584854b805edc24cd2c498a0fuankg''
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgOption Explicit
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankg
8ff4c40d4bb9cd11a32f6c32ba240b2d024b746afuankgDim objShell, objArray, str, envvar, envval
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgSet objShell = CreateObject("WScript.Shell")
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgSet objArray = CreateObject("System.Collections.ArrayList")
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankg
8ff4c40d4bb9cd11a32f6c32ba240b2d024b746afuankgWScript.StdOut.WriteLine "Content-type: text/plain; charset=iso-8859-1" & vbLF
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgFor Each str In objShell.Environment("PROCESS")
8ff4c40d4bb9cd11a32f6c32ba240b2d024b746afuankg objArray.Add str
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgNext
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgobjArray.Sort()
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgFor Each str In objArray
8ff4c40d4bb9cd11a32f6c32ba240b2d024b746afuankg envvar = Left(str, InStr(str, "="))
8ff4c40d4bb9cd11a32f6c32ba240b2d024b746afuankg envval = Replace(Mid(str, InStr(str, "=") + 1), vbLF, "\n")
8ff4c40d4bb9cd11a32f6c32ba240b2d024b746afuankg WScript.StdOut.WriteLine envvar & Chr(34) & envval & Chr(34)
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgNext
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankg