Can someone help me with a macro to add the following custom properties

Drawnby Property - Text -"MDJ"

Drawndate - Date - The current day

Thanks