printenv.vbs revision 7a275829d3e843d6584854b805edc24cd2c498a0
22a41ae508535e87c3c2270202ae78de6ac4672crbowen'
22a41ae508535e87c3c2270202ae78de6ac4672crbowen
22a41ae508535e87c3c2270202ae78de6ac4672crbowen' To permit this cgi, replace ' on the first line above with the
22a41ae508535e87c3c2270202ae78de6ac4672crbowen' appropriate shebang, f.e. '!c:/windows/system32/cscript -nologo
22a41ae508535e87c3c2270202ae78de6ac4672crbowen'
22a41ae508535e87c3c2270202ae78de6ac4672crbowen' Note that it is subject to cross site scripting attacks on MS IE
22a41ae508535e87c3c2270202ae78de6ac4672crbowen' and any other browser which fails to honor RFC2616, so never use
22a41ae508535e87c3c2270202ae78de6ac4672crbowen' it in a live server environment, it is provided only for testing.
22a41ae508535e87c3c2270202ae78de6ac4672crbowen
22a41ae508535e87c3c2270202ae78de6ac4672crbowen''
d29d9ab4614ff992b0e8de6e2b88d52b6f1f153erbowen'' printenv -- demo CGI program which just prints its environment
d29d9ab4614ff992b0e8de6e2b88d52b6f1f153erbowen''
d29d9ab4614ff992b0e8de6e2b88d52b6f1f153erbowenOption Explicit
d29d9ab4614ff992b0e8de6e2b88d52b6f1f153erbowen
22a41ae508535e87c3c2270202ae78de6ac4672crbowenDim objShell, objArray, str, env
4eb5e97c7a147352e1017b0114d2719d5f67cea9rbowenSet objShell = CreateObject("WScript.Shell")
d229f940abfb2490dee17979e9a5ff31b7012eb5rbowenSet objArray = CreateObject("System.Collections.ArrayList")
3f08db06526d6901aa08c110b5bc7dde6bc39905nd
22a41ae508535e87c3c2270202ae78de6ac4672crbowenWscript.Echo "Content-type: text/plain; charset=iso-8859-1" & vbLF
22a41ae508535e87c3c2270202ae78de6ac4672crbowenFor Each str In objShell.Environment("PROCESS")
22a41ae508535e87c3c2270202ae78de6ac4672crbowen env = Split(str, "=", 2)
3f08db06526d6901aa08c110b5bc7dde6bc39905nd env(1) = Replace(env(1), vbLF, "\n")
22a41ae508535e87c3c2270202ae78de6ac4672crbowen objArray.Add env(0) & "=" & Chr(34) & env(1) & Chr(34)
f3ec420152ca921e4c1ce77782f51b53f659018dndNext
bd2feb86ee6d8c91ecd992138ceb96a7069a5578gryzorobjArray.Sort()
d474d8ef01ec5c2a09341cd148851ed383c3287crbowenFor Each str In objArray
d474d8ef01ec5c2a09341cd148851ed383c3287crbowen WScript.Echo str
22a41ae508535e87c3c2270202ae78de6ac4672crbowenNext
22a41ae508535e87c3c2270202ae78de6ac4672crbowen
22a41ae508535e87c3c2270202ae78de6ac4672crbowen'WScript.Echo ScriptEngine & " Version=" & ScriptEngineMajorVersion & "." & _
ef96a16f2c3ed821e516840775560b4895b26d3drbowen' ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
9a58dc6a2b26ec128b1270cf48810e705f1a90dbsf
ef96a16f2c3ed821e516840775560b4895b26d3drbowen