Lister les imprimantes par utilisateur

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lister les imprimantes par utilisateur

shlomi

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

Publicité

patrice33740

Avec la réponse, c'est facile.

Bonjour,

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

Code :

Option Explicit
Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyA" _
(ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As Long) As Long
Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" _
(ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Long, _
ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
Type Imprimante_1
flags As Long
pDescription As String
pName As String
pComment As String
End Type
Function EnumèreImprimantes() As String
' Objet : Liste les imprimantes installées
'
' Retour : String Liste des noms des imprimantes installées ou chaine vide si
' aucune imprimante n'est installée.
'
' 04/07/07 Patrice Création
Dim BufferLong() As Long ' Tableau qui reçoit les informations de EnumPrinters
Dim Données() As Imprimante_1 ' Recoit les valeurs de BufferLong()
Dim TailleBuffer As Long ' Taille en bytes de BufferLong()
Dim BesoinBuffer As Long ' Nbre de bytes necessaires si BufferLong() trop court
Dim NbImprimantes As Long ' Nbre d'imprimantes trouvées
Dim Résultat As Long ' Résultat retournée
Dim Compteur As Integer ' Compteur
EnumèreImprimantes = ""
' Récolte les informations sur les imprimantes locales
TailleBuffer = 1200 ' Taille assez importante mais pas trop
ReDim BufferLong(0 To TailleBuffer / 4) As Long ' Redimension buffer (1 Long = 4 bytes)
Résultat = EnumPrinters(2, "", 1, BufferLong(0), TailleBuffer, BesoinBuffer, NbImprimantes)
If Résultat = 0 Then
TailleBuffer = BesoinBuffer
ReDim BufferLong(0 To TailleBuffer / 4) As Long ' Agrandir buffer à la taille nécessaire
Résultat = EnumPrinters(2, "", 1, BufferLong(0), TailleBuffer, BesoinBuffer, NbImprimantes)
If Résultat = 0 Then Exit Function ' Si nouvel échec, terminer
End If
If NbImprimantes = 0 Then Exit Function
' Converti les données de BufferLong() vers Données()
ReDim Données(0 To NbImprimantes - 1) As Imprimante_1
' Boucle qui définit chaque élément à partir du jeu d'informations reçues
For Compteur = 0 To NbImprimantes - 1
' BufferLong(4 * Compteur) = .flags, BufferLong(4 * Compteur + 1) = .pDescription, etc.
' Pour chaque élément, la chaine est est d'abord stockée dans le buffer pour disposer
' d'assez de place, et alors l'élément est copié. »
Données(Compteur).flags = BufferLong(4 * Compteur)
Données(Compteur).pDescription = Space(lstrlen(BufferLong(4 * Compteur + 1)))
Résultat = lstrcpy(Données(Compteur).pDescription, BufferLong(4 * Compteur + 1))
Données(Compteur).pName = Space(lstrlen(BufferLong(4 * Compteur + 2)))
Résultat = lstrcpy(Données(Compteur).pName, BufferLong(4 * Compteur + 2))
Données(Compteur).pComment = Space(lstrlen(BufferLong(4 * Compteur + 3)))
Résultat = lstrcpy(Données(Compteur).pComment, BufferLong(4 * Compteur + 3))
Next Compteur
' Renvoie le nom de chaque imprimante
For Compteur = 0 To NbImprimantes - 1
EnumèreImprimantes = EnumèreImprimantes & Données(Compteur).pName & vbCr
Next Compteur
End Function

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

shlomi

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

shlomi

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

patrice33740

Avec la réponse, c'est facile.

Bonjour,

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

Code :

Option Explicit
Private Const PRINTER_ENUM_CONNECTIONS = &H4
Private Const PRINTER_ENUM_LOCAL = &H2
#If Win64 Then
Private Declare PtrSafe Function StrCopy Lib "kernel32.dll" Alias "lstrcpyA" _
(ByVal lpString1 As String, ByVal lpString2 As Long) As LongPtr
Private Declare PtrSafe Function StrLen Lib "kernel32.dll" Alias "lstrlenA" _
(ByVal lpString As Long) As LongPtr
Private Declare PtrSafe Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" _
(ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Any, _
ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As LongPtr
#Else
Private Declare Function StrCopy Lib "kernel32.dll" Alias "lstrcpyA" _
(ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function StrLen Lib "kernel32.dll" Alias "lstrlenA" _
(ByVal lpString As Long) As Long
Private Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" _
(ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Any, _
ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
#End If
Public Sub Test()
' Exemple d'utilisation
'
MsgBox EnumèreImprimantes
End Sub
Public Function EnumèreImprimantes() As String
Dim BufferLong() As Long ' Informations de EnumPrinters
Dim NomImprimante As String ' Nom de l'imprimante
Dim TailleBuffer As Long ' Taille en bytes de BufferLong()
Dim BesoinBuffer As Long ' Nbre de bytes necessaires si BufferLong() trop court
Dim NbImprimantes As Long ' Nbre d'imprimantes trouvées
Dim Pointeur As Long ' Pointeur
Dim Compteur As Integer ' Compteur
Dim Réussite As Boolean ' Réussite énumération
EnumèreImprimantes = ""
TailleBuffer = 1200
ReDim BufferLong(0 To TailleBuffer / 4) As Long
Réussite = EnumPrinters(PRINTER_ENUM_LOCAL Or PRINTER_ENUM_CONNECTIONS, vbNullString, 4, BufferLong(0), _
TailleBuffer, BesoinBuffer, NbImprimantes)
If Not Réussite Then
ReDim BufferLong(0 To BesoinBuffer / 4) As Long
Réussite = EnumPrinters(PRINTER_ENUM_LOCAL Or PRINTER_ENUM_CONNECTIONS, vbNullString, 4, BufferLong(0), _
BesoinBuffer, BesoinBuffer, NbImprimantes)
If Not Réussite Then Exit Function
End If
If NbImprimantes = 0 Then Exit Function
For Compteur = 0 To NbImprimantes - 1
NomImprimante = Space$(StrLen(BufferLong(Compteur * 3)))
Pointeur = StrCopy(NomImprimante, BufferLong(Compteur * 3))
EnumèreImprimantes = EnumèreImprimantes & NomImprimante & vbCr
Next Compteur
End Function

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

shlomi

Merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Lister les imprimantes par utilisateur

Sujets relatifs
[pgsql] ☑ impossible de se connecter avec nouvel utilisateur	VBS Lister les fichiers d'un répertoire et sous repertoire
Lister les différences de types de données entre les colonnes clés	Macro qui lance application avec Utilisateur et mdp
recherche librairie pour créer un requeteur pour utilisateur final	Lister les comptes d'un ordinateur via script
caddie juste pour lister les Produits	onglet exel caché avec code et accès avec utilisateur
[Résolu] VBS Passer droits administrateur=> delete des imprimantes	Powershell - Problème script création d'utilisateur dans l'AD
Plus de sujets relatifs à : Lister les imprimantes par utilisateur

Page générée en 0.081 secondes