Script beenden

Option Explicit

Dim s, i

'Eine Endlos-Schleife
Do

i = i + 1

If MsgBox (i & ". Schleife" & vbCrLf & "Soll das Script beendet werden.", _

vbYesNo + vbExclamation, "Abbrechen der Schleife") = vbYes Then

WScript.quit

End If
Loop