' Create Signature from AD Data 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)) 'Creating som files Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile, plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath Set objWsh = CreateObject("WScript.Shell") appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%") pathToCopyTo = appDataPath & "\Microsoft\Signaturer\" 'WScript.Echo pathToCopyTo 'Check if the directory exists 'If not then plz create it Set objFSO = CreateObject("Scripting.FileSystemObject") If not objFSO.FolderExists(pathToCopyTo) Then Set objFolder = objFSO.CreateFolder(pathToCopyTo) End If 'Copy logo to signature folder Set FileToCopy = objFSO.GetFile("\\domain.local\netlogon\signatur\image001.png") FileToCopy.Copy (pathToCopyTo) Set FileToCopy = objFSO.GetFile("\\domain.local\netlogon\signatur\image002.png") FileToCopy.Copy (pathToCopyTo) Set FileToCopy = objFSO.GetFile("\\domain.local\netlogon\signatur\image003.png") FileToCopy.Copy (pathToCopyTo) Set FileToCopy = objFSO.GetFile("\\domain.local\netlogon\signatur\Signature.rtf") FileToCopy.Copy (pathToCopyTo) 'Creating TXT signature txtFilePath = pathToCopyTo & "Signature.txt" Set txtFile = objFSO.CreateTextFile(txtFilePath, TRUE) txtfile.WriteLine("") txtfile.WriteLine("Venlig hilsen") txtfile.WriteLine("") txtfile.WriteLine(objLDAPUser.DisplayName) txtfile.WriteLine(objLDAPUser.title) txtfile.WriteLine("") txtfile.WriteLine(objLDAPUser.st) txtfile.WriteLine(objLDAPUser.streetAddress & " | " & objLDAPUser.PostalCode & " " & objLDAPUser.l) if not objLDAPUser.TelephoneNumber=empty then txtfile.WriteLine("Telefon: " & objLDAPUser.otherTelephone & " | Direkte: " & objLDAPUser.TelephoneNumber) else txtfile.WriteLine("Telefon: " & objLDAPUser.otherTelephone) end if if not objLDAPUser.mobile=empty then txtfile.WriteLine("Telefax: " & objLDAPUser.facsimileTelephoneNumber & " | Mobil: " & objLDAPUser.mobile) else txtfile.WriteLine("Telefax: " & objLDAPUser.facsimileTelephoneNumber) end if txtfile.WriteLine("") txtfile.WriteLine(objLDAPUser.mail & " | www.domain.dk") On Error Resume Next 'Creating HTML signature htmlFilePath = pathToCopyTo & "Signature.htm" Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE) htmlfile.WriteLine("") htmlfile.WriteLine("") htmlfile.WriteLine(" ") htmlfile.WriteLine("
") htmlfile.WriteLine("
") htmlfile.WriteLine(" Venlig hilsen
") htmlfile.WriteLine("
") htmlfile.WriteLine(" " & objLDAPUser.DisplayName & "
") htmlfile.WriteLine(" " & objLDAPUser.title & "
") htmlfile.WriteLine("
") htmlfile.WriteLine("

") htmlfile.WriteLine(" " & objLDAPUser.st & "
") htmlfile.WriteLine(" " & objLDAPUser.streetAddress & " | " & objLDAPUser.PostalCode & " " & objLDAPUser.l & "
") htmlfile.WriteLine("
") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine("
") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") ' Direct Phone Number if not objLDAPUser.TelephoneNumber=empty then htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") else htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") end if htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") if not objLDAPUser.mobile=empty then htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") else htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") end if htmlfile.WriteLine(" ") htmlfile.WriteLine("
Telefon: " & objLDAPUser.otherTelephone & " | Direkte: " & objLDAPUser.TelephoneNumber & "   
Telefax: " & objLDAPUser.facsimileTelephoneNumber & " | Mobil: " & objLDAPUser.mobile & "   
") htmlfile.WriteLine("
") htmlfile.WriteLine(" " & objLDAPUser.mail & "") htmlfile.WriteLine("  | ") htmlfile.WriteLine(" www.domain.dk
") htmlfile.WriteLine(" 		") htmlfile.WriteLine(" ") htmlfile.WriteLine("
") htmlfile.WriteLine("
") htmlfile.WriteLine("
") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine(" ") htmlfile.WriteLine("
") htmlfile.WriteLine(" Disclaimer | ") htmlfile.WriteLine(" Disclaimer") htmlfile.WriteLine(" Newsletter") htmlfile.WriteLine("
") htmlfile.WriteLine("
") htmlfile.WriteLine("
") htmlfile.WriteLine(" ") htmlfile.WriteLine("") On Error Resume Next Set objWord = CreateObject("Word.Application") objWord.Visible = False Set objEmailOptions = objWord.EmailOptions Set objSignatureObject = objEmailOptions.EmailSignature objSignatureObject.NewMessageSignature = "Signature" objSignatureObject.ReplyMessageSignature = "Signature" objWord.Quit 0