コメント |
@DIV
<JOB>
<COMMENT>
************************************************************
WSH 実行スケルトン
名前変更可能にする
フォルダオプション/ディスク/コントロールパネル/Toolボックス
************************************************************
</COMMENT>
<OBJECT id="WshShell" progid="WScript.Shell" />
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT language=VBScript>
' Toolボックス
strPath = "HKEY_CLASSES_ROOT\CLSID\{C9C868E6-BCD1-4D3E-8F8D-334F09BDE657}\ShellFolder"
Call EnableName( strPath )
' フォルダオプション
strPath = "HKEY_CLASSES_ROOT\CLSID\{6DFD7C5C-2451-11d3-A299-00C04F8EF6AF}\ShellFolder"
Call EnableName( strPath )
' ディスク
strPath = "HKEY_CLASSES_ROOT\CLSID\{8693EDE0-F047-48E9-AE25-65CEBDC4AC8C}\ShellFolder"
Call EnableName( strPath )
' コントロールパネル
strPath = "HKEY_CLASSES_ROOT\CLSID\{21EC2020-3AEA-1069-A2DD-08002B30309D}\ShellFolder"
Call EnableName( strPath )
Function EnableName( strPath )
strEntry = "Attributes"
on error resume next
nData = WshShell.RegRead( strPath & "\" & strEntry )
if Err.Number <> 0 then
nData = 0
end if
on error goto 0
nData = CLng( nData ) or &H10
WshShell.RegWrite strPath & "\" & strEntry, nData, "REG_DWORD"
End Function
</SCRIPT>
</JOB>
@END
@DIV
[HKEY_CLASSES_ROOT\CLSID\{C9C868E6-BCD1-4D3E-8F8D-334F09BDE657}]
@="Toolボックス"
"LboxMenu"=""
"LboxTitle"="【編集メニュー】"
"LboxTitle1"="個別メニューを各アイコンに追加"
"LboxTitle2"="個別メニューを各アイコンから削除"
"LboxTitle3"="sep"
"LboxTitle4"="コマンドプロンプトに一覧表示"
"LboxTitle5"="簡易編集"
"LboxTitle6"="sep"
"LboxTitle7"="【設定を全て保存】"
"LboxCommand1"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\menuAdd.wsf\""
"LboxCommand2"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\menuDel.wsf\""
"LboxCommand4"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\listItem.wsf\""
"LboxCommand5"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\editItem.wsf\""
"LboxCommand7"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\saveAll.wsf\""
"LboxDir1"=""
"LboxDir2"=""
"LboxDir4"=""
"LboxDir5"=""
"LboxDir7"=""
"LboxTitle8"="sep"
"LboxTitle9"="追加したアイコンの名称変更を可能にする"
"LboxCommand9"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\enableName.wsf\""
"LboxTitle10"="追加したアイコンの名称変更を不可にする"
"LboxCommand10"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\disableName.wsf\""
@END
|