Active Directory

Criar uma auto-assinatura global para todos os usuários

Em algumas empresas as vezes é preciso controlar a forma com que os e-mails são assinados. Aqui, um arquivo .vbs que busca as informações preenchidas no Active Directory e as insere no arquivo de auto-assinatura do cliente outlook.

Que tal testar essa solução?

1- Copie o código abaixo e cole em um notepad, salve-o como autosignature.vbs:

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strMobile = objUser.mobile

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.Font.Bold = True
objSelection.Font.Name = "Arial"
objSelection.Font.Size = 9
objSelection.TypeText strName
objSelection.TypeParagraph()
objSelection.Font.Style = "Normal"
objSelection.Font.Bold = False
objSelection.TypeText strTitle
objSelection.TypeParagraph()
objSelection.TypeText strDepartment
objSelection.TypeParagraph()
Set colShapes = objDoc.Shapes
Set objShape = objSelection.InlineShapes.AddPicture("\\server\sharename\path\filename.bmp")
objSelection.TypeParagraph()
objSelection.TypeText strCompany
objSelection.TypeParagraph()
objSelection.TypeText "Tel: " & strPhone
objSelection.TypeParagraph()
objSelection.TypeText "Mobile: " & strMobile

Set objSelection = objDoc.Range()

objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"

objDoc.Saved = True
objWord.Quit

 

2- Edite/Salve esse arquivo em \\servername\sysvol\scripts no seu controlador de domínio, ou outro compartilhamento. Adicione uma nova GPO e inclua esse script pra ser executado em “User Configuration\Windows Settings\Scripts\Logon”.

3- Efetue logon no domínio e teste sua nova auto-assinatura. :D

Dúvidas, entre em contato!
Guilherme Lima
MCITP Enterprise Administrator