This.
Mine :
Set objUser = CreateObject("WScript.Network")
userName = objUser.UserName
domainName = objUser.UserDomain
On Error Resume Next
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))
'Variables
Dim objFSO, objWsh, appDataPath, pathToCopyTo, htmlFile, htmlFilePath
Set objWsh = CreateObject("WScript.Shell")
appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%")
pathToCopyTo = appDataPath & "\Microsoft\Signatures"
'Verifie si le repertoire existe
'ISinon il le crée
Set objFSO = CreateObject("Scripting.FileSystemObject")
If not objFSO.FolderExists(pathToCopyTo) Then
Set objFolder = objFSO.CreateFolder(pathToCopyTo)
End If
'Copie des images
Set FileToCopy = objFSO.GetFile("\\stn-servdata\Partage\InterDep\Logo Réseau\Logo Proco 2013\signature.jpg")
FileToCopy.Copy (pathToCopyTo)
Set FileToCopy = objFSO.GetFile("\\SERVER\Signature\Images\phone.pn g")
FileToCopy.Copy (pathToCopyTo)
Set FileToCopy = objFSO.GetFile("\\SERVER\Signature\Images\mail.png ")
FileToCopy.Copy (pathToCopyTo)
Set FileToCopy = objFSO.GetFile("\\SERVER\Signature\Images\www.png" )
FileToCopy.Copy (pathToCopyTo)
'Creation de la version signature : sera utiliser avec le script de login
htmlFilePath = pathToCopyTo & "1"
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine("version 1")
htmlfile.close
'Creation de la signature htm
htmlFilePath = pathToCopyTo & "NewMail.htm"
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine("<HEAD>")
htmlfile.WriteLine("<br>")
htmlfile.WriteLine("<br>")
htmlfile.WriteLine("<br>")
htmlfile.WriteLine("<br>")
htmlfile.WriteLine("<meta charset=""UTF-8"" /></HEAD>")
htmlfile.WriteLine("<table width=""600"" cellspacing=""0"" cellpadding=""0"" ><tr><td>")
htmlfile.WriteLine("<table width=""600"" height=""80"" cellspacing=""0"" cellpadding=""0"" >")
htmlfile.WriteLine("<tr>")
htmlfile.WriteLine("<td width=""420"" height=""80""><table cellpadding=""0"" cellspacing=""0"" bgcolor=""#ffffff"" style=""font-size:12px;"" height=""80"">")
htmlfile.WriteLine(" <tr>")
htmlfile.WriteLine(" <td width=""180"" style=""font-size:10px;""><table width=""180"" cellpadding=""0"" cellspacing=""0"" style=""font-family:Arial, Helvetica, serif;color:#000000;font-size:10px;"">")
htmlfile.WriteLine(" <tr>")
htmlfile.WriteLine(" <td width=""180"">")
htmlfile.WriteLine(" <td width=""21"" valign=""middle""><img src=""\\stn-servdata\Partage\InterDep\Logo Réseau\Logo Proco 2013\mail.jpg"" width=""20"" height=""19"" /></td>")
htmlfile.WriteLine(" <td width=""159"" valign=""middle""><strong> "& objLDAPUser.mail &"</strong></td>")
htmlfile.WriteLine(" </td>")
htmlfile.WriteLine(" </tr>")
htmlfile.WriteLine(" <tr>")
htmlfile.WriteLine(" <td width=""180"">")
htmlfile.WriteLine(" <td width=""21"" valign=""middle""><img src=""\\stn-servdata\Partage\InterDep\Logo Réseau\Logo Proco 2013\Telephone.png"" width=""20"" height=""19"" /></td>")
IF objLDAPUser.telephoneNumber = "" THEN
htmlfile.WriteLine(" <td width=""159"" valign=""middle""><strong> +39 1122345</strong></td>")
ELSE
htmlfile.WriteLine(" <td width=""159"" valign=""middle""><strong> "& objLDAPUser.telephoneNumber &"</strong></td>")
END IF
htmlfile.WriteLine(" </td>")
htmlfile.WriteLine(" </tr>")
htmlfile.WriteLine(" <tr>")
htmlfile.WriteLine(" <td width=""180"">")
htmlfile.WriteLine(" <td width=""21"" valign=""middle""><img src=""\\stn-servdata\Partage\InterDep\Logo Réseau\Logo Proco 2013\signature.jpg"" width=""20"" height=""19"" /></td>")
htmlfile.WriteLine(" <td width=""159"" valign=""middle""><strong> www.proco.ca</strong></td>")
htmlfile.WriteLine(" </td>")
htmlfile.WriteLine(" </tr>")
htmlfile.WriteLine(" </tr>")
htmlfile.WriteLine(" </table></td>")
htmlfile.WriteLine(" <td width=""240"" style=""font-size:15px;""><table width=""240"" cellpadding=""0"" cellspacing=""0"">")
htmlfile.WriteLine(" <tr><td width=""191"" align=""center"" valign=""top"" style=""font-size:18px;color:#000;font-family:Georgia, 'Times New Roman', Times, serif;"">"& ExtAttrib1Str & objLDAPUser.FirstName &" "& objLDAPUser.LastName &" </td></tr>")
htmlfile.WriteLine(" <tr><td width=""191"" align=""center"" valign=""top"" style=""font-size:13px;color:#4d4d4d;font-family:Georgia, 'Times New Roman', Times, serif;"">"& objLDAPUser.Title & " </td></tr>")
htmlfile.WriteLine(" </table>")
htmlfile.WriteLine(" </td>")
htmlfile.WriteLine("</tr>")
htmlfile.WriteLine("</table></td>")
htmlfile.WriteLine("<td width=""150"" height=""80"" bgcolor=""#ffffff""><img src=""\\stn-servdata\Partage\InterDep\Logo Réseau\Logo Proco 2013\signature.png"" width=""180"" height=""80"" /></td>")
htmlfile.WriteLine("</tr></table>")
htmlfile.WriteLine("<table cellspacing=""0"" cellpadding=""10"" width=""600"" >")
htmlfile.WriteLine("<tr>")
htmlfile.WriteLine(" <td style=""font-size:9px; text-align:justify; font-family:Verdana,Geneva,serif;"">Avis de confidentialité - Cette communication est réservée à l'usage du destinataire nommé et sa teneur est confidentielle. Tout autre lecteur, hormis une personne mandatée par ledit destinataire, devra considérer par la présente que sa diffusion, sous toutes les formes, est strictement interdite. La personne qui reçoit cette communication par erreur est priée d'avertir immédiatement notre réception ou l'envoyeur.</td>")
htmlfile.WriteLine("</tr>")
htmlfile.WriteLine("</table></td></tr></table>")
htmlfile.close
'creation de la signature de reply en htm
htmlFilePath = pathToCopyTo & "ReplyMail.htm"
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine("<HTML><HEAD>")
htmlfile.WriteLine("<meta charset=""UTF-8"" />")
htmlfile.WriteLine("</HEAD><BODY>")
htmlfile.WriteLine("<table width=""200"" cellspacing=""0"" cellpadding=""0"">")
htmlfile.WriteLine("<tr><td align=""left"" valign=""top""><span style=""font-size:15px;color:#000;font-family:Georgia, 'Times New Roman', Times, serif;"">"& ExtAttrib1Str & objLDAPUser.FirstName &" "& objLDAPUser.LastName &"</span><br/>")
htmlfile.WriteLine("<span style=""font-size:12px;color:#4d4d4d;font-family: Arial, Helvetica, serif;"">"& objLDAPUser.Title & "</span></td></tr></table></td>")
htmlfile.WriteLine("</tr></table></body></html>")
htmlfile.close
'creation de la signature dpour OWA
htmlFilePath = pathToCopyTo & "OWASignature.html"
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine("<HEAD>")
htmlfile.WriteLine("<meta charset=""UTF-8"" /></HEAD>")
htmlfile.WriteLine("<table width=""600"" cellspacing=""0"" cellpadding=""0"" ><tr><td>")
htmlfile.WriteLine("<table width=""600"" height=""80"" cellspacing=""0"" cellpadding=""0"" >")
htmlfile.WriteLine("<tr>")
htmlfile.WriteLine("<td width=""420"" height=""80""><table cellpadding=""0"" cellspacing=""0"" bgcolor=""#ffffff"" style=""font-size:12px;"" height=""80"">")
htmlfile.WriteLine(" <tr>")
htmlfile.WriteLine(" <td width=""180"" style=""font-size:10px;""><table width=""180"" cellpadding=""0"" cellspacing=""0"" style=""font-family:Arial, Helvetica, serif;color:#000000;font-size:10px;"">")
htmlfile.WriteLine(" <tr>")
htmlfile.WriteLine(" <td width=""180"">")
htmlfile.WriteLine(" <td width=""21"" valign=""middle""><img src=""http://server.domain/images/mail.png"" width=""20"" height=""19"" /></td>")
htmlfile.WriteLine(" <td width=""159"" valign=""middle""><strong> "& objLDAPUser.mail &"</strong></td>")
htmlfile.WriteLine(" </td>")
htmlfile.WriteLine(" </tr>")
htmlfile.WriteLine(" <tr>")
htmlfile.WriteLine(" <td width=""180"">")
htmlfile.WriteLine(" <td width=""21"" valign=""middle""><img src=""http://server.domain/images/phone.png"" width=""20"" height=""19"" /></td>")
IF objLDAPUser.telephoneNumber = "" THEN
htmlfile.WriteLine(" <td width=""159"" valign=""middle""><strong> +39 1122345</strong></td>")
ELSE
htmlfile.WriteLine(" <td width=""159"" valign=""middle""><strong> "& objLDAPUser.telephoneNumber &"</strong></td>")
END IF
htmlfile.WriteLine(" </td>")
htmlfile.WriteLine(" </tr>")
htmlfile.WriteLine(" <tr>")
htmlfile.WriteLine(" <td width=""180"">")
htmlfile.WriteLine(" <td width=""21"" valign=""middle""><img src=""http://server.domain/images/www.png"" width=""20"" height=""19"" /></td>")
htmlfile.WriteLine(" <td width=""159"" valign=""middle""><strong>
www.juricalleri.ne t</strong></td>")
htmlfile.WriteLine(" </td>")
htmlfile.WriteLine(" </tr>")
htmlfile.WriteLine(" </tr>")
htmlfile.WriteLine(" </table></td>")
htmlfile.WriteLine(" <td width=""240"" style=""font-size:15px;""><table width=""240"" cellpadding=""0"" cellspacing=""0"">")
htmlfile.WriteLine(" <tr><td width=""191"" align=""center"" valign=""top"" style=""font-size:18px;color:#000;font-family:Georgia, 'Times New Roman', Times, serif;"">"& ExtAttrib1Str & objLDAPUser.FirstName &" "& objLDAPUser.LastName &" </td></tr>")
htmlfile.WriteLine(" <tr><td width=""191"" align=""center"" valign=""top"" style=""font-size:13px;color:#4d4d4d;font-family:Arial, Helvetica, serif;"">"& objLDAPUser.Title & " </td></tr>")
htmlfile.WriteLine(" </table>")
htmlfile.WriteLine(" </td>")
htmlfile.WriteLine("</tr>")
htmlfile.WriteLine("</table></td>")
htmlfile.WriteLine("<td width=""180"" height=""80"" bgcolor=""#ffffff""><img src=""http://server.domain/images/logo.png"" width=""180"" height=""80"" /></td>")
htmlfile.WriteLine("</tr></table>")
htmlfile.WriteLine("<table cellspacing=""0"" cellpadding=""10"" width=""600"" >")
htmlfile.WriteLine("<tr>")
htmlfile.WriteLine(" <td style=""font-size:9px; text-align:justify; font-family:Verdana,Geneva,serif;"">Avis de confidentialité - Cette communication est réservée à l'usage du destinataire nommé et sa teneur est confidentielle. Tout autre lecteur, hormis une personne mandatée par ledit destinataire, devra considérer par la présente que sa diffusion, sous toutes les formes, est strictement interdite. La personne qui reçoit cette communication par erreur est priée d'avertir immédiatement notre réception ou l'envoyeur. </td>")
htmlfile.WriteLine("</tr>")
htmlfile.WriteLine("</table></td></tr></table>")
htmlfile.close
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
objSignatureObject.NewMessageSignature = "NewMail"
objSignatureObject.ReplyMessageSignature = "NewMail"
objWord.Quit 0
je l'ai vollé sur internats