Ir ao conteúdo

Verificar se um processo está execução e notificar via e-mail no Windows

Publicado por Matheus (X-warrior) Bratfisch em abril 16, 2012

Olá,

Recentemente meu primo precisou um Visual Basic Script que verifica se um processo está executando e caso esteja envie um e-mail. Ele me pediu ajuda para criar este script e eu resolvi ajudar.

Visual Basic Script para verificação de processo em execução e notificação via E-mail.

Verificar se um processo está em execução com Visual Basic Script e mostrar uma janela se estiver.
[code lang=”vb”]
set service = GetObject (“winmgmts:”)
for each Process in Service.InstancesOf (“Win32_Process”)
If Process.Name = processName then
wscript.echo “Notepad running”
wscript.quit
End If
next
[/code]

Enviar e-mail utilizando Visual Basic Script:
[code lang=”vb”]
Const username = “SENHA”
Const password = “PASSWORD”
Const smtpServer = “smtp.gmail.com”
Const port = 465
Const secure = True
Const userFrom = “FROM”
Const userTo = “TO”
Const emailSubject = “Subject”
Const emailText = “Text”

‘== CODE ==

Const cdoSendUsingPickup = 1 ‘Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 ‘Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 ‘Do not authenticate
Const cdoBasic = 1 ‘basic (clear-text) authentication
Const cdoNTLM = 2 ‘NTLM

Set objMessage = CreateObject(“CDO.Message”)
objMessage.Subject = emailSubject
objMessage.From = userFrom
objMessage.To = userTo
objMessage.TextBody = emailText

‘==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

‘Name or IP of Remote SMTP Servesr
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = smtpServer

‘Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = cdoBasic

‘Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusername”) = username

‘Your password on the SMTP server
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = password

‘Server port (typically 25)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = port

‘Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = secure

‘Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60

objMessage.Configuration.Fields.Update

objMessage.Send
[/code]

Estes dois scripts foram mesclados para realizar o que precisávamos.

Abraços,
Matheus

Referencias:
http://wiki.imacros.net/send-email.vbs
http://www.techimo.com/forum/applications-operating-systems/117464-need-vbulletin-script-check-see-if-process-running.html

Publicado emwindows

14.559 Comentários

  6. JasonSom JasonSom

    Эта публикация исследует взаимосвязь зависимости и психологии. Мы обсудим, как психологические аспекты влияют на появление зависимостей и процесс выздоровления. Читатели смогут понять важность профессиональной поддержки и применения научных подходов в терапии.
    Жми сюда — получишь ответ – [url=https://allaboutourladies.ru/zdorove/lechenie-alkogolizma-v-lipeczke-professionalnyj-podhod-i-effektivnye-metody/]лечение алкоголизма в Липецке[/url]

    # novembro 6, 2026
  7. crazy_maEi crazy_maEi

    Sto a Crazy Time live streaming diretta 24h Italia da inizio estate, per cui ormai ho capito come gira la baracca. L’ho scoperto da un thread qui sul forum, mica che stessi cercando il sito perfetto. Quello che ti salta all’occhio e il comparto live: i tavoli di Evolution che girano anche alle 4 del mattino, con gente reale che gira la ruota e i soliti game show. Monopoly Live e Lightning Roulette sono quelli dove lascio piu soldi, senza girarci intorno.

    Di slot ne hanno parecchie, intorno alle 2000 se non sbaglio. Pragmatic Play la fa da padrone con Gates of Olympus piu Sweet Bonanza, poi Play’n GO per Book of Dead, qualcosa di NetEnt oltre a Big Time Gaming per quelli che amano le volatilita assurde. La ricerca per provider funziona bene, anche se il menu di tanto in tanto si impalla per due secondi su connessione dati. Un’applicazione da scaricare non ce n’e, si va via browser, ma devo dire che non mi e mai pesato.

    Sulla parte bonus offerto da Crazy Time live streaming diretta 24h Italia si aggira sul niente di rivoluzionario: 100% fino a 500€ piu 150 giri omaggio dati un po’ per volta. Il requisito di puntata e di x35, che non e un regalo pero sta nella norma del mercato. Girano anche dei free spin senza deposito nel caso confermi i documenti — io ne ho avuti 20. Le promo cambiano spesso, quindi tanto vale leggersi le condizioni correnti direttamente su [url=http://www.bitcoinvideocasino.net/live/]crazy time streaming[/url] se ti interessa la cosa. La soglia minima 15€, la registrazione in cinque minuti con documento.

    Per i soldi nessun problema serio. Carta di credito chiaramente, poi Skrill e Neteller restano quelli che consiglio, c’e anche la possibilita crypto per chi ci smanetta. Il mio ultimo prelievo e arrivato in circa 20 ore su portafoglio elettronico; via bonifico ci vogliono 3-4 giorni. L’unica rogna vera e il controllo documenti: mi hanno rimbalzato la bolletta due volte senza spiegarmi bene perche.

    L’assistenza su Crazy Time live streaming diretta 24h Italia risponde in italiano il che aiuta, la live chat disponibile a tutte le ore. Attese sui due o tre minuti, ragazzi i quali non ti rispondono a pappagallo. Sulle licenze dichiarano regolare autorizzazione estera, per cui non parliamo di concessione italiana — sta a te valutare se ti va bene. Per noi in Italia la lingua e gli strumenti di pagamento sono comunque curati, pero alcuni tavoli hanno orari pensati per altri fusi.

    # novembro 6, 2026
  24. Menedjment v zdravoohranenii_giEt Menedjment v zdravoohranenii_giEt

    Интересно, как у вас внедряются профстандарты в организации здравоохранения? Хотелось бы обсудить по организации здравоохранения и общественному здоровью. аккредитация по организации здравоохранения и общественному [url=https://cashwise.ru]нии организации здравоохранения[/url] Где сейчас лучшие практики по этому направлению?

    # novembro 6, 2026
  43. Beth Beth

    casinos que te den dinero para empezar a jugar

    Here is my web blog … bonos de apuestas sin depósito españa casino online
    – Beth –

    # novembro 6, 2026

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *