Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Permissions sur registre distant

Permissions sur registre distant

3 réponses
Avatar
dufour.f
Bonjour,

Je suis actuellement capable de lire une cl=E9 distant en utilisant la
m=E9thode suivante:

Dim MyReg As RegistryKey =3D
RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, serveur)
Dim MyRegKey As RegistryKey
MyRegKey =3D MyReg.OpenSubKey(Cle)
.=2E.

Ce que je souhaite faire et j'ai du mal =E0 trouver des docs/exemples =E0
ce sujet, c'est obtenir les permissions sur une cl=E9. J'ai commenc=E9 =E0
fouiner dans les APIs mais il semblerait que la m=E9thode utilisant
RegGetKeySecurity ne fonctionne qu'en local (je peux me tromper).

Si quelqu'un pouvait m'=E9clairer.

Cordialement
FD
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
TroXsA
Bonjour,

Sous VB 2005 ?
avec vb2005 il existe une methode et sous 2003 je crois pas mais avec une
API oui



--


Cordialement,

Site : http://www.troxsa.info
Mail : http://cerbermail.com/?rIXgaw9Xsl


a écrit dans le message de news:

Bonjour,

Je suis actuellement capable de lire une clé distant en utilisant la
méthode suivante:

Dim MyReg As RegistryKey RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, serveur)
Dim MyRegKey As RegistryKey
MyRegKey = MyReg.OpenSubKey(Cle)
...

Ce que je souhaite faire et j'ai du mal à trouver des docs/exemples à
ce sujet, c'est obtenir les permissions sur une clé. J'ai commencé à
fouiner dans les APIs mais il semblerait que la méthode utilisant
RegGetKeySecurity ne fonctionne qu'en local (je peux me tromper).

Si quelqu'un pouvait m'éclairer.

Cordialement
FD
Avatar
TroXsA
Voila comment j'ai fait !
Je vais faire un exemple complet sur mon site plus detailler


Dim oRegistre As RegistryKey
Dim PathRegistre As String = "SYSTEMControlSet001Enum
Dim PathRegistreHardwareProf As String = _
"SYSTEMControlSet001Hardware Profiles001System"

oRegistre = OpenRemoteBaseKey(RegistryHive.LocalMachine, _
txtbComputer.Text).OpenSubKey(PathRegistre, True)
Dim rs As Security.AccessControl.RegistrySecurity
rs = oRegistre.GetAccessControl()
'
' Pour "Casser" l'héritage des permissions
'
rs.SetAccessRuleProtection(True, True)
rs.AddAccessRule(New Security.AccessControl.RegistryAccessRule("Tout le
monde", _
RegistryRights.FullControl, InheritanceFlags.ContainerInherit Or _
InheritanceFlags.ObjectInherit, PropagationFlags.None, _
AccessControlType.Allow))
oRegistre.SetAccessControl(rs)

--


Cordialement,

Site : http://www.troxsa.info
Mail : http://cerbermail.com/?rIXgaw9Xsl


"TroXsA" a écrit dans le message de news:
e7970k$3er$
Bonjour,

Sous VB 2005 ?
avec vb2005 il existe une methode et sous 2003 je crois pas mais avec une
API oui



--


Cordialement,

Site : http://www.troxsa.info
Mail : http://cerbermail.com/?rIXgaw9Xsl


a écrit dans le message de news:

Bonjour,

Je suis actuellement capable de lire une clé distant en utilisant la
méthode suivante:

Dim MyReg As RegistryKey > RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, serveur)
Dim MyRegKey As RegistryKey
MyRegKey = MyReg.OpenSubKey(Cle)
...

Ce que je souhaite faire et j'ai du mal à trouver des docs/exemples à
ce sujet, c'est obtenir les permissions sur une clé. J'ai commencé à
fouiner dans les APIs mais il semblerait que la méthode utilisant
RegGetKeySecurity ne fonctionne qu'en local (je peux me tromper).

Si quelqu'un pouvait m'éclairer.

Cordialement
FD




Avatar
dufour.f
TroXsA a écrit :

Voila comment j'ai fait !
Je vais faire un exemple complet sur mon site plus detailler


Dim oRegistre As RegistryKey
Dim PathRegistre As String = "SYSTEMControlSet001Enum
Dim PathRegistreHardwareProf As String = _
"SYSTEMControlSet001Hardware Profiles001System"

oRegistre = OpenRemoteBaseKey(RegistryHive.LocalMachine, _
txtbComputer.Text).OpenSubKey(PathRegistre, True)
Dim rs As Security.AccessControl.RegistrySecurity
rs = oRegistre.GetAccessControl()
'
' Pour "Casser" l'héritage des permissions
'
rs.SetAccessRuleProtection(True, True)
rs.AddAccessRule(New Security.AccessControl.RegistryAccessRule("Tout le
monde", _
RegistryRights.FullControl, InheritanceFlags.ContainerInherit Or _
InheritanceFlags.ObjectInherit, PropagationFlags.None, _
AccessControlType.Allow))
oRegistre.SetAccessControl(rs)

--


Cordialement,

Site : http://www.troxsa.info
Mail : http://cerbermail.com/?rIXgaw9Xsl


"TroXsA" a écrit dans le message de news:
e7970k$3er$
> Bonjour,
>
> Sous VB 2005 ?
> avec vb2005 il existe une methode et sous 2003 je crois pas mais avec u ne
> API oui
>
>
>
> --
>
>
> Cordialement,
>
> Site : http://www.troxsa.info
> Mail : http://cerbermail.com/?rIXgaw9Xsl
>
>
> a écrit dans le message de news:
>
> Bonjour,
>
> Je suis actuellement capable de lire une clé distant en utilisant la
> méthode suivante:
>
> Dim MyReg As RegistryKey =
> RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, serveur)
> Dim MyRegKey As RegistryKey
> MyRegKey = MyReg.OpenSubKey(Cle)
> ...
>
> Ce que je souhaite faire et j'ai du mal à trouver des docs/exemples à
> ce sujet, c'est obtenir les permissions sur une clé. J'ai commencé à
> fouiner dans les APIs mais il semblerait que la méthode utilisant
> RegGetKeySecurity ne fonctionne qu'en local (je peux me tromper).
>
> Si quelqu'un pouvait m'éclairer.
>
> Cordialement
> FD
>
>



Merci pour ton aide je vais tester ca de suite