Création Valeur Clé de Registre

Bonjour à tous,

Je suis actuellement en train de développer un script permettant de déployer des signatures sous outlook 2007 dans un environnement Windows XP.

La quasi totalité du script fonctionne, je n'ai plus qu'à ajouter quelques clés de registre afin de gérer quelques paramétrages par défaut et c'est la que je bloque.
Le script fonctionne très bien et aucune erreur ne se produit mais les deux clés que j'essaye de créer ne sont pas visible dans l'éditeur de registre, j'en déduis que la commande n'a pas abouti. Pourtant j'ai bien réussi à supprimer une valeur auparavant...

Je souhaite donc ajouter deux valeurs dans une clé déjà présente, de type REG_EXPAND_SZ.
Voici le code en question, je me contente de copier la partie relative aux modifications de registre, le code étant très long mais cela dit si certaines personnes souhaitent déployer des signatures je suis ouvert au partage de mon modeste script ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Const HKEY_CURRENT_USER = &H80000001   Dim oReg, strKeyPath, strValue, Value   Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ wshnetwork.ComputerName & "\root\default:StdRegProv")   strKeyPath = "Software\Microsoft\Office\12.0\Outlook\Setup" strValue = "First-Run" oReg.DeleteValue HKEY_CURRENT_USER, strKeyPath, strValue   strKeyPath = "\Software\Microsoft\Office\12.0\Common\MailSettings" strValue = "NewSignature" Value = "Default" oReg.SetExpandedStringValue HKEY_CURRENT_USER, strKeyPath, strValue, Value   strValue = "ReplySignature" oReg.SetExpandedStringValue HKEY_CURRENT_USER, strKeyPath, strValue, Value

---

Merci par avance
Léo

Encore bonjour,

Petit UP car j'essaye doucement de comprendre encore pourquoi mon script ne fonctionne pas. Je récupère maintenant le résultat de SetExpandStringValue pour voir si la modification fonctionne bien et la variable ne se met pas à 0.

Voici le nouveau code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Const HKEY_CURRENT_USER = &H80000001   Dim Req, oReg, strKeyPath, strValue, Value   Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ wshnetwork.ComputerName & "\root\default:StdRegProv")   strKeyPath = "Software\Microsoft\Office\12.0\Outlook\Setup" strValue = "First-Run" oReg.DeleteValue HKEY_CURRENT_USER, strKeyPath, strValue   strKeyPath = "\Software\Microsoft\Office\12.0\Common\MailSettings" strValue = "NewSignature" Value = "Default" Req = oReg.SetExpandedStringValue(HKEY_CURRENT_USER, strKeyPath, strValue, Value) If Req <> 0 Then WScript.Echo ("Erreur") End If   strValue = "ReplySignature" Req = oReg.SetExpandedStringValue(HKEY_CURRENT_USER, strKeyPath, strValue, Value) If Req <> 0 Then WScript.Echo("Erreur") End If

---

Je soupçonne un souci de droit, je vais relancer mon script en me donnant les droits d'admins.



EDIT: Bon le passage en administrateur n'y change rien, j'ai pris la peine d'ajouter la clé à la main pour au moins vérifier que cela fonctionne bien et c'est concluant, il ne me reste plus qu'à le faire via script mais la je sèche totalement.
Je peux toujours exectuer un fichier Reg pour ajouter les deux clés, la je suis quasi sur de m'en sortir mais c'est dommage de ne pas passer directement en VBS, c'est possible et je suis certains que l'erreur est minime.
Si vous pouviez m'aider à la trouver :)

strKeyPath = "\Software\Microsoft\Office\12.0\Common\MailSettings"

strKeyPath = "Software\Microsoft\Office\12.0\Common\MailSettings"

Juste un antislash de trop, je savais que ça pouvait juste être une bête erreur.