Lister les imprimantes par utilisateur

Lister les imprimantes par utilisateur - VB/VBA/VBS - Programmation

Marsh Posté le 23-06-2017 à 15:57:38    

Bonjour à tous,
 
J'aimerai créer un script qui serai capable de me lister les imprimantes connectées à mes utilisateurs.
En clair pour chaque utilisateur une liste des imprimantes qu'il utilise.
 
Si quelqu'un a une idée  
 
j'ai trouvé un script mais c'etait par rapport au nom du pc et fallait taper chaque pc donc bon...
 
 
Merci d'avance

Reply

Marsh Posté le 23-06-2017 à 15:57:38   

Reply

Marsh Posté le 23-06-2017 à 16:45:16    

Bonjour,
 
Un vieux code que fonctionne toujours en 32 bits (à adapter si 64 bits) :

Code :
  1. Option Explicit
  2. Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyA" _
  3.         (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
  4. Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As Long) As Long
  5. Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" _
  6.         (ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Long, _
  7.         ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
  9. Type Imprimante_1
  10.   flags As Long
  11.   pDescription As String
  12.   pName As String
  13.   pComment As String
  14. End Type
  16. Function EnumèreImprimantes() As String
  17. ' Objet     : Liste les imprimantes installées
  18. '
  19. ' Retour    : String              Liste des noms des imprimantes installées ou chaine vide si
  20. '                                 aucune imprimante n'est installée.
  21. '
  22. ' 04/07/07    Patrice             Création
  23.  
  24.   Dim BufferLong() As Long         ' Tableau qui reçoit les informations de EnumPrinters
  25.   Dim Données() As Imprimante_1    ' Recoit les valeurs de BufferLong()
  26.   Dim TailleBuffer As Long         ' Taille en bytes de BufferLong()
  27.   Dim BesoinBuffer As Long         ' Nbre de bytes necessaires si BufferLong() trop court
  28.   Dim NbImprimantes As Long        ' Nbre d'imprimantes trouvées
  29.   Dim Résultat As Long             ' Résultat retournée
  30.   Dim Compteur As Integer               ' Compteur
  32.   EnumèreImprimantes = ""
  33.   ' Récolte les informations sur les imprimantes locales
  34.   TailleBuffer = 1200                                ' Taille assez importante mais pas trop
  35.   ReDim BufferLong(0 To TailleBuffer / 4) As Long    ' Redimension buffer (1 Long = 4 bytes)
  36.   Résultat = EnumPrinters(2, "", 1, BufferLong(0), TailleBuffer, BesoinBuffer, NbImprimantes)
  37.   If Résultat = 0 Then
  38.     TailleBuffer = BesoinBuffer
  39.     ReDim BufferLong(0 To TailleBuffer / 4) As Long  ' Agrandir buffer à la taille nécessaire
  40.     Résultat = EnumPrinters(2, "", 1, BufferLong(0), TailleBuffer, BesoinBuffer, NbImprimantes)
  41.     If Résultat = 0 Then Exit Function                ' Si nouvel échec, terminer
  42.   End If
  43.   If NbImprimantes = 0 Then Exit Function
  45.   ' Converti les données de BufferLong() vers Données()
  46.   ReDim Données(0 To NbImprimantes - 1) As Imprimante_1
  47.   ' Boucle qui définit chaque élément à partir du jeu d'informations reçues
  48.   For Compteur = 0 To NbImprimantes - 1
  49.     ' BufferLong(4 * Compteur) = .flags, BufferLong(4 * Compteur + 1) = .pDescription, etc.
  50.     ' Pour chaque élément, la chaine est est d'abord stockée dans le buffer pour disposer
  51.     ' d'assez de place, et alors l'élément est copié. »
  52.     Données(Compteur).flags = BufferLong(4 * Compteur)
  53.     Données(Compteur).pDescription = Space(lstrlen(BufferLong(4 * Compteur + 1)))
  54.     Résultat = lstrcpy(Données(Compteur).pDescription, BufferLong(4 * Compteur + 1))
  55.     Données(Compteur).pName = Space(lstrlen(BufferLong(4 * Compteur + 2)))
  56.     Résultat = lstrcpy(Données(Compteur).pName, BufferLong(4 * Compteur + 2))
  57.     Données(Compteur).pComment = Space(lstrlen(BufferLong(4 * Compteur + 3)))
  58.     Résultat = lstrcpy(Données(Compteur).pComment, BufferLong(4 * Compteur + 3))
  59.   Next Compteur
  61.   ' Renvoie le nom de chaque imprimante
  62.   For Compteur = 0 To NbImprimantes - 1
  63.     EnumèreImprimantes = EnumèreImprimantes & Données(Compteur).pName & vbCr
  64.   Next Compteur
  65.  
  66. End Function


---------------
Cordialement, Patrice
Reply

Marsh Posté le 26-06-2017 à 08:17:34    

Bonjour et Merci pour votre réponse.
N'étant pas un as du codage pouvez vous me dire que faut il changer pour un système 64 bits.  
Et j'ai oublié de vous dire que c'étaient des imprimantes paratgées via le serveur d'impression je ne sais pas si cela change quelque chose.
Cordialement

Reply

Marsh Posté le 26-06-2017 à 11:44:33    

J'ai essayer de mettre ce script en ouverture de session par gpo mais la commande en elle meme n'a pas l'air de fonctionner  
 
reg query HKEY_CURRENT_USER\Printers\Connections >> //monserveur/printers/%username%.txt
 
avec le dossier printers partager et tout le monde a tous les droits

Reply

Marsh Posté le 26-06-2017 à 22:35:30    

Bonjour,
 
Voila une version x32 et x64 simplifiée (il s'agit de VBA Excel)

Code :
  1. Option Explicit
  2. Private Const PRINTER_ENUM_CONNECTIONS = &H4
  3. Private Const PRINTER_ENUM_LOCAL = &H2
  4. #If Win64 Then
  5.   Private Declare PtrSafe Function StrCopy Lib "kernel32.dll" Alias "lstrcpyA" _
  6.      (ByVal lpString1 As String, ByVal lpString2 As Long) As LongPtr
  7.   Private Declare PtrSafe Function StrLen Lib "kernel32.dll" Alias "lstrlenA" _
  8.     (ByVal lpString As Long) As LongPtr
  9.   Private Declare PtrSafe Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" _
  10.     (ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Any, _
  11.      ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As LongPtr
  12. #Else
  13.   Private Declare Function StrCopy Lib "kernel32.dll" Alias "lstrcpyA" _
  14.     (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
  15.   Private Declare Function StrLen Lib "kernel32.dll" Alias "lstrlenA" _
  16.     (ByVal lpString As Long) As Long
  17.   Private Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" _
  18.     (ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Any, _
  19.      ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
  20. #End If
  22. Public Sub Test()
  23. ' Exemple d'utilisation
  24. '
  25.   MsgBox EnumèreImprimantes
  27. End Sub
  29. Public Function EnumèreImprimantes() As String
  30. Dim BufferLong() As Long          ' Informations de EnumPrinters
  31. Dim NomImprimante As String       ' Nom de l'imprimante
  32. Dim TailleBuffer As Long          ' Taille en bytes de BufferLong()
  33. Dim BesoinBuffer As Long          ' Nbre de bytes necessaires si BufferLong() trop court
  34. Dim NbImprimantes As Long         ' Nbre d'imprimantes trouvées
  35. Dim Pointeur As Long              ' Pointeur
  36. Dim Compteur As Integer           ' Compteur
  37. Dim Réussite As Boolean           ' Réussite énumération
  38.        
  39.   EnumèreImprimantes = ""
  40.   TailleBuffer = 1200
  41.   ReDim BufferLong(0 To TailleBuffer / 4) As Long
  42.   Réussite = EnumPrinters(PRINTER_ENUM_LOCAL Or PRINTER_ENUM_CONNECTIONS, vbNullString, 4, BufferLong(0), _
  43.                           TailleBuffer, BesoinBuffer, NbImprimantes)
  44.   If Not Réussite Then
  45.     ReDim BufferLong(0 To BesoinBuffer / 4) As Long
  46.     Réussite = EnumPrinters(PRINTER_ENUM_LOCAL Or PRINTER_ENUM_CONNECTIONS, vbNullString, 4, BufferLong(0), _
  47.                             BesoinBuffer, BesoinBuffer, NbImprimantes)
  48.     If Not Réussite Then Exit Function
  49.   End If
  50.   If NbImprimantes = 0 Then Exit Function
  51.  
  52.   For Compteur = 0 To NbImprimantes - 1
  53.     NomImprimante = Space$(StrLen(BufferLong(Compteur * 3)))
  54.     Pointeur = StrCopy(NomImprimante, BufferLong(Compteur * 3))
  55.     EnumèreImprimantes = EnumèreImprimantes & NomImprimante & vbCr
  56.   Next Compteur
  58. End Function


---------------
Cordialement, Patrice
Reply

Marsh Posté le 27-06-2017 à 09:39:47    

Merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed