7a275829d3e843d6584854b805edc24cd2c498a0fuankg' To permit this cgi, replace ' on the first line above with the
7a275829d3e843d6584854b805edc24cd2c498a0fuankg' appropriate shebang, f.e. '!c:/windows/system32/cscript -nologo
8606595dda2827ddf9a9572e779c3c001ae98bc8fuankg' ***** !!! WARNING !!! *****
8606595dda2827ddf9a9572e779c3c001ae98bc8fuankg' This script echoes the server environment variables and therefore
8606595dda2827ddf9a9572e779c3c001ae98bc8fuankg' leaks information - so NEVER use it in a live server environment!
8606595dda2827ddf9a9572e779c3c001ae98bc8fuankg' It is provided only for testing purpose.
8606595dda2827ddf9a9572e779c3c001ae98bc8fuankg' Also note that it is subject to cross site scripting attacks on
8606595dda2827ddf9a9572e779c3c001ae98bc8fuankg' MS IE and any other browser which fails to honor RFC2616.
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")