VBS/ファイル置き換えスクリプト
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
***リモートPCにファイルをコピーしてゆくスクリプト。更新日...
'""""""""""""""""""""""""""""""""""
'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, Tr...
'クライアント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\TES...
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, OverwriteEx...
'"""""""""""""""""""""""""""""""""
'置き換え後の情報を取得
'"""""""""""""""""""""""""""""""""
'ファイルが存在すれば
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
'ここまで
#navi(../)
終了行:
#navi(../)
***リモートPCにファイルをコピーしてゆくスクリプト。更新日...
'""""""""""""""""""""""""""""""""""
'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, Tr...
'クライアント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\TES...
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, OverwriteEx...
'"""""""""""""""""""""""""""""""""
'置き換え後の情報を取得
'"""""""""""""""""""""""""""""""""
'ファイルが存在すれば
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
'ここまで
#navi(../)
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
