' ============================================
' Archivo de prueba para WebDAV
' Muestra un mensaje con dos botones
' ============================================

Dim mensaje, titulo, botones, resultado

mensaje = "¡Hola! Este es un archivo VBScript de prueba."
titulo = "WebDAV Test"
botones = vbOKCancel + vbInformation  ' Muestra OK y Cancelar

' Mostrar el mensaje
resultado = MsgBox(mensaje, botones, titulo)

' Acción según el botón presionado
If resultado = vbOK Then
    MsgBox "Has presionado OK.", vbInformation, "Respuesta"
Else
    MsgBox "Has presionado Cancelar.", vbExclamation, "Respuesta"
End If