printenv.vbs revision 8ff4c40d4bb9cd11a32f6c32ba240b2d024b746a
7a275829d3e843d6584854b805edc24cd2c498a0fuankg' To permit this cgi, replace ' on the first line above with the
7a275829d3e843d6584854b805edc24cd2c498a0fuankg' appropriate shebang, f.e. '!c:/windows/system32/cscript -nologo
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'' printenv -- demo CGI program which just prints its environment
de7fcae87e407c72e6fec81cb31c6cd087cfe172fuankgSet objArray = CreateObject("System.Collections.ArrayList")
8ff4c40d4bb9cd11a32f6c32ba240b2d024b746afuankgWScript.StdOut.WriteLine "Content-type: text/plain; charset=iso-8859-1" & vbLF
8ff4c40d4bb9cd11a32f6c32ba240b2d024b746afuankg envval = Replace(Mid(str, InStr(str, "=") + 1), vbLF, "\n")