Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 2439 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 Server
gelöst Roaming Profile aktive Synchronisation (6)

Frage von heinz2017 zum Thema Windows Server ...

Netzwerke
gelöst PC "verliert" Domänennetzwerk bei mehreren IPs auf (dem) einen NIC des PCs (4)

Frage von Overload zum Thema Netzwerke ...

Windows Netzwerk
gelöst Mehrere Windows PCs gleichzeitig zur Domäne (4)

Frage von PharIT zum Thema Windows Netzwerk ...

Neue Wissensbeiträge
Humor (lol)

Wo ist der Fehler auf dem Bild?

(17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Userverwaltung
Ordner-Rechte für Dom.Admin einschränken? (13)

Frage von kilobyte zum Thema Windows Userverwaltung ...