拡張子:txtvbswsfjsphpjavahtmlutf8sjis <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> 拡張子:txtvbswsfjsphpjavahtmlutf8sjis [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\""
<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>
[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\""
拡張子:txtvbswsfjsphpjavahtmlutf8sjis <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 ) and &HFFFFFFEF WshShell.RegWrite strPath & "\" & strEntry, nData, "REG_DWORD" End Function </SCRIPT> </JOB>
<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 ) and &HFFFFFFEF WshShell.RegWrite strPath & "\" & strEntry, nData, "REG_DWORD" End Function </SCRIPT> </JOB>