Discussion :

[Invité]

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 :

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

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

[Invité]

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 :

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

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

[Invité]

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.