Hmm..klappt leider auch nicht, er bringt mir dann ne Fehler, dass er bei dem vorletzten End If ne Anweisung erwartet....
Wenn ich die zweite batch mit else aufrufen will klappt das gar nicht.
Also so:
Code:
On Error Resume Next
Set wn = WScript.CreateObject("WScript.Network")
wn.MapNetworkDrive "o:", "snap2temp", False
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
else Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "C:Test2.bat",1,True
End If