engalereman | 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 :
- Modification du POP
- Set WshShell = WScript.createObject("WScript.Shell" )
- WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\POP3 Server", "pop.xxx.com","REG_SZ"
- 'Modification du Port pour le SMTP
- Set WshShell = WScript.createObject("WScript.Shell" )
- WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\SMTP Port","587","REG_DWORD"
- 'Modification du SMTP
- Set WshShell = WScript.createObject("WScript.Shell" )
- WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\SMTP Server","smtp.xxx.com","REG_SZ"
- ' Modification du UserName Outlook
- Set WshShell = WScript.CreateObject("WScript.Shell" )
- s = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\POP3 User Name" )
- Pos=Len(s)-16
- t=Left(s,Pos)
- u="@xxxxxxxxxxx"
- v=t & u
- Set WshShell = WScript.createObject("WScript.Shell" )
- WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001\POP3 User Name","" &v,"REG_SZ"
- ' Get UserName Citrix afin de faire un check des users faits
- Set objWshNet=CreateObject("Wscript.Network" )
- w=objWshNet.username
- Set objConnection = CreateObject("ADODB.Connection" )
- Set objCommand = CreateObject("ADODB.Command" )
- objConnection.Provider = "ADsDSOObject"
- objConnection.Open "Active Directory Provider"
- Set objCommand.ActiveConnection = objConnection
- objCommand.CommandText = _
- "SELECT sn, givenname FROM 'LDAP://dc=MONDOMAINE' WHERE objectCategory='User' And cn='"&w&"'"
- Set objRecordSet = objCommand.Execute
- FirstName = objRecordSet.Fields("givenname" ).Value
- LastName = objRecordSet.Fields("sn" ).Value
- objConnection.Close
-
- ' Copie de l'userName dans le fichier Y:\INFORMATIQUE\Result_Outkook.txt
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Set f = fso.OpenTextFile("Y:\INFORMATIQUE\Result_Outlook.txt", 8, True)
- p=";"
- MaChaine=LastName&p&FirstName&p&w
- f.WriteLine "" &MaChaine
- f.close
- 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 ... |
FORUM HardWare.fr
