Set objUser = CreateObject("WScript.Network") userName = objUser.UserName domainName = objUser.UserDomain 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 objLDAPUser = GetObject("LDAP://" & GetUserDN(userName,domainName)) 'Creation des fichiers 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\" 'Creation de la signature en format texte plainTextFilePath = pathToCopyTo & "SignatureTM4.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(objLDAPUser.l) plainTextFile.WriteLine(objLDAPUser.st) plainTextFile.WriteLine(objLDAPUser.postalCode) plainTextFile.WriteLine(objLDAPUser.c) plainTextFile.WriteLine("Téléphone: " & objLDAPUser.telephoneNumber) plainTextFile.WriteLine("Mobile: " & objLDAPUser.mobile) plainTextFile.WriteLine("Fax: " & objLDAPUser.facsimileTelephoneNumber) plainTextFile.WriteLine("Courriel: " & objLDAPUser.mail) plainTextFile.Write("Site Web: " & objLDAPUser.wWWHomePage) plainTextFile.Close 'Creation de la signature en format RTF - Rich Text richTextFilePath = pathToCopyTo & "SignatureTM4.rtf" Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE) richTextFile.WriteLine("{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0Arial;}}") richTextFile.WriteLine("\viewkind4\uc1\pard\f0\fs20 -- \par") richTextFile.WriteLine(objLDAPUser.DisplayName & "\par") richTextFile.WriteLine(objLDAPUser.title & "\par") richTextFile.WriteLine(objLDAPUser.company & "\par") richTextFile.WriteLine(objLDAPUser.streetAddress & "\par") richTextFile.WriteLine(objLDAPUser.l & "\par") richTextFile.WriteLine(objLDAPUser.st & "\par") richTextFile.WriteLine(objLDAPUser.postalCode & "\par") richTextFile.WriteLine(objLDAPUser.c & "\par") richTextFile.WriteLine("Téléphone: " & objLDAPUser.telephoneNumber & "\par") richTextFile.WriteLine("Mobile: " & objLDAPUser.mobile & "\par") richTextFile.WriteLine("Télécopieur: " & objLDAPUser.facsimileTelephoneNumber & "\par") richTextFile.WriteLine("Courriel: " & objLDAPUser.mail & "\par") richTextFile.WriteLine("Site Web: " & objLDAPUser.wWWHomePage & "\par") richTextFile.Write("}") richTextFile.Close 'Signature HTML htmlFilePath = pathToCopyTo & "SignatureTM4.htm" Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE) ' htmlfile.WriteLine("") htmlfile.WriteLine("

") htmlfile.WriteLine("

" & objLDAPUser.DisplayName & "

") htmlfile.WriteLine("

" & objLDAPUser.title & "

") htmlfile.WriteLine("

" & objLDAPUser.physicalDeliveryOfficeName & "

") htmlfile.WriteLine("

" & objLDAPUser.company & "

") htmlfile.WriteLine("

" & objLDAPUser.streetAddress & "

") htmlfile.WriteLine("

" & objLDAPUser.l & " " & objLDAPUser.st & " " & objLDAPUser.postalCode & " Canada

") htmlfile.WriteLine("

Téléphone: " & objLDAPUser.telephoneNumber & "

") htmlfile.WriteLine("

Mobile: " & objLDAPUser.mobile & "

") htmlfile.WriteLine("

Télécopieur: " & objLDAPUser.facsimileTelephoneNumber & "

") htmlfile.WriteLine("

Courriel: " & objLDAPUser.mail & "

") htmlfile.WriteLine("

Site Web: " & objLDAPUser.wWWHomePage & "

") htmlfile.WriteLine("Le présent courriel est destiné uniquement au(x) destinataire(s) sus mentionné(s). Son contenu est confidentiel. Si vous avez reçu cette communication par erreur, veuillez effacer l'original, sans en tirer de copie, en dévoiler le contenu ni prendre quelque mesure fondée sur celui-ci.") htmlfile.WriteLine("The present message is intended only for the named recipient(s) above. Its contents are confidential. If you have received this message in error, please delete the original without making a copy, disclosing its contents or taking any action based thereon.") htmlfile.WriteLine("

") htmlfile.WriteLine("") htmlfile.Write("")