Luiz Rovero

Pessoal, boa tarde. Tenho uma missão de criar uma forma de apresentar uma mensagem semanal do Presidente da empresa através da GPO, até ai tudo bem, o grande problema é que o conteudo desta mensagem será modificada semanalmente por ele. A mensagem será criada no Word e salva em forma .HTM ou .HTML num diretório já criado, então a janela do poupup quando abrir para os usuários na rede, deve apresentar no tamanho do conteúdo da mensagem e não com espaço em branco. Segue o script que estou utilizando. 'Script de Login On error Resume Next Err.clear 0 '============================================================================ 'Mensagem ao usuario em HTML Set objFSO = CreateObject("Scripting.FileSystemObject") strFile = "C:\Users\lrovero\Documents\!Lixo\teste\mensagem.htm" If objFSO.FileExists(strFile) Then strText = objFSO.OpenTextFile(strFile, 1).ReadAll Set objIE = CreateObject("InternetExplorer.Application") objIE.navigate2 "about:blank": objIE.width = "50%" : objIE.height = "50%" : objIE.toolbar = false : objIE.resizable=no objIE.menubar = false : objIE.statusbar = false : objIE.visible = True objIE.document.write "<font color=blue><i>" objIE.document.write strText objIE.document.write "</i></font>" End If Wscript.Quit