|
<JOB>
<COMMENT>
************************************************************
標準的なオブジェクト
************************************************************
</COMMENT>
<OBJECT id="WshShell" progid="WScript.Shell" />
<OBJECT id="WshNetwork" progid="WScript.Network" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />
<OBJECT id="Dic" progid="Scripting.Dictionary" />
<OBJECT id="Shell" progid="Shell.Application" />
<OBJECT id="Cn" progid="ADODB.Connection" />
<OBJECT id="Rs" progid="ADODB.Recordset" />
<OBJECT id="Stream" progid="ADODB.Stream" />
<OBJECT id="Adox" progid="ADOX.Catalog" />
<REFERENCE object="ADODB.Connection" />
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
language="VBScript"
src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
laylaLoadFunction( "http://homepage2.nifty.com/lightbox/baseFunction.vbs" )
laylaLoadFunction( "http://homepage2.nifty.com/lightbox/wmiReg.vbs" )
Wscript.Echo Ss(laylaGetVersion)
strTarget = "layla001"
strPath = "." & strTarget
' 対象キー削除
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strPath & "\ShellNew" )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strPath )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strTarget & "\shell\open\command" )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strTarget & "\shell\open" )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strTarget & "\shell" )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strTarget )
Call WMIRegCreateKey( HKEY_CLASSES_ROOT, strPath & "\ShellNew" )
Call WMIRegSetStringValue( HKEY_CLASSES_ROOT, strPath, Empty, strTarget )
strCommand = _
"wscript.exe ""C:\Program Files\laylaClass\" & strTarget & ".vbs"" ""%1"""
Call WMIRegSetStringValue( _
HKEY_CLASSES_ROOT, _
strPath & "\ShellNew", "Command", strCommand )
Call WMIRegCreateKey( HKEY_CLASSES_ROOT, strTarget & "\shell\open\command" )
Call WMIRegSetStringValue( HKEY_CLASSES_ROOT, strTarget, Empty, "HTML作成" )
strCommand = """notepad.exe"" ""%1"""
Call WMIRegSetStringValue( _
HKEY_CLASSES_ROOT, _
strTarget & "\shell\open\command", Empty, strCommand )
</SCRIPT>
</JOB>
| |