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

13.725 Comentários

  2. Alberta Alberta

    milwausaee wisconsin best casino palm desert (Alberta), slots ironman lausaarote and new zealandn online pokies minimum $5 deposit, or australian open gambling

    # setembro 29, 2026
  5. Marylin Marylin

    canadian online bingo games, on line red rock casino entertainment calendar; Marylin,
    canada and bet365 united statesn roulette guide uk, or paying tax on gambling winnings
    australia

    # setembro 29, 2026
  16. RussellWap RussellWap

    В этой медицинской статье мы погрузимся в актуальные вопросы здравоохранения и лечения заболеваний. Читатели узнают о современных подходах, методах диагностики и новых открытий в научных исследованиях. Наша цель — донести важную информацию и повысить уровень осведомленности о здоровье.
    Запросить дополнительные данные – [url=https://boilervdom.ru/zdorove/vyvod-iz-zapoya-v-stacionare-v-reutove.html]Вывод из запоя на дому[/url]

    # setembro 29, 2026
  17. Michaelprale Michaelprale

    Эта публикация обращает внимание на важность профилактики зависимостей. Мы обсудим, как осведомленность и образование могут помочь в предотвращении возникновения зависимости. Читатели смогут ознакомиться с полезными советами и ресурсами, которые способствуют здоровому образу жизни.
    Получить полную информацию – [url=https://notarwise.ru/pages/kruglosutochnaya-narkologicheskaya-pomosch/]мобильная наркологическая помощь казань[/url]

    # setembro 29, 2026
  29. playf_bhea playf_bhea

    Spiele jetzt seit etwa fuenf Monaten bei Play Fortuna angemeldet, genug Zeit also um eine realistische Einschaetzung zu geben. Habe es beim Vergleich von Anbietern gefunden, da die Slotauswahl vielversprechend aussah.

    Das Angebot an Spielen hier geht in die Tausende: Pragmatic, NetEnt und Nolimit City stellen den Grossteil. Gates of Olympus und Sweet Bonanza sind natuerlich dabei, die Nolimit-Titel sind fuer mich das Highlight. Live Casino laeuft ueber Evolution: alle bekannten Tischspiele plus die Showformate. Dealer sprechen Deutsch zu bestimmten Zeiten.

    Der Willkommensbonus bei Play Fortuna bietet eine Verdopplung bis 500 Euro, und Gratisdrehungen die stueckweise freigegeben werden. Wagering liegt bei 40x, was hoch ist aber nicht ungewoehnlich. Aktuelle Codes und Angebote sind nachzulesen auf [url=https://apkarena.com.ng/play-fortuna-so-funktioniert-die-registrierung-schritt-fur-schritt/]play fortuna[/url] vor der Einzahlung pruefen. Reload-Boni gibt es woechentlich.

    Man kann ab 10 Euro starten. Die ueblichen Zahlungsmethoden gehen problemlos, Bitcoin wird ebenfalls angenommen. Skrill-Auszahlungen waren am naechsten Tag da, Auf die Karte waren es drei Werktage. Dokumente wurden schnell geprueft — Personalausweis hochgeladen und in Stunden bestaetigt.

    Am Smartphone laeuft alles im Browser, funktioniert einwandfrei. Kundenservice spricht Deutsch Antworten kommen zuegig. Es gilt eine Curacao-Lizenz, was man wissen sollte. Mein Geld kam bisher immer an.

    # setembro 29, 2026

Deixe um comentário

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