OVH Cloud OVH Cloud

Presence de clé de registre

5 réponses
Avatar
VAURY Stéphane
Bonjour, afin de pouvoir déployer le SP3 d'office XP par l'intermédiaire
d'une stratégie dans mon domaine win2000, j'aurais voulu effectuer au début
de mon script, deux contrôles de présence de clé de registre dans ma base de
registre.
Comment puis je procéder?
Merci

5 réponses

Avatar
Fred
Dans son message
VAURY Stéphane nous dit :

Bonjour, afin de pouvoir déployer le SP3 d'office XP par
l'intermédiaire d'une stratégie dans mon domaine win2000, j'aurais
voulu effectuer au début de mon script, deux contrôles de présence de
clé de registre dans ma base de registre.
Comment puis je procéder?
Merci


Bonjour,
Un exemple sur cette page :
http://msdn.microsoft.com/library/en-us/script56/html/wsmthregread.asp


--
Fred

Avatar
VAURY Stéphane
Merci, même si je trouve que l'exemple est un peu compliqué. Il me faudrait
finalement simplement la ligne de commande type "If, Then, Else" pour pouvoir
faire des comparaison dans ma base de registre avec les clés intégrées par
l'installation d'office et de son service pack.
Encore merci quand même


Bonjour, afin de pouvoir déployer le SP3 d'office XP par l'intermédiaire
d'une stratégie dans mon domaine win2000, j'aurais voulu effectuer au début
de mon script, deux contrôles de présence de clé de registre dans ma base de
registre.
Comment puis je procéder?
Merci


Avatar
Fred
Dans son message
VAURY Stéphane nous dit :

Merci, même si je trouve que l'exemple est un peu compliqué. Il me
faudrait finalement simplement la ligne de commande type "If, Then,
Else" pour pouvoir faire des comparaison dans ma base de registre
avec les clés intégrées par l'installation d'office et de son service
pack.
Encore merci quand même


Bonjour, afin de pouvoir déployer le SP3 d'office XP par
l'intermédiaire d'une stratégie dans mon domaine win2000, j'aurais
voulu effectuer au début de mon script, deux contrôles de présence
de clé de registre dans ma base de registre.
Comment puis je procéder?
Merci



Là, je l'ai simplifié :

8<------
Dim Cle
Dim Valeur
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Cle = "HKEY_LOCAL_MACHINESOFTWAREbla bla bla"

'Activation du traitement d'erreur
'Si erreur, on continue et on gère.
On Error Resume Next

'Tentative de lecture de la valeur
Valeur = WshShell.RegRead(Cle)

'Err.Number est égal à 0 si pas d'erreur
If Err.Number=0 Then
MsgBox "La clé existe"

'Comparer sa valeur avec une
'valeur attendue si nécessaire
If Valeur = "bla bla bla" Then

End If
Else
MsgBox "La clé n'existe pas"
End If

'Désactivation du traitement d'erreur
On Error Goto 0
8<--------

Je ne sais pas faire plus simple pour accéder au registre en vbs.

--
Fred


Avatar
VAURY Stéphane
Merci beaucoup Fred, vu mon niveau dans ce domaine, ta deuxième réponse me
conviens tout à fait. Je vais donc tester ca.
Merci encore


Dans son message
VAURY Stéphane nous dit :

Merci, même si je trouve que l'exemple est un peu compliqué. Il me
faudrait finalement simplement la ligne de commande type "If, Then,
Else" pour pouvoir faire des comparaison dans ma base de registre
avec les clés intégrées par l'installation d'office et de son service
pack.
Encore merci quand même


Bonjour, afin de pouvoir déployer le SP3 d'office XP par
l'intermédiaire d'une stratégie dans mon domaine win2000, j'aurais
voulu effectuer au début de mon script, deux contrôles de présence
de clé de registre dans ma base de registre.
Comment puis je procéder?
Merci



Là, je l'ai simplifié :

8<------
Dim Cle
Dim Valeur
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Cle = "HKEY_LOCAL_MACHINESOFTWAREbla bla bla"

'Activation du traitement d'erreur
'Si erreur, on continue et on gère.
On Error Resume Next

'Tentative de lecture de la valeur
Valeur = WshShell.RegRead(Cle)

'Err.Number est égal à 0 si pas d'erreur
If Err.Number=0 Then
MsgBox "La clé existe"

'Comparer sa valeur avec une
'valeur attendue si nécessaire
If Valeur = "bla bla bla" Then

End If
Else
MsgBox "La clé n'existe pas"
End If

'Désactivation du traitement d'erreur
On Error Goto 0
8<--------

Je ne sais pas faire plus simple pour accéder au registre en vbs.

--
Fred








Avatar
Fred
Dans son message
VAURY Stéphane nous dit :

Merci beaucoup Fred, vu mon niveau dans ce domaine, ta deuxième
réponse me conviens tout à fait. Je vais donc tester ca.
Merci encore



Merci pour le retour.
J'avais de toutes façons oublié de mentionner le fait que le RegRead
déclenche une erreur si la valeur est absente. Comme cela n'étais pas
mentionné dans l'exemple de MS, cela valait bien un second post :-)

--
Fred