How to read personal data of German e-Health Card eGK

How can I read my personal data from the German eGK?

This is very easy via the following script:

set csp = createobject(“aloahacsp.aloaha_csp”)
if csp.set_reader(0)=true then

    msgbox csp.get_eGK_Data(1)
    msgbox csp.get_eGK_Data(2)
    msgbox csp.get_eGK_Data(3)
    call csp.disconnect

end if
set csp = nothing

Kindly note that you need a KIOSK License in case you need to read more than 10 health cards on the same machine!