Aprenda como criar um script VBS capaz de enviar um e-mail (claro que para isso deve ser possível a conexão SMTP ao servidor, não abordaremos esta parte). No exemplo abaixo faremos um script para uma possível tarefa agendada ou GPO.
Abra o editor de texto (de preferência o Notepap++ para manter as quebras de linha), insira o conteúdo abaixo (altere as partes em cinza conforme a sua realidade) e salve o arquivo com a extensão .vbs:
Dim objMail, wshNetwork, strComputerName On Error Resume Next
Set objMail = CreateObject("CDO.Message") Set wshNetwork = WScript.CreateObject( "WScript.Network" )
strComputerName = wshNetwork.ComputerName strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)objMail.From = "NOME_DE_QUEM_ENVIARA <EMAIL_DE_QUEM_ENVIARA@SUAEMPRESA.COM.BR>"objMail.To = "NOME_DE_QUEM_RECEBERA <EMAIL_DE_QUEM_RECEBERA@SUAEMPRESA.COM.BR>"objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "IP_DO_SERVIDOR_DE_EMAIL" objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "PORTA_SMTP_DO_SERVIDOR_DE_EMAIL"objMail.Configuration.Fields.UpdateobjMail.Subject = "Relatorio servidor "& strComputerNameFor Each objItem in colItemsobjMail.Textbody = " Vamos laa....." & Chr(10) & "------------------------------------------------" & Chr(10)objMail.Textbody = objMail.Textbody & "" & Chr(10) &"Nome do Computador: " & strComputerNameobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"CreationClassName: " & objItem.CreationClassNameobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"CurrentTimeZone: " & objItem.CurrentTimeZoneobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"Description: " & objItem.DescriptionobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"Domain: " & objItem.DomainobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"DomainRole: " & objItem.DomainRoleobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"Manufacturer: " & objItem.ManufacturerobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"Model: " & objItem.ModelobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"Name: " & objItem.NameobjMail.Textbody = objMail.Textbody & "" & Chr(10) &"NumberOfProcessors: " & objItem.NumberOfProcessorsNextobjMail.SendSet objMail=Nothing
Depois de salvar, execute o arquivo vbs e verifique como é simples.
Mais Informações
Esperamos ter ajudado da melhor forma possível e estaremos sempre a disposição para mais informações.
Entre em contato conosco pelo e-mail equipe@nvlan.com.br.
