Discussion :

[pc75]

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.

[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...

[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

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...

[pc75]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci.

[pc75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Une idée ?

Merci.

[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

[pc75]

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 ?

[pc75]

Re,

Je m'en suis finalement sorti en utilisant setacl.

Merci