[[FrontPage]]

* [#pd89c632]
 '===================================’
 '
 '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