Saudações pessoal,
Constantemente vemos algum site não acessando corretamente, ou não finalizando determinada função devido a falha de permissão no Internet Explorer. Quando se trata de poucas estações de trabalho o trabalho pode ser feito manualmente, contudo, em um parque mais extenso, a tarefa é de grande esforço e sem uma forma de automatização, a tarefa pode requerer boas horas de trabalho.
Pensando no quesito de automatização, abaixo um script que pode ser uma solução alternativa à GPOs, ou que pode usado para se adicionar sites confiáveis em multiclientes, etc.
Bom, vamos ao script:
SCRIPT:
On Error Resume Next
Const HKEY_CURRENT_USER = &H80000001
strComputer = “.”
Set objReg=GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\seuDominio.com\webmail”
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
strValueName = “http”
dwValue = 2
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
Const HKEY_CURRENT_USER = &H80000001
strComputer = “.”
Set objReg=GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\seuDominio.com\webmail”
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
strValueName = “http”
dwValue = 2
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
lembrando que se caso queira definir um domínio como confiável, você devera remover o que vem depois do nome do domínio (nesse exemplo o \webmail).
Para definir o seu hostName e domínio, altere \seuDominio.com\webmail para o domínio e hostName desejado.
Comente se deu certo. Fico por aqui e até a próxima!
2 Comentários. Deixe novo
Boa dica
Olá!
Não estou conseguindo executar esse script. Adaptei conforme minha necessidade, porém, não está rodando. Existe alguma plataforma para que eu tirasse algumas dúvidas sobre? Aguardo.