// Ouverture du handle avec l'imprimante
// see : http://msdn2.microsoft.com/en-us/library/ms536027.aspx
RetAPI = API( winspool_drv, "OpenPrinterA" , &sPrinterName, &hdPrint, Null)
IF RetAPI = 0 THEN RENVOYER ""

// Exécution de la fonction une fois avec 0 pour connaître le nombre exact
cbBuf = 0
pcbNeeded = 0
// see : http://msdn2.microsoft.com/en-us/library/ms535494.aspx
RetAPI = API( winspool_drv, "GetPrinterA", hdPrint, PRINTER_INFO_LEVEL, &tPRINTER, cbBuf, &pcbNeeded)
cbBuf = pcbNeeded

// On redimensionne tPrinter de façon a avoir assez de place
// le premier tPRINTER[1] est utilisé pour stocker les adresses
// des chaines qui sont stockées après mais dans la même zone
// pcbNeeded : Nombre d'octet pour la structure et les data
// dimension(basePRINTER) : Nombre d'octet pour la structure
// donc pour être sur on prend PartieEntière(pcbNeeded/dimension(basePRINTER))+1
Dimension(tPRINTER, PartieEntière(pcbNeeded/Dimension(basePRINTER))+1)

// et on relance
// see : http://msdn2.microsoft.com/en-us/library/ms535494.aspx
RetAPI = API( winspool_drv, "GetPrinterA", hdPrint, PRINTER_INFO_LEVEL, &tPRINTER, cbBuf, &pcbNeeded)
IF RetAPI = 0 THEN
// see : http://msdn2.microsoft.com/en-us/library/ms535648.aspx
API(winspool_drv,"ClosePrinter", hdPrint)
RENVOYER ""
END

// Fermeture
// see : http://msdn2.microsoft.com/en-us/library/ms535648.aspx
API(winspool_drv,"ClosePrinter", hdPrint)

// Ici on peut exploiter
ServeurName est une chaîne = ChaîneRécupère( tPRINTER[1]:pServerName, crAdresseASCIIZ)
PrinterName est une chaîne = ChaîneRécupère( tPRINTER[1]:pPrinterName, crAdresseASCIIZ)
ShareName est une chaîne = ChaîneRécupère( tPRINTER[1]:pShareName, crAdresseASCIIZ)
PortName est une chaîne = ChaîneRécupère( tPRINTER[1]:pPortName, crAdresseASCIIZ)
DriverName est une chaîne = ChaîneRécupère( tPRINTER[1]:pDriverName, crAdresseASCIIZ)