|
<JOB>
<COMMENT>
************************************************************
オブジェクト定義
************************************************************
</COMMENT>
<OBJECT id="Lbox" progid="Lbox.BatchHelper" />
<OBJECT id="Fs" progid="Lbox.Fsystem" />
<OBJECT id="Database" progid="Lbox.Database" />
<OBJECT id="Ftp" progid="Lbox.Ftp" />
<OBJECT id="Outer" progid="Lbox.OuterDll" />
<OBJECT id="Prt" progid="Lbox.Prt" />
<OBJECT id="Window" progid="Lbox.Window" />
<OBJECT id="Wnet" progid="Lbox.Wnet" />
<OBJECT id="WshShell" progid="WScript.Shell" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />
<SCRIPT language=VBScript>
on error resume next
EditorPath = WshShell.RegRead("HKLM\SOFTWARE\WinOfSql\Editor")
if Err.Number <> 0 then
Lbox.MsgOk( "エディタエントリがありません " )
WScript.Quit
end if
on error goto 0
if EditorPath = "" then
Lbox.MsgOk( "エディタエントリがありません " )
WScript.Quit
end if
strInstallDir = WshShell.RegRead("HKLM\SOFTWARE\WinOfSql\InstallDir")
strInstallDir = strInstallDir & "\WinOfSql.ini"
EditorPath = Lbox.Enclose( EditorPath, """" )
Value = "0,開く," & EditorPath & " /j=$02 ""$04\$01"",【ファイル名】"
if not Fs.SetInifileString( "UserMenu", "99", Value, strInstallDir ) then
Lbox.MsgOk( "WinOfSql.ini の書き込みに失敗しました " )
WScript.Quit
end if
Lbox.MsgOk( "WinOfSql.ini の書き込みを終了しました " )
</SCRIPT>
</JOB>
| |