Etat du script: Fonctionnel
Présentation:
Le script:
'Deploiement signature Outlook locale et normalisée avec les données des attributs AD '20111013 by Clockover Function GetUserDN(BYVAL UN, BYVAL DN) Set ObjTrans = CreateObject("NameTranslate") objTrans.init 1, DN objTrans.set 3, DN & "\" & UN strUserDN = objTrans.Get(1) GetUserDN = strUserDN End Function Set objUser = CreateObject("WScript.Network") userName = objUser.UserName domainName = objUser.UserDomain Set objLDAPUser = GetObject("LDAP://" & GetUserDN(userName,domainName)) 'Préparation à la création des fichiers de signature Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile, plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWsh = CreateObject("WScript.Shell") appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%") pathToCopyTo = appDataPath & "\Microsoft\Signatures\" regPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\00000003" 'Chemin vers la ruche registre définissant la signautre par défaut 'Suppression des signatures pré-existantes objFSO.DeleteFile(pathToCopyTo & "\*.*") 'Création du fichier .txt plainTextFilePath = pathToCopyTo & "Default.txt" Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE) plainTextFile.WriteLine(objLDAPUser.DisplayName) plainTextFile.WriteLine(objLDAPUser.title) plainTextFile.WriteLine(objLDAPUser.company) plainTextFile.WriteLine(objLDAPUser.streetAddress) plainTextFile.WriteLine("Tel: " & objLDAPUser.telephoneNumber) plainTextFile.WriteLine("GSM : " & objLDAPUser.mobile) plainTextFile.WriteLine("Fax : " & objLDAPUser.facsimileTelephoneNumber) plainTextFile.WriteLine("Email : " & objLDAPUser.mail) plainTextFile.WriteLine("Web :") plainTextFile.Close 'Création du fichier .rtf richTextFilePath = pathToCopyTo & "Default.rtf" Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE) richTextFile.WriteLine("{\rtf1\adeflang1025\ansi\ansicpg1252\uc1\adeff31507\deff0\stshfdbch31505\stshfloch31506\stshfhich31506\stshfbi31507\deflang1036\deflangfe1036\themelang1036\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f34\fbidi \froman\fcharset1\fprq2{\*\panose 02040503050406030204}Cambria Math;}") richTextFile.WriteLine("\par \hich\af31506\dbch\af31505\loch\f31506 Tel\~:\~\~\~\~\~\~\~\~\~\~\~\~\~" & objLDAPUser.telephoneNumber & "}{\rtlch\fcs1 \af31507\afs16 \ltrch\fcs0 \fs16\cf18\lang1033\langfe1036\langnp1033\insrsid4004981") richTextFile.WriteLine("\lsdsemihidden0 \lsdunhideused0 \lsdqformat1 \lsdpriority11 \lsdlocked0 Subtitle;\lsdsemihidden0 \lsdunhideused0 \lsdqformat1 \lsdpriority22 \lsdlocked0 Strong;\lsdsemihidden0 \lsdunhideused0 \lsdqformat1 \lsdpriority20 \lsdlocked0 Emphasis;") richTextFile.Close 'Création du fichier .html htmlFilePath = pathToCopyTo & "Default.htm" Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE) htmlfile.WriteLine("< html xmlns:o=""urn:schemas-microsoft-com:office:office"" ") htmlfile.WriteLine("mso-ansi-language:EN-US'>" & objLDAPUser.title) htmlfile.close '====================================================================== Modification registre 'Mettre la nouvelle signature par défaut 'Modification du chemin contenant la signature dans la base de registre basée sur la version d'outlook Const HKEY_CURRENT_USER = &H80000001 Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv") uBinary = Array(&H44, &H00, &H65, &H00, &H66, &H00, &H61, &H00, &H75, &H00, &H6C, &H00, &H74, &H00, &H00, &H00) Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, regPath, "New Signature", uBinary) Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, regPath, "Reply-Forward Signature", uBinary)
TODO Liste:
-Vide
Historique:
Version 0.1 (2011/10/13)
-Création du script.
Page générée en 0.007 secondes