Discussion :

[Thierry'']

Bonjour à tous,

Je parviens à lire les données de la base de registre en utilisant le code suivant:

Code :

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

1
2
3
4
5
6
7
Dim MaClef As String
Dim WshShell As Object
 
MaClef = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveActive"
Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.RegRead(MaClef)
Set WshShell = Nothing

Mais je ne parviens pas à changer la valeur voilà le code que j'utilise et qui me renvoi une erreur:

Code :

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

1
2
3
4
5
6
7
Dim MaClef As String
Dim WshShell As Object
 
MaClef = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveActive\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite MaClef, "0", "REG_SZ"
Set WshShell = Nothing

L'erreur est: Racine incorrecte dans la clé de registre

Si vous avez une idée...

[loufab]

Bonjour,

Et avec le nom court au lieu du long ?

"HKCU/...." vs "HKEY_CURRENT_USER/...."

Cordialement,

[LedZeppII]

Bonjour,

Le premier argument de RegWrite représente une clée de la base de registre s'il finit par un anti-slash (\).
Une valeur dans le cas contraire.

Pour créer/modifier la valeur "ScreenSaveActive" et lui affecter une string "0"

Code :

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

1
2
3
4
5
6
7
Dim MaClef As String
Dim WshShell As Object
 
Set WshShell = CreateObject("WScript.Shell")
MaClef = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveActive"
WshShell.RegWrite MaClef, "0", "REG_SZ"
Set WshShell = Nothing

A+

[supersnail]

bizarre,MSDN utilise la version courte
cf le lien : http://msdn.microsoft.com/en-us/libr...1b(VS.85).aspx

[Thierry'']

Merci pour vos réponses,

Version courte (HKCU) et/ou avec l'anti-slash ça ne fonctionne pas, ce que je ne m'explique pas c'est l'erreur renvoyé, ça fonctionne trés bien pour lire la valeur mais je ne peux pas la changer.

[supersnail]

Tu peux nous donner l'erreur? (qu'on puisse savoir où chercher...)

[Thierry'']

Le message d'erreur est en pièce jointe.

Je continue de chercher de mon côté...

[loufab]

Es-tu sur du chemin ?

Le screensaveactive est (sauf erreur) dans

hkcu/control panel/

Cordialement,

[Thierry'']

Oui je suis sur du chemin car j'utilise le même pour lire la valeur est j'obtiens la bonne valeur.

[loufab]

Tu es sous Vista ?

[Thierry'']

Oui je travaille sous Vista avec Access 2007

[Thierry'']

En fait j'ai l'impression qu'il s'agit d'un problème de droit d'administration sur le domaine...

[loufab]

Désolé je n'ai pas Vista... je ne peux pas t'aider.

[argyronet]

Moi non plus, pas de Vista...
Toutefois, j'ai un doute sur le chemin....

Ce code donne un résultat :

Code :

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

1
2
3
4
5
6
7
8
9
Function EcranDeVeilleActif() As Boolean
Dim MaClef As String
Dim WshShell As Object
 
     MaClef = "HKCU\Control Panel\Desktop\ScreenSaveActive"
     Set WshShell = CreateObject("WScript.Shell")
     EcranDeVeilleActif = (WshShell.RegRead(MaClef) = 1)
     Set WshShell = Nothing
End Function

Et je ne pense pas que ce soit différent sur Vista.
Chez toi, qu'est-ce que cela donne ?

[Thierry'']

MaClef = "HKCU\Control Panel\Desktop\ScreenSaveActive"

Ce chemin n'hexiste pas sur mon poste et je ne peux pas le créer