- 追加された行はこの色です。
- 削除された行はこの色です。
[[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
'ここまで