Added VBScript CGI sample for Windows.

Guenter Knauf · Guenter Knauf · commit 857e4f7b223d · 2012-09-19T03:04:53.000Z
git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1387439 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/docs/cgi-examples/printenv.vbs b/docs/cgi-examples/printenv.vbs
@@ -0,0 +1,24 @@
+'!c:/windows/system32/cscript -nologo
+'#
+'#  printenv -- demo CGI program which just prints its environment
+'#
+Option Explicit
+
+Dim objShell, objArray, str, env
+Set objShell = CreateObject("WScript.Shell")
+Set objArray = CreateObject("System.Collections.ArrayList")
+
+Wscript.Echo "Content-type: text/plain; charset=iso-8859-1" & vbLF
+For Each str In objShell.Environment("PROCESS")
+  env = Split(str, "=", 2)
+  env(1) = Replace(env(1), vbLF, "\n")
+  objArray.Add env(0) & "=" & Chr(34) & env(1) & Chr(34)
+Next
+objArray.Sort()
+For Each str In objArray
+  WScript.Echo str
+Next
+
+'WScript.Echo ScriptEngine & " Version=" & ScriptEngineMajorVersion & "." & _
+'             ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
+
