2011/06/21

7-zipでバックアップvbsテンプレート

Set objShell = WScript.CreateObject("WScript.Shell")
Set colEnv = objShell.Environment("User")
StrBackupFolder = objShell.ExpandEnvironmentStrings("%Apps%")' バックアップするフォルダ、ユーザー環境変数Appsで設定
StrBackup7zName = "\\FileServer\Backup.7z" ' 書庫の名前と保存先
SecretPass = "password" ' パスワード

' Backupが置かれているパスをチェック。パスが存在しない場合は中止。
Set FSO = CreateObject("Scripting.FileSystemObject")
If not FSO.FolderExists(StrBackupFolder) then WScript.Quit
Set FSO = Nothing

' %StrBackupFolder%を7z圧縮し%StrBackup7zName%.7zとする。細かいオプションは7-zipのヘルプを参考。
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\7-Zip\7z"" u -up1q0r2x1y2z1w2 -t7z -ssw -y -mhe=on -ms=100f10m -p"& SecretPass &" "& StrBackup7zName &" "& StrBackupFolder &"",7,True

0 件のコメント:

コメントを投稿