Guten Morgen,

ich bin absoluter Neuling in VBS und muss ein Script bauen, welches Netzlaufwerke nach Passwortabfrage verbindet, dann auf beiden Netzlaufwerken eine bestimmte Datei mit der anderen vergleicht und die neuere der beiden Dateien kopiert. Wenn eines der beiden Netzlaufwerke nicht verfügbar sein sollte, ist die Datei vom jeweils verfügbaren zu kopieren.

Im Prinzip funktioniert das Script auch, doch wenn eines der beiden Netzlaufwerke nicht verfügbar ist wird die Datei nicht vom anderen Laufwerk kopiert. Das Skript bricht einfach ab.

Es wäre super wenn ihr euch den Code mal anschauen könntet. Ich poste nur den Teil der nicht funktioniert. Habe zum debuggen Messageboxen eingefügt. Es scheint schon bei der Objekterstellung zu hapern wenn eines der Laufwerke nicht verfügbar ist

if smb.driveexists("T:") then

	msgbox "Hier wird das Samba Objekt erstellt"

	Set objFilesmb = objFSO.GetFile("T:\Eigene Dateien\places.sqlite") 

if fs.driveexists("U:") then

	msgbox "Hier wird das FSI Objekt erstellt"

	Set objFilefsi = objFSO.GetFile("U:\Eigene Dateien\places.sqlite")

end if

end if


Wscript.Echo "Letzte Änderung Samba: " & objFilesmb.DateLastModified 

Wscript.Echo "Letzte Änderung FSI: " & objFilefsi.DateLastModified


Const OverWriteFiles = TRUE


if fs.driveexists("U:") and smb.driveexists("T:") then

	msgbox "Beide Laufwerke verfügbar"

	if objFilesmb.DateLastModified < objFilefsi.DateLastModified then

		msgbox "Hier wird das Bookmark vom FSI kopiert!"

		objFSO.copyfile "U:\Eigene Dateien\places.sqlite", "C:\Users\xxx\AppData\Roaming\Mozilla\Firefox\Profiles\1uv8fwuy.default" & chr(92), true

	elseif objFilesmb.DateLastModified > objFilefsi.DateLastModified then 

		msgbox "Hier wird das Bookmark vom Samba kopiert!"

		objFSO.copyfile "T:\Eigene Dateien\places.sqlite", "C:\Users\xxx\AppData\Roaming\Mozilla\Firefox\Profiles\1uv8fwuy.default" & chr(92), true


	elseif smb.driveexists("T:") then

		msgbox "Hier wird von Samba ohne Vergleich kopiert"

		objFSO.copyfile "T:\Eigene Dateien\places.sqlite", "C:\Users\xxx\AppData\Roaming\Mozilla\Firefox\Profiles\1uv8fwuy.default" & chr(92), true

	elseif fs.driveexists("U:") then

		msgbox "Hier wird vom FSI ohne Vergleich kopiert"

		objFSO.copyfile "U:\Eigene Dateien\places.sqlite", "C:\Users\xxx\AppData\Roaming\Mozilla\Firefox\Profiles\1uv8fwuy.default" & chr(92), true				

	end if

end if

Es brauch sich niemand mehr um das Problem kümmern. Habe es selbst gelöst.

Falls jemand Interesse an der Lösung hat soll er Bescheid geben. Ich poste dann den Code.

Gruß

rAvianCe