<PACKAGE> <JOB> <RUNTIME> <DESCRIPTION> ******************************************************************* プログラム名 : SQLの窓開発バッチ ******************************************************************* </DESCRIPTION> <EXAMPLE> 引数無し </EXAMPLE> </RUNTIME> <COMMENT> ************************************************************ オブジェクト定義 ************************************************************ </COMMENT> <OBJECT id="Lbox" progid="Lbox.BatchHelper" /> <OBJECT id="Fs" progid="Lbox.Fsystem" /> <OBJECT id="Outer" progid="Lbox.OuterDll" /> <OBJECT id="Ftp" progid="Lbox.Ftp" /> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <COMMENT> ************************************************************ カレントスクリプト ************************************************************ </COMMENT> <SCRIPT language=VBScript> if not Lbox.MsgOkCancel( "SQLの窓開発バッチを実行します" & vbCrLf & "よろしいですか?" ) then Wscript.Quit end if '***************************************** ' WinOfSql.exe のコピー '***************************************** Src = "D:\WSC\WinOfSql\Release\WinOfSql.exe" Dest = "C:\Program Files\WinOfSql\" if Fs.ShellCopy( Src, Dest ) then Lbox.CopyToMemo( "★:" & Src & " のコピーに成功しました" & vbCrLf ) else Lbox.CopyToMemo( Src & " のコピーに失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit end if '***************************************** ' Lbox.dll のコピー '***************************************** Src = "D:\WSC\Lbox\ReleaseMinDependency\Lbox.dll" Dest = "C:\Program Files\WinOfSql\Tool\parts\" if Fs.ShellCopy( Src, Dest ) then Lbox.CopyToMemo( "★:" & Src & " のコピーに成功しました" & vbCrLf ) else Lbox.CopyToMemo( Src & " のコピーに失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit end if '***************************************** ' Lbox の圧縮 '***************************************** Src = "F:\Lbox.lzh" Dest = Lbox.FileList( "D:\WSC\Lbox", "*.*", 2 ) Dest = Replace( Dest, vbTab & """D:\WSC\Lbox\Lbox.ncb""", "" ) Ret = Outer.FreezeLzh( Src, Dest ) if Left( Ret, 6 ) = "ERROR:" then Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit else Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf ) Lbox.CopyToMemo( Dest & vbCrLf ) end if '***************************************** ' WinOfSql_src.lzh の圧縮 '***************************************** Src = "F:\WinOfSql_src.lzh" Dest = Lbox.FileList( "D:\WSC\WinOfSql", "*.*", 2 ) Dest = Replace( Dest, vbTab & """D:\WSC\WinOfSql\WinOfSql.ncb""", "" ) Ret = Outer.FreezeLzh( Src, Dest ) if Left( Ret, 6 ) = "ERROR:" then Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit else Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf ) Lbox.CopyToMemo( Dest & vbCrLf ) end if '***************************************** ' lightbox_src.lzh の圧縮 '***************************************** Src = "F:\lightbox_src.lzh" Dest = Lbox.FileList( "D:\WSC\MATERIAL\lightbox", "*.*", 2 ) Dest = Replace( Dest, vbTab & """D:\WSC\MATERIAL\lightbox\lightbox.ncb""", "" ) Ret = Outer.FreezeLzh( Src, Dest ) if Left( Ret, 6 ) = "ERROR:" then Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit else Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf ) Lbox.CopyToMemo( Dest & vbCrLf ) end if '***************************************** ' WinOfSql.lzh の圧縮 '***************************************** Src = "F:\WinOfSql.lzh" Dest = "C:\Program Files\WinOfSql\WinOfSql.exe" Dest = Dest & vbTab & "C:\Program Files\WinOfSql\EXCEL" Dest = Dest & vbTab & "C:\Program Files\WinOfSql\HELP" Dest = Dest & vbTab & "C:\Program Files\WinOfSql\MDB" Dest = Dest & vbTab & "C:\Program Files\WinOfSql\MySQL" Dest = Dest & vbTab & "C:\Program Files\WinOfSql\Oracle" Dest = Dest & vbTab & "C:\Program Files\WinOfSql\Postgres" Dest = Dest & vbTab & "C:\Program Files\WinOfSql\SQLServer" Dest = Dest & vbTab & "C:\Program Files\WinOfSql\Tool" Ret = Outer.FreezeLzh( Src, Dest ) if Left( Ret, 6 ) = "ERROR:" then Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit else Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf ) Lbox.CopyToMemo( Dest & vbCrLf ) end if '***************************************** ' lightbox.lzh のダウンロード '***************************************** Src = "http://homepage2.nifty.com/lightbox/download/lightbox.lzh" Dest = "C:\Documents and Settings\lightbox\My Documents\lightbox.lzh" Ret = Lbox.HttpDownload( Src, Dest ) if Left( Ret, 2 ) = "OK" then Lbox.CopyToMemo( "★:" & Src & " のダウンロードに成功しました" & vbCrLf ) else Lbox.CopyToMemo( Src & " のダウンロードに失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit end if '***************************************** ' lightbox.lzh の圧縮 '***************************************** Src = "C:\Documents and Settings\lightbox\My Documents\lightbox.lzh" Dest = "D:\WSC\MATERIAL\lightbox\Release\lightbox.h" Dest = Dest & vbTab & "D:\WSC\MATERIAL\lightbox\Release\lightbox.lib" Ret = Outer.FreezeLzh( Src, Dest ) if Left( Ret, 6 ) = "ERROR:" then Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit else Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf ) Lbox.CopyToMemo( Dest & vbCrLf ) end if '***************************************** ' lightbox.lzh のアップロード '***************************************** Src = "C:\Documents and Settings\lightbox\My Documents\lightbox.lzh" Dest = "/homepage/download/lightbox.lzh" Call Ftp.Connect( "サーバー", "ユーザー", "パスワード", true ) if Ftp.Upload( Dest, Src ) then Lbox.CopyToMemo( "★:" & Src & " のアップロードに成功しました" & vbCrLf ) else Lbox.CopyToMemo( Src & " のアップロードに失敗しました" & vbCrLf ) Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf ) Wscript.Quit end if Call Ftp.DisConnect() Lbox.CopyToMemo( "★★ OK ★★" & vbCrLf ) </SCRIPT> </JOB> </PACKAGE>