Macro for adding Drawnby and Drawndate

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

Drawnby Property - Text -"MDJ"

Drawndate - Date - The current day

Thanks

SolidworksApi macros