[[FrontPage]]

#contents

***リモートPCにファイルをコピーしてゆくスクリプト。更新日付を監視しファイルが更新されたことを確認ログを出力する。 [#la46397b]

 '==================================='
 '
 'DomainAdminの権限で実行してください
 'ファイルコピーを行います。
 'SouceFileの値を確認してください。
 '
 '=================================='
 'エラーが出た場合、飛ばして次の行に行く
 On Error Resume Next
 Set objFSO                      = CreateObject("Scripting.FileSystemObject")
 'IPアドレスかコンピュータ名を1行ずつ記述したファイルを開く
 Set objTargetFile               = objFSO.OpenTextFile(=.\Addresses.txt")
 'ログファイル指定(8=追記,true=ファイルが存在しない場合新規作成)
 Set objLogFile                  = objFSO.OpenTextFile(=.\WORK.LOG=, 8, true)
 'クライアントPCに展開するファイルのもとファイル
 SouceFile                       = “C:\work\Agent_Addresses.txt=
 'コピー先ですでに存在した場合上書きコピーするか否か
 '(TRUE=上書き,FALSE=上書きしない)
 Const OverwriteExisting         = TRUE
 
 '=================================='
 '"objTargetFile"で指定されたIPを1行ずつ実行し最後まで繰り返す
 'strRemoteFolder = コピー先フォルダ
 'FileSpec        = 置き換えファイルフルパス
 '=================================='
 Do Until objTargetFile.AtEndOfStream
     strComputer      = objTargetFile.ReadLine
     'strRemoteFolderは最後に\をつけてください
     strRemoteFolder  = “\\= & strComputer & “\c$\work\TEST_2\=
     FileName         = “Agent_Addresses.txt=
     FileFullPass     = strRemoteFolder & FileName
     
     '================================'
     '置き換え前の情報を取得
     '================================'
     Dim a, b
     If objFSO.FileExists(FileFullPass) Then
         set a       = objFSO.GetFile(FileFullPass)
         b           = a.DateLastModified
     Else
         b           = “File Exist=
  End If
     '================================'
     'ファイルコピー実行
     '================================'
     objFSO.CopyFile SouceFile, FileFullPass, OverwriteExisting
     
     '================================'
     '置き換え後の情報を取得
     '================================'
     'ファイルが存在すれば
     If objFSO.FileExists(FileFullPass) Then
         'ファイル更新日付を表示(置き換わったことを確認)
         Dim c, d
         set c       = objFSO.GetFile(FileFullPass)
         d           = c.DateLastModified
     Else
         d           = “File Exist=
 End If
 
 '=================================='
 'ログ書き込み
 '=================================='
 objLogFile.WriteLine( strComputer & = = & b & = → = & d )
 Loop
 'ここまで


トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS