Modification des paramètres Outlook 2007 via un script

Modification des paramètres Outlook 2007 via un script - Infrastructures serveurs - Systèmes & Réseaux Pro

Marsh Posté le 20-08-2008 à 12:11:38    

Mesdames, Messieurs, bonjour
 
Je souhaite modifier les paramètres Outlook de tous mes utilisateurs ( à peu près 300 ).
Je ne vais donc pas le faire à la main, j'ai donc fait un script :
 
 

Code :
  1. Modification du POP
  3. Set WshShell = WScript.createObject("WScript.Shell" )
  4. WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\POP3 Server", "pop.xxx.com","REG_SZ"
  6. 'Modification du Port pour le SMTP
  8. Set WshShell = WScript.createObject("WScript.Shell" )
  9. WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\SMTP Port","587","REG_DWORD"
  11. 'Modification du SMTP
  13. Set WshShell = WScript.createObject("WScript.Shell" )
  14. WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\SMTP Server","smtp.xxx.com","REG_SZ"
  16. ' Modification du UserName Outlook
  18. Set WshShell = WScript.CreateObject("WScript.Shell" )
  19. s = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\POP3 User Name" )
  20. Pos=Len(s)-16
  21. t=Left(s,Pos)
  22. u="@xxxxxxxxxxx"
  23. v=t & u
  24. Set WshShell = WScript.createObject("WScript.Shell" )
  25. WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\POP3 User Name","" &v,"REG_SZ"
  27. '  Get UserName Citrix afin de faire un check des users faits
  29. Set objWshNet=CreateObject("Wscript.Network" )
  30. w=objWshNet.username
  31. Set objConnection = CreateObject("ADODB.Connection" )
  32. Set objCommand =   CreateObject("ADODB.Command" )
  33. objConnection.Provider = "ADsDSOObject"
  34. objConnection.Open "Active Directory Provider"
  35. Set objCommand.ActiveConnection = objConnection
  37. objCommand.CommandText = _
  38.              "SELECT sn, givenname FROM 'LDAP://dc=MONDOMAINE' WHERE objectCategory='User' And cn='"&w&"'"
  40. Set objRecordSet = objCommand.Execute
  41. FirstName = objRecordSet.Fields("givenname" ).Value
  42. LastName = objRecordSet.Fields("sn" ).Value
  43. objConnection.Close
  44.  
  45. ' Copie de l'userName dans le fichier Y:\INFORMATIQUE\Result_Outkook.txt
  47. Set fso = CreateObject("Scripting.FileSystemObject" )
  48. Set f = fso.OpenTextFile("Y:\INFORMATIQUE\Result_Outlook.txt", 8, True)
  49. p=";"
  50. MaChaine=LastName&p&FirstName&p&w
  51. f.WriteLine "" &MaChaine
  52. f.close
  54. Wscript.echo "Migration de votre BAL effectuee"


 
Ce script fonctionne à merveille, dans la BDR les paramètres sont bien modifiés ...
Le Hic, c'est quand je regarde sur Outlook les paramètres de mon compte rien à changer bien que dans la BDR j'ai les nouveaux paramètres ...
J'ai redémarrer etc, rien à changer !!
Le truc, c'est que j'ai du me trompé, ce n'est pas là que sont stockés les infos POP, SMTP etc du compte, mais où est ce alors ? Car ds la BDR, il n'y a pas ... Dans un fichier ? Comment le modifier etc ???
 
Merci pour votre aide ...

Reply

Marsh Posté le 20-08-2008 à 12:11:38   

Reply

Marsh Posté le 20-08-2008 à 12:57:50    

J'ai trouvé ça se trouve pas dans HKCU\Software\Microsoft\Windows NT\Current Version\Windows Messaging SubSystem
Mais là il y 10 millions de ruches ,je ne sais pas comment je vais la trouver en VBS ( car aucun porte le même nom etc )

Reply

Marsh Posté le 20-08-2008 à 13:43:20    

C'est quasi impossible de scripter ça d'une façon qui va marcher sur tous tes postes, Outlook n'est pas conçu pour, je te conseille plutot de regarder du côté des fichiers PRF : http://office.microsoft.com/en-us/ [...] 81033.aspx


Message édité par El Pollo Diablo le 20-08-2008 à 13:43:30
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed