FrontPage

'===================================’
'
'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