SQLの窓

2019年01月15日


Explorer.exe で呼び出すフォルダの一覧を取得する / VBScript で HTML に table で書きだす / この記事では table のパスをクリップボードにコピーできます。



例えば、「既定のプログラム」を呼び出すには以下のように指定します。
( REM はバッチファイルのコメントです。行をあける為にだけ使用しています )

▼ こちらでは、コマンドライン全てをコピーできます
Explorer.exe のコマンドライン を使用して CLSID で特殊フォルダを開く

REM
REM
REM
explorer ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{17CD9488-1228-4B2F-88CE-4298E93E0966}

この場合の「::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{17CD9488-1228-4B2F-88CE-4298E93E0966}」
は get_shell_folder.zip 内の get_control_info_0.wsf で取得できます。

または、エクスプローラのアドレスに直接入力でも殆どが実行できます。

1) get_control_info_0.wsf

▼ パス部分をクリックするとクリップボヘードへコピーします
名称 タイプ パス
1 電源オプション ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}
2 NVIDIA コントロール パネル ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{0BBCA823-E77D-419E-9A44-5ADEC2C8EEB0}
3 タスク バーとナビゲーション ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{0DF44EAA-FF21-4412-828E-260A8728E7F1}
4 資格情報マネージャー ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{1206F5F1-0569-412C-8FEC-3204630DFB70}
5 既定のプログラム ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{17CD9488-1228-4B2F-88CE-4298E93E0966}
6 RemoteApp とデスクトップ接続 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{241D7C96-F8BF-4F85-B01F-E2B043341A4B}
7 Windows Defender ファイアウォール ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{4026492F-2F69-46B8-B9BF-5654FC07E423}
8 電話とモデム ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{40419485-C444-4567-851A-2DD7BFA1684D}
9 音声認識 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{58E3C745-D971-4081-9034-86E34B30836A}
10 ユーザー アカウント ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{60632754-C523-4B62-B45C-4172DA012619}
11 地域 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{62D8ED13-C9D0-4CE8-A914-47DD628FB1B0}
12 マウス ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{6C8EEC18-8D75-41B2-A177-8831D59D2D50}
13 エクスプローラーのオプション ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{6DFD7C5C-2451-11D3-A299-00C04F8EF6AF}
14 キーボード ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{725BE8F7-668E-4C7B-8F90-46BDB0936430}
15 デバイス マネージャー ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{74246BFC-4C96-11D0-ABEF-0020AF6B0B7A}
16 プログラムと機能 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}
17 インデックスのオプション ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{87D66A43-7B11-4A28-9811-C86EE395ACF7}
18 Windows To Go ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{8E0C279D-0BD1-43C3-9EBD-31C3DC5B8A77}
19 ネットワークと共有センター ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{8E908FC9-BECC-40F6-915B-F4CA0E70D03D}
20 記憶域 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{F942C606-0914-47AB-BE56-1321B8035096}
21 自動再生 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{9C60DE1E-E5FC-40F4-A487-460851A8D915}
22 同期センター ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{9C73F5E5-7AE7-4E32-A8E8-8D23B85255BF}
23 回復 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{9FE63AFD-59CF-4419-9775-ABCC3849F861}
24 赤外線 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{A0275511-0E86-4ECA-97C2-ECD8F1221D08}
25 インターネット オプション ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{A3DD4F92-658A-410F-84FD-6FBBBEF2FFFE}
26 デバイスとプリンター ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{A8A91A66-3A7D-4424-8D24-04E180695C7A}
27 色の管理 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{B2C761C6-29BC-4F19-9251-E6195265BAF1}
28 バックアップと復元 (Windows 7) ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{B98A2BEA-7D42-4558-8BD1-832F41BAC6FD}
29 システム ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{BB06C0E4-D293-4F75-8A90-CB05B6477EEE}
30 セキュリティとメンテナンス ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{BB64F8A7-BEE7-4E1A-AB8D-7D8273F7FDB6}
31 フォント ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\フォント
32 トラブルシューティング ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{C58C4893-3BE0-4B45-ABB5-A63E4B8C8651}
33 管理ツール C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Administrative Tools
34 コンピューターの簡単操作センター ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{D555645E-D4F8-4C29-A827-D93C859C4F2A}
35 BitLocker ドライブ暗号化 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{D9EF8727-CAC2-4E60-809E-86F80A666C91}
36 日付と時刻 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{E2E7934B-DCE5-43C4-9576-7FE4F75E7480}
37 ワーク フォルダー ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{ECDB0924-4208-451E-8EE0-373C0956DE16}
38 サウンド ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{F2DDFC82-8F12-4CDD-B7DC-D4FE1425AA4D}
39 ファイル履歴 ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{F6B6E965-E9B2-444B-9286-10C9152EDBC5}

get_desktop_info.wsf
<JOB>
<SCRIPT language="VBScript">
bFlg = True

' 必要なオブジェクト
Set Fs = CreateObject( "Scripting.FileSystemObject" )
Set WshShell = CreateObject( "WScript.Shell" )
Set Shell = CreateObject( "Shell.Application" )

' ファイル
strPath = "Desktop_info.htm"
Set OutFile = Fs.OpenTextFile( strPath, 2, True )

' HTML 骨格部分
OutFile.WriteLine "<HTML><HEAD><TITLE>ProcessList</TITLE>"
OutFile.WriteLine "<META http-equiv=""Content-Type"" content=""text/html; charset=shift_jis"">"
OutFile.WriteLine "<STYLE type=""text/css"">* { font-size:12px;}</STYLE>"
OutFile.WriteLine "</HEAD><BODY>"
OutFile.WriteLine "<TABLE>"
OutFile.WriteLine "<TR>"

OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap></TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>名称</TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>タイプ</TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>パス</TH>"
if bFlg then
	OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>説明</TH>"
end if

OutFile.WriteLine "</TR>"

' デスクトップ
Set objFolder = Shell.NameSpace( 0 )
' アイテムコレクション
Set objFolderItems = objFolder.Items()

' HTML データ部分
nCnt = 0
For Each item in objFolderItems 
	OutFile.WriteLine "<TR>"
	strCss = ""
	if nCnt Mod 2 = 0 then
		strCss = "style='background-color:#D0D0D0;'"
	end if

	' 連番
	OutFile.WriteLine "<TD nowrap " & strCss & "><B>" & (nCnt + 1) & "</b></TD>"

	' 詳細データ
	OutFile.WriteLine "<TD nowrap " & strCss & "><B>" & objFolder.GetDetailsOf(item, 0)  & "</b></TD>"
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & objFolder.GetDetailsOf(item, 2)  & "</TD>"
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & item.Path  & "</TD>"

if bFlg then
	on error resume next
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & objFolder.GetDetailsOf(item, -1)  & "</TD>"
	if Err.Number <> 0 then
		OutFile.WriteLine "<TD nowrap " & strCss & "></TD>"
	end if
	on error goto 0
end if

	OutFile.WriteLine "</TR>"
	nCnt = nCnt + 1
Next 

OutFile.WriteLine "</TABLE></BODY></HTML>"
OutFile.Close

WshShell.Run( "RunDLL32.EXE shell32.dll,ShellExec_RunDLL """ & _
	WshShell.CurrentDirectory & "\" & strPath & """" )
</SCRIPT>
</JOB>


get_control_info_0.wsf
<JOB>
<SCRIPT language="VBScript">
bFlg = False

' 必要なオブジェクト
Set Fs = CreateObject( "Scripting.FileSystemObject" )
Set WshShell = CreateObject( "WScript.Shell" )
Set Shell = CreateObject( "Shell.Application" )

' ファイル
strPath = "Control_info_0.htm"
Set OutFile = Fs.OpenTextFile( strPath, 2, True )

' HTML 骨格部分
OutFile.WriteLine "<HTML><HEAD><TITLE>ProcessList</TITLE>"
OutFile.WriteLine "<META http-equiv=""Content-Type"" content=""text/html; charset=shift_jis"">"
OutFile.WriteLine "<STYLE type=""text/css"">* { font-size:12px;}</STYLE>"
OutFile.WriteLine "</HEAD><BODY>"
OutFile.WriteLine "<TABLE>"
OutFile.WriteLine "<TR>"

OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap></TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>名称</TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>タイプ</TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>パス</TH>"
if bFlg then
	OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>説明</TH>"
end if

OutFile.WriteLine "</TR>"

' コントロールパネル
Set objFolder = Shell.NameSpace( "::{26EE0668-A00A-44D7-9371-BEB064C98683}\0" )

' アイテムコレクション
Set objFolderItems = objFolder.Items()

' HTML データ部分
nCnt = 0
For Each item in objFolderItems 
	OutFile.WriteLine "<TR>"
	strCss = ""
	if nCnt Mod 2 = 0 then
		strCss = "style='background-color:#D0D0D0;'"
	end if

	' 連番
	OutFile.WriteLine "<TD nowrap " & strCss & "><B>" & (nCnt + 1) & "</b></TD>"

	' 詳細データ
	OutFile.WriteLine "<TD nowrap " & strCss & "><B>" & objFolder.GetDetailsOf(item, 0)  & "</b></TD>"
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & objFolder.GetDetailsOf(item, 2)  & "</TD>"
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & item.Path  & "</TD>"
if bFlg then
	on error resume next
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & objFolder.GetDetailsOf(item, -1)  & "</TD>"
	if Err.Number <> 0 then
		OutFile.WriteLine "<TD nowrap " & strCss & "></TD>"
	end if
	on error goto 0
end if

	OutFile.WriteLine "</TR>"
	nCnt = nCnt + 1
Next 

OutFile.WriteLine "</TABLE></BODY></HTML>"
OutFile.Close

WshShell.Run( "RunDLL32.EXE shell32.dll,ShellExec_RunDLL """ & WshShell.CurrentDirectory & "\" & strPath & """" )
</SCRIPT>
</JOB>



タグ:Windows7
posted by lightbox at 2019-01-15 16:10 | Windows10 | このブログの読者になる | 更新情報をチェックする
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり