(Batch) vCard

@echo off
title vCard                      Th3_p4t0x
color a
:vcard
cls
echo.
echo Si quieres omitir algun dato presiona Intro para avanzar.
echo. 
echo Datos personales:
echo.
set/p "names=Nombres: "
set/p "last=Apellidos: "
set/p "webp=Web personal: "
set/p "correo1=Correo 1: "
set/p "correo2=Correo 2: "
set/p "correo3=Correo 3: "
echo.
echo Datos del hogar:
echo.
set/p "calleh=Calle: "
set/p "ciudadh=Ciudad: "
set/p "eoph=Estado o provincia: "
set/p "codph=Codigo postal: "
set/p "porh=Pais o region: "
set/p "telh=Telefono: "
set/p "movh=Movil: "
echo.
echo Datos del trabajo:
echo.
set/p "org=Organizacion: "
set/p "pues=Puesto: "
set/p "callet=Calle: "
set/p "ciudadt=Ciudad: "
set/p "eopt=Estado o provincia: "
set/p "codpt=Codigo postal: "
set/p "port=Pais o region: "
set/p "web=Sitio web: "
set/p "telt=Telefono: "
set/p "fax=Fax: "
echo.
echo Creando...
ping -n 2 0.0.0.0>nul
echo BEGIN:VCARD>>vcard.vcf
echo N:%last%;%names%>>vcard.vcf
echo FN:%names%>>vcard.vcf
echo ADR;INTL;PARCEL;WORK:;;%callet%;%ciudadt%;%eopt%;%codpt%;%port%>>vcard.vcf
echo ADR;DOM;PARCEL;HOME:;;%calleh%;%ciudadh%;%eoph%;%codph%;%porh%>>vcard.vcf
echo EMAIL;INTERNET:%correo1%>>vcard.vcf
echo EMAIL;INTERNET:%correo2%>>vcard.vcf
echo EMAIL;INTERNET:%correo3%>>vcard.vcf
echo ORG: %org%>>vcard.vcf
echo TEL;WORK:%telt%>>vcard.vcf
echo TEL;FAX;WORK:%fax%>>vcard.vcf
echo TEL;CELL:%movh%>>vcard.vcf
echo TEL;HOME:%telh%>>vcard.vcf
echo TITLE:%pues%>>vcard.vcf
echo URL;WORK:%web%>>vcard.vcf
echo URL:%webp%>>vcard.vcf
echo END:VCARD>>vcard.vcf
msg * Listo
goto vcard