Einzelnen Beitrag anzeigen
Alt 05.06.2008, 15:55   #6 (permalink)
Killerpixel
Hardware Freak
 
Benutzerbild von Killerpixel
 

Registriert seit: 01.01.2007
Beiträge: 11.501

Killerpixel kann auf vieles stolz seinKillerpixel kann auf vieles stolz seinKillerpixel kann auf vieles stolz seinKillerpixel kann auf vieles stolz seinKillerpixel kann auf vieles stolz seinKillerpixel kann auf vieles stolz seinKillerpixel kann auf vieles stolz seinKillerpixel kann auf vieles stolz seinKillerpixel kann auf vieles stolz sein

Standard AW: [VBS]Fehlerbehandlung

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!
Das Motto der Minensucher: Wer suchet, der findet. Wer drauftritt verschwindet.

Killerpixel ist offline   Mit Zitat antworten