Code:
On Error Resume Next
Set wn = WScript.CreateObject("WScript.Network")
wn.MapNetworkDrive "o:", "snaptemp", 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
End If
if a=vbNo then
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "C:Test2.bat",1,True
End If
End If So sollte es gehen! Du hast einfach vergessen, dass man die Kurzschreibweise der IF Anweisung nur dann ohne End If lassen darf, wenn nur eine Anweisung danach kommt! Und da Du jeweils 2 hast, welche unter die Bedingung fallen werden diese logischerweise gleich ausgeführt.
Falls vbYesNo kein Cancel Button (oder ein X zu schließen der Message hat, kannst Du auch gleich mit Else arbeiten. (weiß ich jetzt nicht genau)
Siehe hier:
asphelper.de - VBScript - If...Then...Else