casjaysdevdocker/tools
1
0
Fork 0
mirror of https://github.com/casjaysdevdocker/tools synced 2026-01-27 16:34:36 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

🗃️ Committing everything that changed 🗃️

Browse Source 
applications/
configs/
lists/
wwwroot/
This commit is contained in:
casjay
2023-08-22 17:53:03 -04:00
parent 13eaf166f5
commit 5eb3ff1598
265 changed files with 48486 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
wwwroot/www/cgi-bin/printenv.vbs Normal file
View File

@@ -0,0 +1,17 @@
'!c:/windows/system32/cscript -nologo
Option Explicit
Dim objShell, objArray, str, envvar, envval
Set objShell = CreateObject("WScript.Shell")
Set objArray = CreateObject("System.Collections.ArrayList")
WScript.StdOut.WriteLine "Content-type: text/plain; charset=iso-8859-1" & vbLF
For Each str In objShell.Environment("PROCESS")
objArray.Add str
Next
objArray.Sort()
For Each str In objArray
envvar = Left(str, InStr(str, "="))
envval = Replace(Mid(str, InStr(str, "=") + 1), vbLF, "\n")
WScript.StdOut.WriteLine envvar & Chr(34) & envval & Chr(34)
Next