脱SEして文筆家になった人

脱SEして文筆家になった人

四ツ葉真生(よつば まお)の過去ログ。twitter共に不定期更新。

データベースメンテバッチ-ReadMe~bat/vbs


以下メモは2009年頃まで私が所持PCにて主に使用していたものである。
異環境下でもアレンジ次第で参考に出来る箇所もあるため、ここに記載しておく。
なお、各バッチの中身については、別記事にて詳細を記述していく。

-----
・在庫管理表と個人登録情報を平日22時に所定の位置にバックアップ
・同じ場所にログ出力
・管理者へログ送信
・毎月最終金曜日22時半に当月月末分バックアップのみ所定の位置に移動(移動できなくてもコピー)
・当月分の残りのバックアップは削除
-----

backup_2.batのDOSバッチ内容を記載。

-----
set LOG=%DATE% %TIME%
set BASE=\\hoge06\kanri\01all\共有データ\kizai管理表\kizai管理DB\
set PLACE=%BASE%BackUp\
echo %LOG% > %PLACE%KIZAI_log.txt
echo. >> %PLACE%KIZAI_log.txt
echo ファイル名:%date:~0,4%%date:~5,2%%date:~8,2%kizai管理_データベース.mdbとしてバックアップ >> %PLACE%KIZAI_log.txt
echo. >> %PLACE%KIZAI_log.txt
echo 場所:%PLACE% >> %PLACE%KIZAI_log.txt
echo. >> %PLACE%KIZAI_log.txt
echo F | xcopy "%BASE%kizai管理_データベース.mdb" "%PLACE%%date:~0,4%%date:~5,2%%date:~8,2%機材管理_データベース.mdb" /c /v /y >> %PLACE%KIZAI_log.txt
set LOG=%DATE% %TIME%
set BASE=\\hoge06\kanri\01all\共有データ\kojin情報登録\
set PLACE=%BASE%Backup\
echo %LOG% > %PLACE%in-out_log.txt
echo. >> %PLACE%in-out_log.txt
echo ファイル名:%date:~0,4%%date:~5,2%%date:~8,2%kojin情報登録.xlsとしてバックアップ >> %PLACE%in-out_log.txt
echo. >> %PLACE%in-out_log.txt
echo 場所:%PLACE% >> %PLACE%in-out_log.txt
echo. >> %PLACE%in-out_log.txt
echo F | xcopy "%BASE%kojin情報登録.xls" "%PLACE%%date:~0,4%%date:~5,2%%date:~8,2%kojin情報登録.xls" /c /v /y >> %PLACE%in-out_log.txt
cscript "C:\Documents and Settings\Administrator\デスクトップ\台帳backup\send_log.vbs"
exit
-----

send_log.vbsのVBスクリプト内容を記載。

-----
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "FilesBackUpper@hoge.co.jp"
objEmail.To = "admin@hoge.co.jp"
objEmail.Subject = "【News】台帳バックアップLog"
objEmail.Textbody = "台帳バックアップLog" & vbCrLf & Now
' objEmail.Htmlbody = "<H1>台帳バックアップLog</H1>"
objEmail.AddAttachment("\\hoge06\kanri\01all\共有データ\kojin情報登録\Backup\in-out_log.txt")
objEmail.AddAttachment("\\hoge06\kanri\01all\共有データ\kizai管理表\機材管理DB\BackUp\kizai_log.txt")

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.hoge.co.jp"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

objEmail.Send
-----

del_2.batのDOSバッチ内容を記載。

-----
set BASE=\\hoge06\kanri\01all\共有データ\kizai管理表\kizai管理DB\BackUp\
move /y %BASE%%date:~0,4%%date:~5,2%%date:~8,2%* %BASE%過去分
echo F | xcopy %BASE%%date:~0,4%%date:~5,2%%date:~8,2%* %BASE%過去分 /c /v /r
del %BASE%%date:~0,4%%date:~5,2%* /f /q
set BASE=\\hoge06\kanri\01all\共有データ\kojin情報登録\Backup\
move /y %BASE%%date:~0,4%%date:~5,2%%date:~8,2%* %BASE%過去分
echo F | xcopy %BASE%%date:~0,4%%date:~5,2%%date:~8,2%* %BASE%過去分 /c /v /r
del %BASE%%date:~0,4%%date:~5,2%* /f /q

広告を非表示にする