Win の環境変数を得るの巻き：遊ぶ大人の非常識 by きのこ組：SSブログ

	ブログをはじめるログイン

Win の環境変数を得るの巻き　[スクリプト言語など] [編集]

ハード的な要素も拡張するごとに変わっているし、IEやOSのバージョンで微妙に内容が変わってくるとさまざまな場面で不具合が発生することが時々ある。
今回は、そんな表面化されていないことが人目でわかってしまうというツールです。

Dim f,fso,Shell,Desktop,Favorites,Wsh,WScript,s,sx,cnt,i,br

Set Shell = CreateObject("WScript.Shell")
    br = unescape("%0D%0A")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Shell=CreateObject("WScript.Shell")
    Set Wsh = Shell.Environment("SYSTEM")
   Set f = fso.CreateFolder("./GpyFolder")
   CFD = f.ParentFolder
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f0 = fso.CreateTextFile(CFD & "\GpyFolder\navi.htm", True)
f0.WriteLine "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
f0.WriteLine "<html><head><title>USER</title></head>"
f0.WriteLine "<style type='text/css'></style>"
f0.WriteLine "<body bgcolor='#8FEBA0' onload='Obj()'>"
f0.WriteLine "<script language='JavaScript'>"
f0.WriteLine "function Obj() {"
f0.WriteLine "  cnt = 0;    "
f0.WriteLine "  br = unescape('%0D%0A');"
f0.WriteLine "  document.write ('<html>'+br);"
f0.WriteLine "  document.write ('<style type=text/css></style><body>' + br);"
f0.WriteLine "  document.write( '<b>★ 現在のナビゲーターオブジェクト</b>'+ br);"
f0.WriteLine "  document.write( '<table border=0 cellpadding=2 cellspacing=0>'+ br);"
f0.WriteLine "  for(i in navigator)"
f0.WriteLine "  if((navigator[i] !==null)&&(i !=='appMinorVersion')&&(i !== 'plugins')&&(i !=='opsProfile')&&(i !=='userProfile')&&(i !=='mimeTypes')&&(i !=='userLanguage')&&(i !=='userProfile')){" 
f0.WriteLine "  document.write('<tr><td width=160>'+i+'</td><td>'+navigator[i]+'</td></tr>'+br); }"
f0.WriteLine "  document.write('</table></body></html>'+br);"
f0.WriteLine "  document.close(); }"
f0.WriteLine "  </script>"
f0.WriteLine "  </body>"
f0.WriteLine "  </html>"
f0.Close

Set fso = CreateObject("Scripting.FileSystemObject")
   Set f1 = fso.CreateTextFile(CFD & "\GpyFolder\KankyoHensu.htm", True)

s = ""
    s = s & ScriptEngine() & " Version "
    s = s & ScriptEngineMajorVersion() & "."
    s = s & ScriptEngineMinorVersion() & "."
    s = s & ScriptEngineBuildVersion()

f1.Write "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" & br
    f1.Write "<html>" & br
    f1.Write "<body>" & br
    f1.Write "<style type='text/css'>" & br
    f1.Write "body { color:#555555; font-family:monospace; position:relative; left:0px; top:0px; }" & br
    f1.Write "table { width:640; font-size:11pt; }" & br
    f1.Write "td, tr { border-bottom-color: Blue; boder-top-style:dotted; border-bottom-style:dotted; border-bottom-width:1; border-top-width:0; }" & br
    f1.Write "</style><body scroll='auto'>" & br
    f1.Write "<b>★ ご使用のパーソナルコンピューターの環境変数</b>" & "<br>"
    f1.Write "<table border='0'>" & br
    f1.Write "<tr><td width='160'>CPU_個数</td><td>" & Wsh("NUMBER_OF_PROCESSORS") & "</td></tr>" & br
    f1.Write "<tr><td>CPU_種類</td><td>" & Wsh("PROCESSOR_ARCHITECTURE") & "</td></tr>" & br
    f1.Write "<tr><td>CPU_ID</td><td>" & Wsh("PROCESSOR_IDENTIFIER") & "</td></tr>" & br
    f1.Write "<tr><td>CPU_レベル</td><td>" & Wsh("PROCESSOR_LEVEL") & "</td></tr>" & br
    f1.Write "<tr><td>CPU_Version</td><td>" & Wsh("PROCESSOR_REVISION") & "</td></tr>" & br
    f1.Write "<tr><td>オペレーティング</td><td>" & Wsh("OS") & "</td></tr>" & br
    f1.Write "<tr><td>プロンプト</td><td>" & Wsh("COMSPEC") & "</td></tr>" & br
    f1.Write "<tr><td>PATH 環境変数</td><td>" & Wsh("PATH") & "</td></tr>" & br
    f1.Write "<tr><td>実行可能ファイル</td><td>" & Wsh("PATHEXT") & "</td></tr>" & br
    f1.Write "<tr><td>コマンドプロンプト</td><td>" & Wsh("PROMPT") & "</td></tr>" & br
    f1.Write "<tr><td>システムディレクトリ</td><td>" & Wsh("WINDIR") & "</td></tr>" & br
    f1.Write "<tr><td>一時ファイル</td><td>" & Wsh("TEMP") & "</td></tr>" & br
    f1.Write "<tr><td>一時ファイル</td><td>" & Wsh("TMP") & "</td></tr>" & br
    f1.Write "</table><br>" & br
    'f1.Write WScript.ScriptName & "<br>"
    'f1.Write WScript.Name & "<br>"
    'f1.Write WScript.FullName & "<br>"
    f1.Write "<b>★ 参照可能なシステムデレクトリー</b>" & "<br>"
    f1.Write "<table border='0'>" & br
    f1.Write "<tr><td width='160'>Myf1s</td><td>" & Shell.SpecialFolders("Myf1s") & "</td></tr>" & br
    f1.Write "<tr><td>Recent</td><td>" & Shell.SpecialFolders("Recent") & "</td></tr>" & br
    f1.Write "<tr><td>SendTo</td><td>" & Shell.SpecialFolders("SendTo") & "</td></tr>" & br
    f1.Write "<tr><td>Favorites</td><td>" & Shell.SpecialFolders("Favorites") & "</td></tr>" & br
    f1.Write "<tr><td>Desktop</td><td>" & Shell.SpecialFolders("Desktop") & "</td></tr>" & br
    f1.Write "<tr><td>Programs</td><td>" & Shell.SpecialFolders("Programs") & "</td></tr>" & br
    f1.Write "<tr><td>StartMenu</td><td>" & Shell.SpecialFolders("StartMenu") & "</td></tr>" & br
    f1.Write "<tr><td>Startup</td><td>" & Shell.SpecialFolders("Startup") & "</td></tr>" & br
    f1.Write "<tr><td>Fonts</td><td>" & Shell.SpecialFolders("Fonts") & "</td></tr>" & br
    f1.Write "<tr><td>Templates</td><td>" & Shell.SpecialFolders("Templates") & "</td></tr>" & br
    f1.Write "<tr><td>NetHood</td><td>" & Shell.SpecialFolders("NetHood") & "</td></tr>" & br
    f1.Write "<tr><td>PrintHood</td><td>" & Shell.SpecialFolders("PrintHood") & "</td></tr>" & br
    f1.Write "<tr><td>AllUsersDesktop</td><td>" & Shell.SpecialFolders("AllUsersDesktop") & "</td></tr>" & br
    f1.Write "<tr><td>AllUsersStartMenu</td><td>" & Shell.SpecialFolders("AllUsersStartMenu") & "</td></tr>" & br
    f1.Write "<tr><td>AllUsersPrograms</td><td>" & Shell.SpecialFolders("AllUsersPrograms") & "</td></tr>" & br
    f1.Write "<tr><td>AllUsersStartup</td><td>" & Shell.SpecialFolders("AllUsersStartup") & "</td></tr>" & br
    f1.Write "</table><br>" & br & br 
    f1.Write "<iframe height='240' marginheight='0' marginwidth='0' src='navi.htm' style='CURSOR:nw-resize' name='nav' width='640' scrolling='no' frameborder='0'></iframe>" & br
    f1.Write "<br><b>★ SCRIPTエンジンは、<font color='#0000FF'>" & s & "</font> でした。</b>" & "<br>" & br 
    f1.Write "</body></html>" & br
f1.Close

このテキストエリアのソースを丸コピーし、メモ帳にペースト、名前、適当でいいんですが「環境変数.VBS」とかにして、ダブルクリックすると動作します。動作といっても、GpyFolder ってフォルダーを作って、そこへ２枚のHTMLファイルを作るだけ。その中の「KankyoHensu.htm 」をクリックして開くと、使用環境での下表項目がすべて表示される。

「セキュリティ保護のため・・」っていうのが表示されますが、気にせず「ブロックコンテンツを許可」にしてください。　そうしないと作動しないです。

一応、XPで作りました。9X系では試してないです。動作保障はしません。自己判断でお使いくださいませ。それでは、例のごとく、くれぐれお気をつけて・・＼(-o-)／

★ ご使用のパーソナルコンピューターの環境変数

CPU_個数
CPU_種類
CPU_ID
CPU_レベル
CPU_Version
オペレーティング
プロンプト
PATH 環境変数
実行可能ファイル
コマンドプロンプト
システムディレクトリ
一時ファイル

★ 参照可能なシステムデレクトリー

MyDocuments
Recent
SendTo
Favorites
Desktop
Programs
StartMenu
Startup
Fonts
Templates
NetHood
PrintHood
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup