Script VBS – Monitorar porta USB

Monitora a porta USB e envia um e-mail todas vez que um dispositivo USB estiver conectado

 

Notifier(objLatestEvent.TargetInstance)
Loop

Sub Notifier(object)
Set objNet = CreateObject(“Wscript.Network”)

‘You can change the function below to perform other actions
SendMailWithoutSSL _
“seu_email@seu_dominio”, _
“Dispositivo USB conectado ” & objNet.Computername, _
“seu_email@seu_dominio”, _
“O usuário ” & objNet.Username & ” conectou um dispositivo USB neste micro.”, _
“servidor SMTP”, _
25, _
“seu usuario”, _
“senha”
End Sub

 
‘ CDOSYS official documentation:
‘ http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wss/wss/_cdo_queue_top.asp
‘
‘ by Adriano Mendes
Sub SendMailWithoutSSL(strDestination, strTitle, strFrom, strMessage, strSMTP, intPort, strUsername, strPassword)
set oMessage = CreateObject(“CDO.Message”)
set oConf = CreateObject(“CDO.Configuration”)
Set oFields = oConf.Fields

 oFields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver“) = strSMTP
oFields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = intPort
oFields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate“) = 1 ‘cdoBasic: Auth with user and password sent with plain text
oFields.Item(“http://schemas.microsoft.com/cdo/configuration/sendusername“) = strUsername
oFields.Item(“http://schemas.microsoft.com/cdo/configuration/sendpassword“) = strPassword
oFields.Item(“http://schemas.microsoft.com/cdo/configuration/Smtpusessl“) = false
oFields.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2 ’1: Using local SMTP; 2: Using port; 3: Using Exchange
oFields.Update

oMessage.Fields.Item(“urn:schemas:mailheader:to”) = strDestination
oMessage.Fields.Item(“urn:schemas:mailheader:from”) = strFrom
oMessage.Fields.Item(“urn:schemas:mailheader:sender”) = strFrom ‘reply-to
oMessage.Fields.Item(“urn:schemas:mailheader:subject”)= strTitle
oMessage.Fields.Item(“urn:schemas:mailheader:x-mailer”) = “Adriano Mendes ”
oMessage.Fields.Update

oMessage.Configuration = oConf

oMessage.TextBody = strMessage
oMessage.Send
End Sub