30 de set de 2011

Enviando e-mail do The Dude para Gmail

O The Dude é um aplicativo de monitoramento desenvolvido pela Mikrotik. Simples e fácil de configurar, e muito completa.
Apresentei o software para um amigo meu, que cuida de um datacenter em SP, e ele achou muito interessante e colocou em produção para monitorar a rede do datacenter. Mas ai me questionou que não conseguia enviar com SSL.
Bom, vou mostrar que isto não é importante.
Após instalar o The Dude, abra as configurações de e-mail e entre com os servidores MX do Google, como na imagem abaixo:
image
Note que realmente os IP 74.125.*.* informados são os MX do gmail, veja:
image
E note que o campo From: foi colocado o IP público do servidor The Dude, pois o mesmo será validado pelo Gmail.
Após isto, configure um alerta por e-mail no The Dude, como na próxima tela:
image
Neste momento execute um teste de envio.
Abra sua caixe de mensagem Gmail e vá para a caixa de Spam:
image
Marque o checkbox na frente da mensagem e clique no “Não é spam”. Pronto. Agora você pode criar algumas regras para enviar e-mail para outras contas.
Dica: Não confie somente em um sistema de monitoramento. Use serviços externos também, como o http://mon.itor.us/, é muito bom e de graça.

2 de set de 2011

Recuperando senha usuário IUSR ou WAM

Se a conta de acesso anonima do IIS foi alterada e agora você precisa voltar para a IUSR, e agora não sabe que senha colocar no campo do inetmgr, siga estes passos:

1 - No servidor, salve o texto abaixo em um arquivo no desktop com o nome p.vbs:

Dim IIsObject, SiteObject
Set IIsObject = GetObject ("IIS://localhost/w3svc")
Wscript.Echo Get_IUSR_Password(IIsObject)
Wscript.Echo Get_IWAM_Password(IIsObject)
Function Get_IUSR_Password(IIsObject)
  on error resume Next
  Dim Out
  Out = Out & vbCrLf & "
AnonymousUserName = " & IIsObject.Get("AnonymousUserName")
  Out = Out & vbCrLf & "
AnonymousUserPass = " & IIsObject.Get("AnonymousUserPass")
  If err=0 Then Out =  vbCrLf & "
Path:" & IIsObject.AdsPath & Out
  Get_IUSR_Password = Out
End Function
Function Get_IWAM_Password(IIsObject)
  on error resume Next
  Dim Out
  Out = Out & vbCrLf & "
WAMUserName = " & IIsObject.Get("WAMUserName")
  Out = Out & vbCrLf & "
WAMUserPass = " & IIsObject.Get("WAMUserPass")
  If err=0 Then Out =  vbCrLf & "
Path:" & IIsObject.AdsPath & Out
 
  Get_IWAM_Password = Out
End Function 

2 - Após salvar o arquivo, abra um prompt de comando e execute o arquivo:

3 - Copie a senha para o método de autenticação do IIS:

Pronto! Agora é só acessar novamente a página WEB deste servidor.