vbsスクリプトによるデータのバックアップ-ローカルからオフサイトへ

1679 ワード

vbsスクリプトによるデータのバックアップ-ローカルからオフサイトへ
メンテナンスの管理者として、データの維持は最も重要な仕事の一つです.バックアップには、現在多くのバックアップツールがありますが、システムが独自の計画タスク+vbsを通じて重要なデータのバックアップを行うこともできます.あまり話さないで、具体的な情報は以下の通りです.
このスクリプトは主に3つの部分に分かれています.
一、ディレクトリ全体をコピー、フォルダ+フォルダ内のファイル
strFolder1="D:\Software Install\ "  '// 
strFolder2="\\192.168.4.56\l$\"  '// , 
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder strFolder1, strFolder2
msgbox "finish"

二、ディレクトリの下のファイルをバックアップし、フォルダをコピーしない
On Error Resume Next
Dim strFolder1,strFolder2
strFolder1="E:\test"  '// 
strFolder2="E:\B\"  '// , 
Call CopyFiles(strFolder1)
MsgBox " !"
WScript.Quit
Sub CopyFiles(strPath)
  Dim Folder,subFolders,Files,File,fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Folder = fso.Getfolder(strPath)
  Set subFolders = Folder.subFolders
  Set Files = Folder.Files
  For Each File In Files
      fso.CopyFile File.Path,strFolder2,False ' false, 
      If Err.Number<>0 Then Err.Clear
  Next
  For Each subfolder In subFolders
      CopyFiles(subFolder.Path) ' 
  Next
End Sub

三、バックアップディレクトリの下の指定ファイル
On Error Resume Next
Dim strFolder1,strFolder2
strFolder1="D:\IIS\ChangPwd\log\resetlog.txt"  '// 
strFolder2="\\192.168.7.31\d$\IIS2\"  '// , 
Call CopyFiles(strFolder1)
MsgBox " !"
WScript.Quit
Sub CopyFiles(strPath)
  Dim Folder,subFolders,Files,File,fso
  Set fso = CreateObject("Scripting.FileSystemObject")
      
      fso.CopyFile strFolder1,strFolder2,True ' false, 
        
End Sub