Propriétés d'une imprimante

Version imprimable

16/04/2013, 11h57
pc75

Propriétés d'une imprimante

Bonjour,

J'ai réussi à ajouter une imprimante via un script vbs, mais il me reste une dernière chose à faire, et je ne trouve pas de réponse.

Je cherche à modifier les valeurs de "Gestion d'imprimantes" et "Gestion des documents" dans l'onglet "Sécurité" des propriétés d'une imprimante.

Quelqu'un aurait une solution ?

Merci.
16/04/2013, 15h22
omen999

bonjour,
si c'est une propriété "standard", elle est peut-être reconnue par SetPrinter
ici un exemple d'utilisation en vbs
s'il s'agit en revanche d'une fonctionnalité "exotique", il ne reste plus que le support du constructeur pour une éventuelle api... :aie:
16/04/2013, 16h00
pc75

Merci pour ta réponse,

A priori, ça doit être standard, puisque sous l'onglet sécurité dans les propriétés de mes imprimantes, je retrouve les cases à cocher suivantes dans les autorisations :
- Imprimer
- Gestion d'imprimantes
- Gestion des documents
- Autorisations spéciales

Citation:

Envoyé par omen999

bonjour,
si c'est une propriété "standard", elle est peut-être reconnue par SetPrinter
ici un exemple d'utilisation en vbs
s'il s'agit en revanche d'une fonctionnalité "exotique", il ne reste plus que le support du constructeur pour une éventuelle api... :aie:
17/04/2013, 15h22
pc75
Re,

Au pire, quelqu'un saurait si ces valeurs sont stockées dans la base de registre ?
Code:

1 2 3 4 5 - Imprimer - Gestion d'imprimantes - Gestion des documents - Autorisations spéciales
Merci.

Re,

J'ai peut-être trouvé un début de piste avec un code vu sur le net.
Il est sensé récupérer les infos des imprimantes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
SE_DACL_PRESENT = &H4
ACCESS_ALLOWED_ACE_TYPE = &H0
ACCESS_DENIED_ACE_TYPE = &H1
Dim objSD
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!\\" & strComputer & "\root\cimv2")
 
Set objWMIService = GetObject("winmgmts:")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")
 
For Each objPrinter In colInstalledPrinters
   Wscript.echo "Name: " & objPrinter.Name
' Get security descriptor for printer
    ret = objPrinter.GetSecurityDescriptor(objSD)
    If (ret <> 0) Then
    Wscript.echo "Could not get security descriptor: " & ret
    wscript.Quit ret
    End If
' Extract the security descriptor flags
    intControlFlags = objSD.ControlFlags
    If intControlFlags And SE_DACL_PRESENT Then
' Get the ACE entries from security descriptor
        arrACEs = objSD.DACL
    For Each objACE In arrACEs
' Get all the trustees and determine which have access to printer
        Wscript.echo objACE.Trustee.Domain & "\" & objACE.Trustee.Name
        If objACE.AceType = ACCESS_ALLOWED_ACE_TYPE Then
            Wscript.echo vbTab & "User has access to printer"
        ElseIf objACE.AceType = ACCESS_DENIED_ACE_TYPE Then
            Wscript.echo vbTab & "User does not have access to the printer"
        End If
    Next
    Else
    Wscript.echo "No DACL found in security descriptor"
End If
Next

Quand j'exécute ce code sous VB6, j'ai ce message sur la ligne 15

Citation:

L'objet ne gère pas cette propriété ou cette méthode

Une idée ?

Merci.

19/04/2013, 13h33
pitchalov

Bonjour,

Sur une machine Windows XP j'ai obtenu la même erreur que toi.

Puis j'ai vu cette information sur http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx : la méthode GetSecurityDescriptor de la classe Win32_Printer n'est disponible que sur les machines Vista/2008 ou supérieures.

Sur quelle OS exécutes-tu ce code?

Bonne continuation
19/04/2013, 13h45
pc75

Citation:

Envoyé par pitchalov

Bonjour,

Sur une machine Windows XP j'ai obtenu la même erreur que toi.

Puis j'ai vu cette information sur http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx : la méthode GetSecurityDescriptor de la classe Win32_Printer n'est disponible que sur les machines Vista/2008 ou supérieures.

Sur quelle OS exécutes-tu ce code?

Bonne continuation

Je suis sous XP SP3

EDIT : Il n'existe pas d'alternative pour XP ?
22/04/2013, 12h52
pc75

Re,

Je m'en suis finalement sorti en utilisant setacl.

Merci