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, 2428 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
Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (35)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (15)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

Backup
Backup Wochen- Monats- Jahressicherung (13)

Frage von Meterpeter zum Thema Backup ...

RedHat, CentOS, Fedora
Fedora, RedHat, Centos: DNS-Search Domain setzen (13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...