OVH Cloud OVH Cloud

Binary value

5 réponses
Avatar
lb
bonjour,

Je lance le script ci-dessous, et rien ne se passe.
Quelqu'un a une idée.

Merci
**************************
Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objRegistry = GetObject _
("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Software"
strValueName = "BinaryTest"
arrValues = Array(1,2,3,4,5,6,7,8,9,10)

errReturn = objRegistry.SetBinaryValue _
(HKEY_CURRENT_USER, strKeyPath, strValueName, arrValues)

5 réponses

Avatar
Fred
Dans : news:
bonjour,


Bonjour,

Je lance le script ci-dessous, et rien ne se passe.
Quelqu'un a une idée.


À titre d'info, chez moi cela fonctionne : création d'une valeur
BinaryTest sous la clé HKCUSoftware
Quel est le code d'erreur retourné ?

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT

Avatar
lb
Pas de code d'erreur

En fouillant sur le Net j'ai trouvé l'information de rajouter &H devant
chaque valeur binaire


Dans : news:
bonjour,


Bonjour,

Je lance le script ci-dessous, et rien ne se passe.
Quelqu'un a une idée.


À titre d'info, chez moi cela fonctionne : création d'une valeur
BinaryTest sous la clé HKCUSoftware
Quel est le code d'erreur retourné ?

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT





Avatar
Fred
dans : news:,
lb écrivait :

Pas de code d'erreur

En fouillant sur le Net j'ai trouvé l'information de rajouter &H
devant chaque valeur binaire


Et dans ce cas cela fonctionne mieux ?
Curieux.
Quel est ton système ?


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT

Avatar
lb
XP SP2


dans : news:,
lb écrivait :

Pas de code d'erreur

En fouillant sur le Net j'ai trouvé l'information de rajouter &H
devant chaque valeur binaire


Et dans ce cas cela fonctionne mieux ?
Curieux.
Quel est ton système ?


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT





Avatar
Jean-Claude BELLAMY
Dans le message :,
lb a pris la peine d'écrire ce qui suit :
bonjour,

Je lance le script ci-dessous, et rien ne se passe.
Quelqu'un a une idée.

Merci
**************************
Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objRegistry = GetObject _
("winmgmts:" & strComputer & "rootdefault:StdRegProv")

strKeyPath = "Software"
strValueName = "BinaryTest"
arrValues = Array(1,2,3,4,5,6,7,8,9,10)

errReturn = objRegistry.SetBinaryValue _
(HKEY_CURRENT_USER, strKeyPath, strValueName, arrValues)



Ce script fonctionne parfaitement bien chez moi, sans aucune retouche !
http://cjoint.com/data/hnangOrE0N.htm

As-tu bien les droits d'écrire dans HKCUSoftware ?
(a priori, je dirais OUI, le compte en cours a le contrôle total sur cette
branche)
Mais vérifie, des fois que .....




--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr