@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 ) and &HFFFFFFEF
	WshShell.RegWrite strPath & "\" &  strEntry, nData, "REG_DWORD"

End Function
</SCRIPT>
</JOB>
@END