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
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 276726
Url: https://administrator.de/forum/vbscript-kopiere-lokale-datei-auf-mehrere-netzwerkpfade-276726.html
Ausgedruckt am: 27.04.2025 um 15:04 Uhr
6 Kommentare
Neuester Kommentar
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
