Dificuldade com Assinatura padrao no Outlook com AD

Infraestrutura

10/12/2015

Ola Amigos, boa tarde!!!

Estou com dificuldades em criar uma assinatura padronizada para o Outlook utilizando o AD.

Nas pesquisas que fiz, estavam indicando utilizar as polices(GPOs), fiz inumeros testes mas sem eficiencia esperada.

Gostaria da ajuda de vcs para fazer essa implementacao.

Desde ja agradeco o apoio.

Abraco.

Alex - Lekao
Alex Lekao

Alex Lekao

Curtidas 0

Melhor post

Mais Respostas

Carlos Oliveira

Carlos Oliveira

10/12/2015

Boa tarde Alex, achei estranho, não achei muitas fontes que não pareciam ser confiaveis.
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

cara, ta meio complicado.

o problema eh que fazem uso de vbs e nao manjo destas paradas e nao dao muita dica de como fazer, saca?

tipo um passo a passo, salva assim, copia para tal lugar, essas coisas. rsrsr
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

O que deseja especificamente realmente achei dificil de achar.
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Passo a passo, está ótimo esse tutorial.
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

Obrigado Fabiano.

vou fazer novos testes.

encontrei alguns scripts tbm, vou testar ambos e posto aqui o resultado.

Obrigado mais uma vez.

Abraco.
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Alex, por favor nos informe! Uma pergunta, esse processo, já para evitar um trabalho extra do profissional inserir as assinaturas em cada maquina?
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

exatamente.
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Alem disso é considerado boa pratica, ISO-XXXX?
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

Rapaz nao sei se eh uma boa pratica.

mas facilita na admnistracao.

Estou finalizando os testes, ja ja eu posto o resultado e o script que usei.
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Deve ser, se facilita, organiza.
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

acredito que sim.

mas depende muito da empresa. rsrsr

aqui ja tinhamos, nos do TI, a intencao de padronizar algumas situacoes que eram referente a identidade e tal, e agora calhou da empresa ter iniciado um projeto de identidade, ai uniu o util ao agradavel. rsrsr
GOSTEI 1
Carlos Oliveira

Carlos Oliveira

10/12/2015

Melhora, padroniza.
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

sim com certeza.
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Não esquece!
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

blz.

estou com um script pronto que consegui, que estaria do jeito que precisariamos, mas esta dando problemas na aplicacao da GPO.

Estou pesquisando sobre e assim que tiver legal eu coloco aqui como ficou.
GOSTEI 1
Carlos Oliveira

Carlos Oliveira

10/12/2015

Beleza Alex.
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Deu certo???
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

cara nao.

o script ate ficou blzinha.

mas a aplicacao na gpo do AD nao esta funcionando corretamente.

estou verificando o que pode estar acontecendo.
GOSTEI 1
Carlos Oliveira

Carlos Oliveira

10/12/2015

Beleza, desculpa o incomodo.
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

sem crise velho.

to apanhando aqui. rsrsrsrs

mas eu fiquei de dar retorno mesmo, e como nao dei, seria normal o questionamento mesmo.

rsrsr
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Ansiedade, nada mais. hehehe
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

Galera,

Demorei mas vim aqui dizer o que aconteceu.

a minha aplicacao de asssinatura baseada no AD, funcionou, embora em algumas estacoes nao tenha aplicado corretamente, mas de forma geral funcionou.

Infelizmente vou ter que revisar todas as estacoes, mas sera apenas para me certificar que tudo deu certo.

Usei script pronto, eh claro que fiz ajustes para uso nosso, que encontrei na net e criei a gpo, pedi um amigo adm de rede para me ajudar na checagem das configuracoes e de acordo com ele estavam todas corretas.

ja apliquei para todos os usuarios do grupo e tenho percebido que ate o momento poucos tem reclamado de que nao funcionou.

Obrigado pelo apoio.

abraco.
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Show Alex.
Fez geral ou divido por "setores"? No seu servidor de AD existem divisões por setores?
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

entao.

No AD, vc pode cadastrar as varias informacoes, como Departo, Cargo, etc.

E no script vc escolhe o que usar, optei por departamento e nao cargo.

No meu AD as OUs estao todas divididas por loja e departamento(meio geralzao), mas isso eh por organizacao nossa do TI, para o Script acaba sendo indiferente pq ele vai pegar o que esta no usuario propriamente dito.

nao sei se respondi sua pergunta. rsrsr
GOSTEI 0
Carlos Oliveira

Carlos Oliveira

10/12/2015

Respondeu sim. Aonde achou esse script? Pode passar?
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

nao lembro mais exatamente.

mas o que o Fabiano indicou eh muito bom e esta excelente.

Vou Colar aqui abaixo o script que eu utilizei, basta salva-lo com extencao vbs.

Const END_OF_STORY = 6
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
With objUser
strName = .FullName
'strTitle = .Title
End With

With objNomecomp
strnome = objuser.CN

.Name = "Calibri"
.Size = 11
.Bold = true
.Color = RGB(0,0,128)
End With

strCompany = objUser.Company
strAddress = objUser.streetAddress
strpostalCode = objUser.postalCode
strtitle = objUser.strtitle
strDep = objUser.Departamento
strl = objUser.l
strco = objUser.co
strPhone = objUser.TelephoneNumber
strFax = objUser.facsimileTelephoneNumber
strMail = objuser.mail
strWeb = objuser.wWWHomePage
strnome = objuser.CN
strDep = objuser.department
strWeb = objuser.site
srtCel = objUser.mobile
strTel = "Tel.: 55"

strnome.Bold = false
Set objword = CreateObject("Word.Application")
With objword

Set objDoc = .Documents.Add()
Set objSelection = .Selection
Set objEmailOptions = .EmailOptions

Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,1,2
Set objTable = objDoc.Tables(1)

End With

Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
With objSelection
objTable.Rows.Add()

objDoc.Hyperlinks.Add objSelection.InlineShapes.AddPicture("\\192.168.1.2\netlogon\Assinatura\logoassinatura.jpg"), strweb 


.ParagraphFormat.Alignment = wdAlignParagraphRight
.TypeParagraph
objSelection.Font.Color

objTable.Cell(1, 2).Range.Font.Bold = false
objTable.Cell(1, 2).Range.Font.Size = "11"
objTable.Cell(1, 2).Range.Font.Name = "Calibri" 
objTable.Cell(1, 2).Range.Font.Color = RGB(0,0,128)
objTable.Columns(1).Width = objWord.InchesToPoints(1)
'objTable.Cell(1, 2).Range.Text = strnome & Chr(11) & strtitle & Chr(11) & strDep & Chr(11) & "Tel.: 55 " & strPhone & Chr(11) & "Fax. 55 " & strFax & Chr(11) & strMail & Chr(11) & strWeb 
objTable.Cell(1, 2).Range.Text = strnome & Chr(11) & strDep & Chr(11) & "Tel.: 55 " & strPhone & Chr(11) & strMail & Chr(11) & strWeb 
If Len(srtCel) <> 0 then
objTable.Cell(1, 2).Range.Text = strnome & Chr(11) & strDep & Chr(11) & "Tel. 55 " & strPhone & " | " & srtCel & Chr(11) & "Fax. 55 " & strFax & Chr(11) & strMail & Chr(11) & strWeb 
end if


objSelection.EndKey END_OF_STORY


End With

Set objSelection = objDoc.Range()
objSignatureEntries.Add "Assinatura ISC", objSelection
objSignatureObject.NewMessageSignature = "Assinatura ISC"
objSignatureObject.ReplyMessageSignature = "Assinatura ISC"
objDoc.Saved = True
objword.Quit
GOSTEI 1
Carlos Oliveira

Carlos Oliveira

10/12/2015

Salva com qualquer editor?
Vou guardar, nunca se sabe, pode ser util pra mim em algum momento.

Obrigado.
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

sim.

notepad, etc.
GOSTEI 1
Carlos Oliveira

Carlos Oliveira

10/12/2015

sim.

notepad, etc.


Obrigado Alex.
GOSTEI 0
Alex Lekao

Alex Lekao

10/12/2015

disponha!!!
GOSTEI 0
POSTAR