6
VBScript - Kopiere lokale Datei auf mehrere Netzwerkpfade
Hallo liebe Gemeinde
Ich versuche folgendes per VBScript zu lösen.
Eine Datei soll auf 6 verschiedene Server kopiert werden (alle in den gleichen Pfad). Die Servernamen unterscheiden sich lediglich am Ende mit der Zahl. Also Server01, Server02, Server03 etc.
Wie kann ich das bewerkstelligen?
Grüsse
Ich versuche folgendes per VBScript zu lösen.
Eine Datei soll auf 6 verschiedene Server kopiert werden (alle in den gleichen Pfad). Die Servernamen unterscheiden sich lediglich am Ende mit der Zahl. Also Server01, Server02, Server03 etc.
Wie kann ich das bewerkstelligen?
Grüsse
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 276726
Url: https://administrator.de/contentid/276726
Printed on: April 19, 2024 at 21:04 o'clock
6 Comments
Latest comment
Wie kann ich das bewerkstelligen?
So z.B.Die fso, arrServers, Server
set fso = CreateObject("Scripting.FileSystemObject")
arrServers = Array("Server01","Server02","Server03","Server08")
For each Server in arrServers
fso.CopyFile "c:\datei.txt", "\\" & Server & "\PfadXYZ\",True
NextGruß jodel32
super danke dir!
habe doch noch eine kleine Frage. Ich habe eine MsgBox eingefügt. Jedoch muss ich jeden copy-job einzeln bestätigen.
MsgBox ("Transfer Complete on ") & Server, ,Server
Kann man nach Beendigung eine MsgBox anzeigen lassen mit den Erfolgreichen copy-jobs und mit den fehlgeschlagenen?
MsgBox ("Transfer Complete on ") & Server, ,Server
Kann man nach Beendigung eine MsgBox anzeigen lassen mit den Erfolgreichen copy-jobs und mit den fehlgeschlagenen?
On Error Resume Next
Die fso, arrServers, Server, failedJobs
set fso = CreateObject("Scripting.FileSystemObject")
arrServers = Array("Server01","Server02","Server03","Server08")
For each Server in arrServers
fso.CopyFile "c:\datei.txt", "\\" & Server & "\PfadXYZ\",True
If Err.Number <> 0 then
failedJobs = failedJobs & Server & " : " & Err.Description & vbNewline
Err.Clear
End if
Next
if failedJobs <> "" then
msgbox "Transfer Completed, but the following Servers had errors:" & vbNewline & failedJobs, vbInformation
else
msgbox "Transfer completed successfully!", vbInformation
End if
danke dir! Ist es möglich, anzugeben, was genau der Fehler ist? Momentan kommt nur die Meldung, dass beim Server XYZ ein Fehler aufgetreten ist.Zitat von @chasperlisimba1:
danke dir! Ist es möglich, anzugeben, was genau der Fehler ist? Momentan kommt nur die Meldung, dass beim Server XYZ ein
Fehler aufgetreten ist.
Sicher, ist oben ergänzt, das hätte man aber eigentlich auch schnell selber in Erfahrung gebracht wenn man sich die Eigenshaften des Err Objekts denn mal angeschaut hätte ... danke dir! Ist es möglich, anzugeben, was genau der Fehler ist? Momentan kommt nur die Meldung, dass beim Server XYZ einFehler aufgetreten ist.
http://www.devguru.com/technologies/vbscript/14019
