Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\CLSID\{C73A1C91-1AC3-416C-8AEE-56B26891B1E3}]
@="てすと"
[HKEY_CLASSES_ROOT\CLSID\{C73A1C91-1AC3-416C-8AEE-56B26891B1E3}\DefaultIcon]
@="%SystemRoot%\\system32\\SHELL32.dll,1"
' 引数のチェック
if WScript.Arguments.Count = 1 then
strParam = WScript.Arguments(0)
end if
strParam = Trim( strParam )
' 無ければ、クリップボード
if strParam = "" then
' クリップボード用
' ※ HTA 等では直接 window.clipboardData より実行
' ※ するように書き換える必要があります
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
Do While objIE.Busy
' 100 ミリ秒
Wscript.Sleep 100
Loop
strParam = objIE.document.parentWindow.clipboardData.GetData( "Text" ) & ""
objIE.Quit
end if
strParam = Trim( strParam )
' 無ければ入力
if strParam = "" then
strParam = InputBox("開く対象となるレジストリーのキーを入力して下さい")
end if
if strParam = "" then
Wscript.Quit
end if
' レジストリ書き込み用
Set WshShell = CreateObject( "WScript.Shell" )
' WMI用
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
' レジストリエディタが最後に開いていたキーの登録を行います
strPath = "Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"
if GetOSVersion() >= 6 then
strRegPath = "コンピュータ\" & strParam
else
strRegPath = "マイ コンピュータ\" & strParam
end if
' 既に regedit が実行中の場合はいったん終了させます
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'regedit.exe'")
For Each objProcess in colProcessList
' 最後のウインドウの位置とサイズを保存する為の終わらせ方
WshShell.AppActivate("レジストリ エディタ")
Wscript.Sleep(500)
WshShell.SendKeys ("%{F4}")
Wscript.Sleep(500)
' 上記終わらせ方が失敗した時の強制終了
on error resume next
objProcess.Terminate()
on error goto 0
Next
WshShell.RegWrite "HKCU\" & strPath, strRegPath, "REG_SZ"' レジストリエディタを起動します
Call WshShell.Run( "regedit.exe" )
' レジストリエディタが終わるまで待つ場合は以下のようにします' Call WshShell.Run( "regedit.exe", , True )
REM **********************************************************
REM OS バージョンの取得
REM **********************************************************
Function GetOSVersion()
Dim colTarget,str,aData,I,nTarget
Set colTarget = objWMIService.ExecQuery( _
"select Version from Win32_OperatingSystem" _
)
For Each objRow in colTarget
str = objRow.Version
Next
aData = Split( str, "." )
For I = 0 to Ubound( aData )
if I > 1 then
Exit For
end if
if I > 0 then
nTarget = nTarget & "."
end if
nTarget = nTarget & aData(I)
Next
GetOSVersion = CDbl( nTarget )
End Function
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\{C73A1C91-1AC3-416C-8AEE-56B26891B1E3}]
@="てすと"
デスクトップにオリジナルアイコンを登録してカスタマイズする為の手順
CLSID そのものの登録は、HKEY_CLASSES_ROOT\CLSID に登録しますが、CLSID そのものは以下のプログラムで
取得した ID を使用します( 毎回違う ID を取得できるので、一つを決定して下さい )
以下のレジストリ登録で実装されますが、要するに 
レジストリにあるコントロールパネルのネームスペースに CLSID を登録します
