Félicitations !
+
0
points
En savoir plus
Actualités
Tests & Guides
Bons Plans
Forum
Premium
Rechercher sur le site
Connexion
Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Réinitialiser le mot de passe
Retour connexion
Actualités
Tests & Guides
Bons Plans
GTA 6
iPhone 17
Copilot
Switch 2
Temu
ChatGPT
Tesla
Génération NT
Entraide
Développement
Développement
Scripting Microsoft
imprimantes BDR et wmi
imprimantes BDR et wmi
1 réponse
moi
22/11/2008 à 22:34
Bonjour,
Sous la clé
HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers
on retrouve une sous clé par imprimante ...
Je voudrais retrouver les "noms" utilisés là ...
Comme reg Query /s est trop virulent, j'ai pensé interroger WMI ...
Pour chaque objet printer
plusieurs propriétés pourraient convenir
et ... semblent toujours identiques
mais je n'en suis pas certain.
Set oWMI = GetObject( _
"winmgmts:" & "{impersonationLevel=impersonate}!\\" _
& ".\root\cimv2")
Set ColPrt = oWMI.ExecQuery _
("Select * from Win32_Printer")
Msg = ""
For Each oPrt in ColPrt
Msg = ""
Msg = Msg & "Caption : " & oPrt.Caption & VbCrLf
Msg = Msg & "Name : " & oPrt.Name & VbCrLf
Msg = Msg & "DevideID : " & oPrt.DeviceID
MsgBox Msg
Next
Donc :
Ces trois valeurs sont-elles toujours identiques ?
Si non : Laquelle sert dans
HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers ???
Merci d'avance...
HB
Partager
Facebook
Twitter
Reddit
Whatsapp
Email
Signaler
Signaler un problème avec ce contenu
Envoyer
1 réponse
Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Supprimer
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Envoyer
moi
Signaler
22/11/2008 à 23:02
Je me réponds à moi-même...
La méthode EnumKey ...
tout simplement :
================================ Const HKLM = &H80000002
CLE = "SYSTEMCurrentControlSetControlPrintPrinters"
Set objReg = GetObject( _
"winmgmts:.rootdefault:StdRegProv")
objReg.EnumKey HKLM, CLE, LISTE
For each Prt in LISTE
Next
========================================
HB
Je me réponds à moi-même...
La méthode EnumKey ...
tout simplement :
================================ Const HKLM = &H80000002
CLE = "SYSTEMCurrentControlSetControlPrintPrinters"
Set objReg = GetObject( _
"winmgmts:\.rootdefault:StdRegProv")
objReg.EnumKey HKLM, CLE, LISTE
For each Prt in LISTE
Next
========================================
HB
Vous avez filtré cet utilisateur ! Consultez son message
Je me réponds à moi-même...
La méthode EnumKey ...
tout simplement :
================================ Const HKLM = &H80000002
CLE = "SYSTEMCurrentControlSetControlPrintPrinters"
Set objReg = GetObject( _
"winmgmts:.rootdefault:StdRegProv")
objReg.EnumKey HKLM, CLE, LISTE
For each Prt in LISTE
Next
========================================
HB