サーバの環境変数(Shell) をテキストファイルへ書き込む

  結果のテキスト



  

[SYSTEM]
ComSpec=%SystemRoot%\system32\cmd.exe
CYGWIN=binmode ntsec ntea tty
HOME=/home/administrator
JAVA_HOME=c:\jdk
MAKE_MODE=UNIX
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Os2LibPath=%SystemRoot%\system32\os2\dll;
Path=C:\Perl\bin\;C:\Centura;C:\orant\bin;C:\WINNT\system32;C:\WINNT;
C:\WINNT\System32\Wbem;C:\Program Files\Symantec\pcAnywhere\;
c:\PHP\dlls;C:\MSSQL7\BINN;c:\jdk\bin;c:\cygwin\bin
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 8 Stepping 6, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0806
SHELL=/bin/bash
TEMP=%SystemRoot%\TEMP
TMP=%SystemRoot%\TEMP
TOMCAT_HOME=c:\tomcat
windir=%SystemRoot%

[USER]
TEMP=%USERPROFILE%\Local Settings\Temp
TMP=%USERPROFILE%\Local Settings\Temp

[PROCESS]
ALLUSERSPROFILE=C:\Documents and Settings\All Users
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=SV
ComSpec=C:\WINNT\system32\cmd.exe
CYGWIN=binmode ntsec ntea tty
HOME=/home/administrator
JAVA_HOME=c:\jdk
MAKE_MODE=UNIX
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Os2LibPath=C:\WINNT\system32\os2\dll;
Path=C:\Perl\bin\;C:\Centura;C:\orant\bin;C:\WINNT\system32;C:\WINNT;
C:\WINNT\System32\Wbem;C:\Program Files\Symantec\pcAnywhere\;
c:\PHP\dlls;C:\MSSQL7\BINN;c:\jdk\bin;c:\cygwin\bin
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 8 Stepping 6, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0806
ProgramFiles=C:\Program Files
SHELL=/bin/bash
SystemDrive=C:
SystemRoot=C:\WINNT
TEMP=C:\WINNT\TEMP
TMP=C:\WINNT\TEMP
TOMCAT_HOME=c:\tomcat
USERPROFILE=C:\Documents and Settings\Default User
windir=C:\WINNT
  



  ソース



  

<%

	Set FileSystem	= Server.CreateObject( "Scripting.FileSystemObject" )
	Set FileHandle	= FileSystem.CreateTextFile( Server.MapPath( "Environment.txt" ), True )

	Set WshShell	= Server.CreateObject("Wscript.Shell")

	FileHandle.WriteLine "[SYSTEM]"
	For Each strVarName In WshShell.Environment( "SYSTEM" )
		FileHandle.WriteLine strVarName
	Next
	FileHandle.WriteLine

	FileHandle.WriteLine "[USER]"
	For Each strVarName In WshShell.Environment( "USER" )
		FileHandle.WriteLine strVarName
	Next
	FileHandle.WriteLine

	FileHandle.WriteLine "[PROCESS]"
	For Each strVarName In WshShell.Environment( "PROCESS" )
		FileHandle.WriteLine strVarName
	Next

%>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ