none
Criar assinatura automatica do Outlook no Script de Logon do usuário - Urgente RRS feed

  • Pergunta

  • Pessoal Bom dia!
    Estou quebrando a cabeça, eu preciso que quando o usuário logue na maquina, carregue uma assinatura automatica para o Outlook 2003, isto será valido para toda a empresa vcs conseguem me ajudar, eu já tinha visto isto em outras empresas, mais não tenho nem ideia por onde começar sei que pode ser possivel via GPO. Mais não tenho ideia.

    Muito Obrigado.

    wanderley bueno
    segunda-feira, 18 de maio de 2009 11:32

Respostas

  • Olá,

    Segue abaixo:

    http://social.technet.microsoft.com/forums/pt-BR/scriptadminpt/thread/779de615-0c38-4c45-9ac3-8148de6d93cf/


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 18 de maio de 2009 14:25

Todas as Respostas

  • Olá,

    Segue abaixo:

    http://social.technet.microsoft.com/forums/pt-BR/scriptadminpt/thread/779de615-0c38-4c45-9ac3-8148de6d93cf/


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 18 de maio de 2009 14:25
  • Oi Jesiel muito Obrigado,

    Mas gostaria de só mais um pergunta um pouco ignorante de minha parte. Mas como faço para rodar este scritp.vbs para essas informações sejam pegas e criado uma assinatura no Outlook ?
    Crio uma pasta na rede, dexo no SYSVOL e e crio uma bat contendo call assinatura.vbs.

    Obrigado.
    segunda-feira, 18 de maio de 2009 15:58
  • Olá,

    Você pode criar uma GPO e ir em Configuração do Usuário -> Scripts
    E coloca o caminho que você colocou o script .vbs mesmo... (não precisa do arquivo .bat)

    Coloca no Sysvol mesmo...

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 18 de maio de 2009 16:42
  • Fiz a GPO certinho mas acho que esta dando erro no scritp pode me ajudar vou colocar o codigo fonte do scritp abaixo:

    'copiar arquivos localmente
    On Error Resume Next
    Const OverwriteExisting = True
    Const FILESOURCE = "\\10.65.66.3\Assinatura"

    Set objshell = CreateObject("WScript.Shell")
    Set colEnvironmentVariables = objshell.Environment("Volatile")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FolderExists(colEnvironmentVariables.Item("APPDATA") & "\Microsoft\Signatures") Then
     strFolder = colEnvironmentVariables.Item("APPDATA") & "\Microsoft\Signatures\"
    elseif objFSO.FolderExists(colEnvironmentVariables.Item("APPDATA") & "\Microsoft\Assinaturas") Then
     strFolder = colEnvironmentVariables.Item("APPDATA") & "\Microsoft\Assinaturas\"
    else
     Set objFolder = objFSO.CreateFolder(colEnvironmentVariables.Item("APPDATA") & "\Microsoft\Signatures")
     strFolder = colEnvironmentVariables.Item("APPDATA") & "\Microsoft\Assinaturas\"

    End If


    'capturar logon name
    Set objnet = CreateObject("wscript.network")
    logon = objnet.UserName

    'Abrir planilha de consulta
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Caption = "Configurar Assinatura"
    objExcel.Visible = False
    Set arqUsuario = objExcel.Workbooks.Open(FILESOURCE & "Listagem_Usuarios.xls", , True)
    Set planUsuario = arqUsuario.Worksheets(1)

    'validar se o usuário existe na planilha
    Nome = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 2, False)
    If Nome = "" Then
        'wscript.echo "Erro ao tentar localizar seus dados para configurar a assinatura do Outlook, " & vbNewLine & _
    '    "favor abrir chamado na Central de Atendimento informando este erro."
        wscript.Quit
    End If

    'localizar dados do usuário
    SobreNome = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 3, False)
    cargo = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 4, False)
    Email = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 6, False)
    site = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 7, False)
    andar = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 8, False)
    telefone = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 9, False)
    ramal = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 10, False)
    celular = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 12, False)
    fax = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 13, False)

    '============== Apagar todas as assinaturas existentes ==============
    Const DeleteReadOnly = True
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile (strFolder & "*.*"), DeleteReadOnly

    If site = "Carlos Villalva" Then
     objFSO.CopyFile FILESOURCE & "corporativa_cv.rtf", strFolder & "corporativa.rtf", OverwriteExisting
    elseIf site = "Voluntários" Then
     objFSO.CopyFile FILESOURCE & "corporativa_vp.rtf", strFolder & "corporativa.rtf", OverwriteExisting
    elseIf site = "Força Pública" Then
     objFSO.CopyFile FILESOURCE & "corporativa_fp.rtf", strFolder & "corporativa.rtf", OverwriteExisting
    elseIf site = "Rio de Janeiro" Then
     objFSO.CopyFile FILESOURCE & "corporativa_rj.rtf", strFolder & "corporativa.rtf", OverwriteExisting
    end if

    If Err.Number <> 0 Then
    '     wscript.echo "Erro ao copiar assinatura do Outlook, favor abrir chamado na Central de Atendimento." & strFolder & vbNewLine & Err.Description
         wscript.Quit
    End If

     

     

    'editar arquivo de assinatura com os dados do usuário
    Const wdFormatHTML = 8
    Set objWord = CreateObject("Word.Application")
    objWord.Caption = "Configurar Assinatura"
    objWord.Visible = False

    Set objdoc = objWord.Documents.Open(strFolder & "corporativa.rtf")

    Set objRange = objdoc.Bookmarks("Nome").Range
    objRange.Text = Nome & " " & SobreNome

    Set objRange = objdoc.Bookmarks("cargo").Range
    objRange.Text = cargo

    Set objRange = objdoc.Bookmarks("andar").Range
    objRange.Text = andar

    Set objRange = objdoc.Bookmarks("email").Range
    objRange.Text = Email

    Set objRange = objdoc.Bookmarks("fax").Range
    objRange.Text = fax


    if site = "Rio de Janeiro" then
     ddd="(21)"
    else
     ddd="(11)"
    end if

    'verificar se é ramal ou ddr
    DDR = planUsuario.Application.VLookup(logon, planUsuario.Range("banco"), 11, False)

    If DDR <> "" Then
        Set objRange = objdoc.Bookmarks("fone").Range
        objRange.Text = "Tel: "& ddd & DDR
    Else
        Set objRange = objdoc.Bookmarks("fone").Range
        objRange.Text = "Tel: "& ddd & telefone & vbcrf & " Ramal: " & ramal
    End If


    'verificar se tem celular
    If celular <> "" Then
        Set objRange = objdoc.Bookmarks("celular").Range
        objRange.Text = "Cel.: "& ddd & celular
    End If


    objdoc.Save
    objdoc.SaveAs strFolder & "corporativa.htm", wdFormatHTML

    'opções:wdFormatRTF, wdFormatRTF , wdFormatHTML
    objdoc.Close


    Set objshell = Nothing
    Set colEnvironmentVariables = Nothing
    Set objFSO = Nothing
    strFolder = ""
    Set colEnvironmentVariables = Nothing
    Set objshell = Nothing
    objWord.Quit

    lstUsuario.Close
    Set lstUsuario = Nothing
    objExcel.Quit


    '=================================================================
    randomize
    dim txt
    redim txt(26)
    txt(0) = "Leia, compreenda e siga a Política Corporativa de Segurança da Informação."
    txt(1) = "Notifique imediatamente os problemas e incidentes de Segurança da Informação."
    txt(2) = "Não compartilhe ou divulgue sua senha para ninguém."
    txt(3) = "A informação utilizada pela CONSOFT é um bem valioso e precisa ser protegida."
    txt(4) = "Não se esqueça de bloquear sua estação de trabalho ao ausentar-se."
    txt(5) = "Mantenha sua ''mesa limpa'', guarde adequadamente documentos que não estiver utilizando."
    txt(6) = "A responsabilidade por manter a CONSOFT segura é de todos! Colabore!"
    txt(7) = "Encaminhe suas sugestões para ''seguranca@consoft.com.br'' ou entre em contato pelos ramais 5114, 5163, 5191, ou ainda pelas caixas de sugestões da ISO 9001."
    txt(8) = "Em caso de dúvidas, entre em contato com a área de Segurança da Informação pelos ramais 5114, 5163, 5191, ou mande um e-mail para ''seguranca@consoft.com.br''."
    txt(9) = "Utilize sempre os formulários contidos em ''https://servicos.consoft.com.br/iso27001'' para efetuar suas solicitações e notificações."
    txt(10) = "Ao descartar documentos impressos, certifique-se de que as informações contidas não poderão ser reutilizadas. Use as fragmentadoras ou picote manualmente."
    txt(11) = "Somente a área de Suporte Técnico está autorizada a instalar softwares e programas ou alterar configurações de sua estação de trabalho. Nunca efetue estes procedimentos pessoalmente!"
    txt(12) = "Você já possui uma cópia do ''Guia Rápido de Segurança da Informação''? Não? Solicite-o à área de Recrutamento & Seleção ou Segurança da Informação."
    txt(13) = "Troque sua senha com uma periodicidade adequada a criticidade do sistema/ aplicativo que ela protege."
    txt(14) = "Não utilize a Internet ou o Correio Eletrônico para fins pessoais. Lembre-se que esses serviços são monitorados!"
    txt(15) = "Procure saber o valor das informações com as quais você trabalha. Alguns assuntos podem nos parecer irrelevantes, porém, são exatamente aquilo que os concorrentes querem saber!"
    txt(16) = "A informação é um dos principais ativos da CONSOFT e, como tal, deve ser manejada com muita responsabilidade!"
    txt(17) = "Colabore com a segurança da CONSOFT. Ao ver uma pessoa estranha ao ambiente, peça a sua identificação!"
    txt(18) = "Efetuar o logoff dos sistemas antes de ir embora, bloquear a estação de trabalho ao sair da mesa e usar protetores de tela protegidos por senha, são cuidados essenciais para garantir a confidencialidade e integridade das informações!"
    txt(19) = "Lembre-se que a Segurança da Informação é como uma corrente. Siga as recomendações e garanta que você não será o ''elo mais fraco'' da corrente!"
    txt(20) = "Evite discutir assuntos da CONSOFT em bares, restaurantes e outros locais públicos. As pessoas ao seu redor podem estar interessadas no que você está falando."
    txt(21) = "Utilize com responsabilidade as suas senhas de acesso aos sistemas computacionais e troque-as com freqüência."
    txt(22) = "Modere o tom da sua voz nas conversas ao telefone celular e fixo!"
    txt(23) = "Os e-mails enviados e recebidos são propriedades da CONSOFT, podendo ser monitorados a qualquer momento."
    txt(24) = "Os acessos que você faz à Internet podem ser monitorados a qualquer momento!"
    txt(25) = "A proteção da informação requer mais do que tecnologia: Faça sua parte!"
    txt(26) = "Mantenha todas as anotações, documentos e materiais confidenciais guardados em local seguro e de acesso restrito."

    minimo = 0
    maximo = ubound(txt)
     
    i = Int((maximo - minimo + 1) * Rnd + minimo)
    msgbox txt(i), vbinformation, "Comunicado de Segurança da Informação!"
    wscript.Quit

    segunda-feira, 18 de maio de 2009 17:57