Remote Filecopy
Wieder mal was neues...
Eine lokale Datei soll auf einen Remote-Share übertragen werden. Allerdings nur, wenn sie lokal neuer ist, als auf dem Share.
Das Script kopiert also nicht stur vor sich hin, sondern überprüft auf die Timestamps, was den aufkommenden Datentransfer angesichts täglicher Logins von PCs (im 4-stelligen Bereich) natürlich erheblich verringert.
Hier kommt der Code :
Option Expliciton error resume Next
dim fso,f,rf,localfile,remotefile,strcomputer,wshnet,pc,remotepath,diff
dim fdate, rfdate
Set fso = CreateObject("Scripting.FileSystemObject")Set wshnet = CreateObject ("wscript.network")
pc = wshnet.computername 'Rechnernamen ermitteln
localfile = "C:\INFRTOOL\DeskDisc\" &pc& ".fsf" 'Bestimmen der lokalen Dateiset f = fso.GetFile(localfile) 'lokale Dateieigenschaften ermitteln
remotefile = "\\server\share\" &pc& ".fsf" 'Bestimmen der Remotedateiset rf = fso.GetFile(remotefile) 'remote Eigenschaften ermitteln
fdate = f.DateLastModifiedrfdate = rf.DateLastModifieddiff = DateDiff("s",fdate,rfdate)
' Das hier sollte man rauskommentieren...WScript.Echo pcWScript.Echo localfileWScript.Echo "Letzte Änderung: " & f.DateLastModifiedWScript.Echo "Letzte Änderung: " & rf.DateLastModifiedWScript.Echo "Differenz: " & diff
If diff < 0 Then fso.CopyFile localfile,remotefile,trueElseWScript.QuitEnd if