Top-Themen

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
GELÖST

Datei auf mehrere PC kopieren (VB Skript) funktioniert nicht immer

Frage Entwicklung VB for Applications

Mitglied: chrismass

chrismass (Level 1) - Jetzt verbinden

11.03.2014 um 08:17 Uhr, 1406 Aufrufe, 8 Kommentare

Hallo zusammen. Ich habe mir ein VB Skript zusammengebastelt welches mir eine Liste von PC aus einer Textdatei ausliest und versucht eine bestimmte Datei in ein Zielverzeichnis auf jedem PC zu kopieren. Das skript läuft so weit. Allerdings kann es aus irgend einem Grund nicht auf jeden PC kopieren. Zu einigen PC kann anscheinend keine Verbindung aufgebaut werden. Manuell konnte ich die Ziel PC sowohl anpingen als auch manuell kopieren. Ich kann es mir monentan nicht so ganz erklären. Liegt es an meinem Skript?? Ich bin in der VB Programmierung nicht sehr erfahren, vielleicht kann ja mal jemand meinen Code gegenlesen.

01.
Option Explicit 
02.
Dim fso, f, objEingabe, source, exists 
03.
Dim EingabePfad, EingabeDatei, pathToClientFile, pathToRemoteFolder, programPath, client, Zeile, Position, i 
04.
 
05.
REM EingabePfad = "D:\Arbeitsbereich BitBox\BitBoxConfigFiles\" 
06.
EingabePfad = ".\" 
07.
EingabeDatei = "hosts.txt" 
08.
source = ".\config\dispatch.pac" 
09.
programPath = "c$\Program Files (x86)\sirrix AG\BitBox\dispatch.pac" 
10.
 
11.
Const ForReading = 1 
12.
Const ForWriting = 2 
13.
 
14.
set fso = CreateObject("Scripting.FileSystemObject") 
15.
 
16.
Set objEingabe = fso.OpenTextFile(EingabePfad & EingabeDatei, ForReading) 
17.
 
18.
Do Until objEingabe.AtEndOfStream 
19.
    client = objEingabe.Readline 
20.
	pathToClientFile = "\\"&client&"\"&programPath 
21.
	pathToRemoteFolder ="\\"&client&"\c$\Program Files (x86)\sirrix AG\BitBox\" 
22.
	REM msgbox pathToClientFile 
23.
	exists = fso.FolderExists(pathToRemoteFolder) 
24.
	REM msgbox exists 
25.
	if (exists) then 
26.
	fso.CopyFile source, pathToClientFile 
27.
	Set f = fso.OpenTextFile(".\log\log.txt", 8, True) 
28.
	f.WriteLine vbCr & "succesfully copied to " & client & i  
29.
    f.Close 
30.
	else 
31.
	Set f = fso.OpenTextFile(".\log\failed.txt", 8, True) 
32.
    f.WriteLine vbCr & client & i  
33.
    f.Close 
34.
	end if 
35.
Loop 
36.
	 
37.
Msgbox "Fertig!" 
38.
set fso = nothing 
39.
 
Mitglied: colinardo
11.03.2014, aktualisiert um 08:52 Uhr
Hallo chrismass,
bist du sicher das auf den entsprechenden Rechnern die Administrative Shares aktiviert sind, Wenn es ein WIN7 oder WIN8 Rechner ist, muss ja erst durch einen Registry-Eintrag (LocalAccountTokenFilterPolicy) der Zugriff aktiviert werden wenn es sich um PCs ohne Domänenmitgliedschaft handelt, oder sind die Rechner Mitglied einer Domäne (hier ist dies nicht nötig) ?

Grüße Uwe
Bitte warten ..
Mitglied: chrismass
11.03.2014 um 09:08 Uhr
Die PC sind alle Mitglied einer Domäne.
Die Ziel PC sind Win7.
Alle PC sind identisch, dh. durch ein und das selbe Image installiert.
Ich starte den Kopiervorgang als Domänenadmin, habe also die höchsten Zugriffsrechte.
Bitte warten ..
Mitglied: colinardo
11.03.2014, aktualisiert um 09:22 Uhr
bist du sicher das in der Textdatei worin die Namen der Rechner stehen kein Leerzeichen hinter oder vor dem Namen steht, denn du entfernst diese eventuellen Leerzeichen nicht mit Trim() in deinem Script.
client = Trim(objEingabe.Readline)
Bitte warten ..
Mitglied: chrismass
11.03.2014 um 09:35 Uhr
Ok ich werde es mal einbauen.
Ich bereite allerdings die Liste durch eine dsquery Abfrage an der Domäne vor und lasse mir das Ergebnis in eine Textdatei ausgeben. Anschließend bearbeite ich die Datei mit notepad++ , entferne alles unnötige und lasse zum Abschluss die Funktion"Trim Trailing Spaces" drüberlaufen.

Also ja eigentlich bin ich sicher dass keine Spaces mehr drin sind ...

Momentan habe ich aber eine andere Vermutung. Die PC stehen teilweise an einem entfernten Standort. Ich vermute dass die PC nicht in einer angemessenen Zeit antworten und deshalb nichts kopiert wird.
Bitte warten ..
Mitglied: colinardo
11.03.2014, aktualisiert um 10:01 Uhr
Zitat von chrismass:
Momentan habe ich aber eine andere Vermutung. Die PC stehen teilweise an einem entfernten Standort. Ich vermute dass die PC nicht in einer angemessenen Zeit antworten und deshalb nichts kopiert wird.
dann benutze zum kopieren Robocopy in deinem Script, mit dem kann man Timeouts und Verbindungswiederholungen bei solchen Szenarien festlegen.
01.
Set objShell = CreateObject("Wscript.Shell") 
02.
objShell.Run "robocopy ""C:\Sourcefolder"" ""\\server\targetfolder"" ""dispatch.pac"" /R:10 /W:5"
oder du pingst die Rechner voher ein paar mal in deinem Script an.

Grüße Uwe
Bitte warten ..
Mitglied: chrismass
11.03.2014 um 10:04 Uhr
Ich habe nun in einem Fall auch noch festgestellt, dass im DNS wohl ein falscher Eintrag ist. Das kann aber nicht in der Masse sein.
Ich werde das mit Robocopy gleich mal ausprobieren.
Vielen Dank!
Bitte warten ..
Mitglied: chrismass
11.03.2014 um 12:35 Uhr
Auch mit Robocopy und dem Repeat-Schalter hat es nicht funktioniert. Interessanterweise klappts sofort wenn ich den Robocopybefehl einfach in der Shell absetze.
Bitte warten ..
Mitglied: colinardo
11.03.2014, aktualisiert um 12:48 Uhr
habt Ihr einen WINS Server in eurer Domain? ansonsten mach die Pfadangabe mal in DNS-Schreibweise
\\pc1.domain.local\c$\......**
und lösch mal den DNS-Cache ipconfig /flushdns
Teste auch mal nur über die IP-Adresse
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VB Skript Excel Datei
gelöst Frage von FragerVB for Applications3 Kommentare

Hallo Zusammen, Ich brauche eure Hilfe. Ich habe eine Datei 1.xlsx nun brauche ich ein Skript, was die Datei ...

VB for Applications
VB Skript für mehrere Batch Befehle
gelöst Frage von freshman2017VB for Applications37 Kommentare

Hallo, zum Glück konntet Ihr mir schon sehr helfen, habe nun noch eine weitere Frage. Ich nutze derzeit ein ...

Batch & Shell
Skript soll Dateien in "Monats" Ordner kopieren
gelöst Frage von agnostikerBatch & Shell11 Kommentare

Ziel: Alle Dateien die innerhalb des letzten Monats erstellt wurden in einen Ordner kopieren der den Namen des aktuellen ...

VB for Applications
Hilfe bei VB Skript
Frage von Voner1502VB for Applications1 Kommentar

Hallo zusammen. Ich habe ein Skript für die Übernahme von Druckern vom alten Servern zum neuen Server bekommen. Diese ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 17 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 22 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 22 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Windows XP
Windows XP Aktivieren geht nicht
Frage von tetikmiroWindows XP13 Kommentare

Hallo Ich habe einen Windows XP mit einen vCenter Converter umgezogen auf eine ESXI. Soweit funktioniert dies auch ohne ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
gelöst Frage von prodriveNetzwerkmanagement12 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...