' Originally from ' http://robwhitehouse.com/windows/script-auto-generate-outlook-signature ' http://web.archive.org/web/20111201044938/http://robwhitehouse.com:80/windows/script-auto-generate-outlook-signature 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)) 'Prepare to create some files 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\" 'Let's create the plain text signature plainTextFilePath = pathToCopyTo & "Default.txt" Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE) plainTextFile.WriteLine("-- ") plainTextFile.WriteLine(objLDAPUser.DisplayName) plainTextFile.WriteLine(objLDAPUser.title) plainTextFile.WriteLine(objLDAPUser.company) plainTextFile.WriteLine("t: " & objLDAPUser.telephoneNumber) plainTextFile.WriteLine("f: " & objLDAPUser.facsimileTelephoneNumber) plainTextFile.WriteLine("e: " & objLDAPUser.mail) plainTextFile.Write("w: " & objLDAPUser.wWWHomePage) plainTextFile.Close 'Now we create the Rich Text signature richTextFilePath = pathToCopyTo & "Default.rtf" Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE) richTextFile.WriteLine("{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0 Arial;}}") 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("t: " & objLDAPUser.telephoneNumber & "\par") richTextFile.WriteLine("f: " & objLDAPUser.facsimileTelephoneNumber & "\par") richTextFile.WriteLine("e: " & objLDAPUser.mail & "\par") richTextFile.WriteLine("w: " & objLDAPUser.wWWHomePage & "\par") richTextFile.Write("}") richTextFile.Close 'And finally, the HTML signature htmlFilePath = pathToCopyTo & "Default.htm" Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE) htmlfile.WriteLine("") htmlfile.WriteLine("") htmlfile.WriteLine("") htmlfile.WriteLine("

") htmlfile.WriteLine("

" & objLDAPUser.DisplayName & "

") htmlfile.WriteLine("

" & objLDAPUser.title & "

") htmlfile.WriteLine("

" & objLDAPUser.company & "

") htmlfile.WriteLine("

t: " & objLDAPUser.telephoneNumber & "

") htmlfile.WriteLine("

f: " & objLDAPUser.facsimileTelephoneNumber & "

") htmlfile.WriteLine("

e: " & objLDAPUser.mail & "

") htmlfile.WriteLine("

w: " & objLDAPUser.wWWHomePage & "

") htmlfile.WriteLine("

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