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, 2423 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
Neuester Wissensbeitrag
Router & Routing

192.168er Adresse im öffentlichen Netz

(2)

Erfahrungsbericht von visco-c zum Thema Router & Routing ...

Ähnliche Inhalte
Visual Studio
VB.Net Screenshot übers Netzwerk übertragen (1)

Frage von Aicher1998 zum Thema Visual Studio ...

LAN, WAN, Wireless
Access Point (VLAN, Multi-SSID) legt Netzwerk lahm (8)

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

Heiß diskutierte Inhalte
Zusammenarbeit
Als Administrator im Großraumbüro (29)

Frage von Dopamin85 zum Thema Zusammenarbeit ...

Exchange Server
Test-ActiveSyncConnectivity Error nach neuem Zertifikat (22)

Frage von Driphex zum Thema Exchange Server ...

Hyper-V
HYPER V und USB (16)

Frage von Hendrik2586 zum Thema Hyper-V ...

SAN, NAS, DAS
Backupserver für KMU (14)

Frage von Leo-le zum Thema SAN, NAS, DAS ...