Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Synchronisation mehrerer Pcs übers Netzwerk

Frage Entwicklung VB for Applications

Mitglied: DKuhn123

DKuhn123 (Level 1) - Jetzt verbinden

14.12.2009, aktualisiert 15:18 Uhr, 2436 Aufrufe

Hallo,
Ich arbeite gerade ein einem hta script mit welchem ich von einem Computer aus bestimmte Dateien auf die anderen Computer auf dem Netzwerk kopieren bzw löschen möchte.
Nun habe ich folgendes Problem.
Ich möchte nicht dass das Script nicht sofort schließt sondern wartet bis die Anweisung beendet ist.
Im Internet habe ich folgendes dazu gefunden.


'Verweis auf das Windows Script Host Object Model(WSH) ist nötig!
Dim objWSH_Shell As WshShell
Dim objWSH_Exec As WshExec

Set objWSH_Shell = New WshShell

'Anwendung starten (Kommandoparameter sind möglich)
Set objWSH_Exec = _
objWSH_Shell.Exec("Pfad/Name_der_Anwendung.exe")

With objWSH_Exec
'Auf Terminierung der Anwendung warten
Do While .Status = WSHRunning
DoEvents
Loop

'Auswertung des Rückgabeparameters
Select Case .ExitCode
'Die ExitCodes sind von der gestarteten
'Anwendung abhängig!
End Select
End With








Und ich versuche schon das den Ganzen Tag in meinen Code einzufügen doch es will auf Teufel komm raus nicht funktionieren egal wie ich es einfüge.
Könntet ihr mir vllt sagen wie ich das anstelle?
Hier mal der VBS Teil.









<script language="VBScript">
MoveTo 250,100
ResizeTo 310,425

Public PcNummer
Sub Operation2(PC)
If PC = 10 Then
PcNummer = PC
else
PcNummer = "0" & PC
End If
End Sub
Sub Synchro()

objWSH_Shell.Exec("del \\Training" & PcNummer & "\Training" & PcNummer & "$\Works /Q/F/S")
objWSH_Shell.Exec("del \\Training" & PcNummer & "\Training" & PcNummer & "$\DXF /Q/F/S")
objWSH_Shell.Exec("del \\Training" & PcNummer & "\Training" & PcNummer & "$\database /Q/F/S")
objWSH_Shell.Exec("del \\Training" & PcNummer & "\Training" & PcNummer & "$\Contour /Q/F/S")
objWSH_Shell.Exec("del \\Training" & PcNummer & "\Output" & PcNummer & "$ /Q/F/S")
objWSH_Shell.Exec("del \\Training" & PcNummer & "\Profi" & PcNummer & "$ /Q/F/S")
objWSH_Shell.Exec("del \\Training" & PcNummer & "\Training" & PcNummer & "$\registry /Q/F/S")

objWSH_Shell.Exec ("xcopy C:\Synchronisation\database \\Training" & PcNummer & "\Training" & PcNummer & "$\database /S/Y")
objWSH_Shell.Exec ("xcopy C:\Synchronisation\Contour \\Training" & PcNummer & "\Training" & PcNummer & "$\Contour /S/Y")
objWSH_Shell.Exec ("xcopy C:\Synchronisation\Output \\Training" & PcNummer & "\Output" & PcNummer & "$ /S/Y")
objWSH_Shell.Exec ("xcopy C:\Synchronisation\ProfDXF \\Training" & PcNummer & "\Profi" & PcNummer & "$ /S/Y")
objWSH_Shell.Exec ("xcopy C:\Synchronisation\registry \\Training" & PcNummer & "\Training" & PcNummer & "$\registry /S/Y")

End Sub
</script>



Ich wäre euch sehr dankbar.
Lg DKuhn
Ähnliche Inhalte
Windows Netzwerk
gelöst Mehrere Windows PCs gleichzeitig zur Domäne (4)

Frage von PharIT zum Thema Windows Netzwerk ...

Grafikkarten & Monitore
gelöst Ein Display, mehrere PCs (13)

Frage von Thorsten85 zum Thema Grafikkarten & Monitore ...

Microsoft
Synchronisation - Benutzerdaten (1)

Frage von Timi97 zum Thema Microsoft ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (28)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
Ping u. DNS geht am Rechner nicht mehr (21)

Frage von Kuemmel zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (18)

Frage von NoHopeNoFear zum Thema LAN, WAN, Wireless ...