2018年1月31日

リモートコンピュータにファイルをコピーして配置するVBScript

リモートホストに一律ファイルを配置する要件がありいろいろな方法が考えられたのですがDomainAdminの権限もあることですし手軽に実施したいとのことなので作成しました。

'#######################################################
 'ファイルコピーを行います。
 'クライアントPCに対してDomainAdminなどの権限が必要になります。
 '#######################################################
 Const ForReading = 1
 Const OverwriteExisting = True
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 '本スクリプトと同階層のフォルダに対象PCのIPアドレス一覧「Addresses.txt」を作成して配置しておきます。
 Set objFile = objFSO.OpenTextFile(".\Addresses.txt")
 'コピー元ファイル
 SouceFile = "C:\work\TEST_1\axengine.log"
 'アドレス一覧に記載されたコンピュータに対して順次コピーを実行
 Do Until objFile.AtEndOfStream
  　strComputer = objFile.ReadLine
  　strRemoteFile = "\\" & strComputer & "\c$\work\TEST_2\"
  　FileSpec = strRemoteFile & "axengine.log"
 'ファイルコピー
  　objFSO.CopyFile SouceFile, FileSpec, OverwriteExisting
  　If objFSO.FileExists(FileSpec) Then
 'ファイル更新日付を表示、[OK]を押すことにより次のPCの処理へ進みます。
  　　Dim f, s
  　　Set f = objFSO.GetFile(FileSpec)
  　　s = f.DateLastModified
  　　Wscript.Echo s
  　Else
  　　'Errorを表示
  　　Wscript.Echo "ERROR!!"
  　End If
 Loop