Alles klar, werd mir das fürs nächste Skript mal im Hinterkopf behalten.
Beim aktuellen wurde nun die Anforderung vom Cheftechniker geändert. -.-
Das ganze sieht jetz so aus:
Code:
On Error Resume Next
rem <<- Netzlaufwerk verbinden ->>
Set wn = WScript.CreateObject("WScript.Network")
wn.MapNetworkDrive "o:", "\snaptemp", False
rem <<- Überprüfung, ob Ziellaufwerk erreichbar ist ->>
If Err.Number = -2147024843 then
a=MsgBox("Ist der Netzwerkfehler behebbar?", vbCritical + vbYesNo, "Netzlaufwerk nicht erreichbar")
if a=vbYes then
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "C:Test.bat",1,True
if a=vbNo then
WScript.Quit
End If
rem On Error Resume Next
rem <<- Überprüfung, ob Laufwerk bereits benutzt wird. ->>
If Err.Number = -2147024811 then
a=msgbox("Laufwerk wird bereits benutzt, bitte Problem beheben und Programm neustarten.", vbCritical + vbOKOnly, "Ziellaufwerk wird bereits benutzt")
if a=vbOk then WScript.Quit
End If
rem On Error Resume Next
rem <<- Überprüfung, ob Netzwerk verfügbar ist ->>
If Err.Number = -2147023665 then
a=msgbox("Netzwerk nicht verfügbar, bitte Problem beheben und Programm erneut starten", vbCritical + vbOKOnly, "Netzwerk nicht bereit")
if a=vbOk then WScript.Quit
End if
rem <<- Start des Sicherungsskripts ->>
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "C:Test.bat",1,True Und wurde als okay abgenickt.
Was man als Praktikant nich alles zu tun bekommt, wenn im Laden nix los is.^^
Danke dir jedenfalls Exit!