DHCP-leases script but with date in log

RouterOS Scripting
1

I have this script:

:local i;
:local hostip;
:local hostname;
:local dhcplist “”;
:local leasesall [ :len [ /ip dhcp-server lease find where server=dhcp1 ] ];
:local firmware [ /system routerboard get current-firmware ];
:local routeros [ /system package get number=0 value-name=version ];
:local macaddress;
/ip dhcp-server lease;
:foreach i in=[find where server=dhcp1 ] do={
:set hostname [get $i host-name];
:set hostip [get $i address];
:set macaddress [get $i active-mac-address];
:set dhcplist ($dhcplist . $hostname . " " . $hostip . " ". $macaddress . “\n”);
};
/tool e-mail send to=email@address.be subject=“Mail subject” body=( “Aantal DHCP leases: $leasesall\n\nFirmware: $firmware\nRouterOS: $routeros\n\n” . $dhcplist );

I would also like to mention the date and time when the log was sent.
RouterOs and Firmware may be removed from that script
Someone an idea how to do that.
ThanksThanks

2

try this :
:local i;
:local hostip;
:local hostname;
:local dhcplist “”;
:local date [/system clock get date];
:local time [/system clock get time];
:local leasesall [ :len [ /ip dhcp-server lease find where server=dhcp1 ] ];
:local firmware [ /system routerboard get current-firmware ];
:local routeros [ /system package get number=0 value-name=version ];
:local macaddress;
/ip dhcp-server lease;
:foreach i in=[find where server=dhcp1 ] do={
:set hostname [get $i host-name];
:set hostip [get $i address];
:set macaddress [get $i active-mac-address];
:set dhcplist ($dhcplist . $hostname . " " . $hostip . " " . $macaddress . " " . $date . " " . $time . “\n”);
};
/tool e-mail send to=email@address.be subject=“Mail subject” body=( “Aantal DHCP leases: $leasesall\n\n” . $dhcplist );