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
Слушайте кто знает Отец не выходит из штопора Дети напуганы Нужна срочная помощь на дому Короче, врачи приехали и поставили систему — вывод из запоя волгоград круглосуточно Сняли ломку и стабилизировали состояние В общем, жмите чтобы сохранить — введение из запоя на дому [url=https://czena.vyvod-iz-zapoya-na-domu-volgograd.ru]https://czena.vyvod-iz-zapoya-na-domu-volgograd.ru[/url] Не ждите пока станет хуже Перешлите тем кто в такой же ситуации
casino in toronto ontario australia, united kingdom online 7 rosewood avenue
casino (Donna) free chip
and casino kingdom usa, or bet365 united statesn roulette betting
cheltenham bets tips
Here is my webpage: horse racing results and non runners
free Can you box a trifecta bet (beyondthepewsforlife.com) on the grand national
Волгоград, всем привет Отец не выходит из штопора Дети напуганы Нужна срочная помощь на дому Короче, врачи приехали и поставили систему — выезд на дом капельница от запоя с препаратами Поставили капельницу с детоксикационным раствором В общем, не потеряйте контакты — вывод из запоя клиника [url=https://alkogolizm.vyvod-iz-zapoya-na-domu-volgograd.ru]вывод из запоя клиника[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации
Медикаментозное кодирование препаратом назначается после обследования. В зависимости от выбранной схемы препарат может вводиться путем внутримышечной или внутривенной инъекции, использоваться в форме таблеток или импланта. В некоторых программах применяется вшивание ампулы. Среди известных средств и коммерческих наименований встречаются препараты на основе дисульфирама, Эспераль, Торпедо, Алгоминал, Аквилонг и другие лекарственные решения. Конкретный препарат, доза, способ введения и длительность действия определяются только врачом.
Получить больше информации – [url=https://2.kodirovanie-ot-alkogolizma-moskva9.ru/]анонимное кодирование от алкоголизма[/url]
Своевременное обращение к врачу позволяет остановить запой, уменьшить проявления абстинентного синдрома, снизить риск осложнений и значительно ускорить восстановление организма. Медицинская помощь особенно актуальна, если зависимый пил несколько суток подряд, не смог остановиться самостоятельно или предыдущие запои уже приводили к тяжелому похмелью. Чем раньше родственники решили вызвать нарколога, тем больше возможностей провести детокс и стабилизацию без развития критического состояния.
Изучить вопрос подробнее – [url=https://k.vyvod-iz-zapoya-v-krasnoyarske17.ru/]www.k.vyvod-iz-zapoya-v-krasnoyarske17.ru[/url]
nieuwe wedden app
Here is my homepage – advies weddenschappen, Aracelis,
paardenracen trucs mobiel Wedden 2026
virtuele wedden trucs gratis (Marcia) tips vandaag gratis
aanbieder van live wedden paarden 2026
niet op 1 paard Goede Wedden 2026
Резко прекратить длительное употребление алкоголя без контроля врача бывает сложно. При алкоголизме нервная система привыкает к постоянному действию этанола, поэтому после прекращения приема спиртного может развиться выраженная абстиненция. Лечение направлено на снижение тяжести этого периода, коррекцию водно-электролитного баланса, защиту внутренних органов и нормализацию самочувствия.
Дополнительная информация – https://n.vivod-iz-zapoya-v-sankt-peterburge16.ru/
over en las apuestas (graffitiprofesional.Es) fiorentina betis
Частная наркологическая клиника доктора Лазарева эффективно осуществляет лечение зависимости в Санкт-Петербурге с 2008 года. Для каждого пациента составляется индивидуальная программа курса терапии на дому или в реабилитационном центре. Лечение осуществляется с учетом характера зависимости, состояния органов, возраста, длительности употребления, результатов диагностики и готовности пациента меняться. Комплексность программы является значимым преимуществом: врач работает не только с физическими проявлениями болезни, но и с психологическими причинами пагубной привычки.
Получить больше информации – [url=https://v.narkologicheskaya-klinika-sankt-peterburg14.ru/]платная наркологическая клиника Санкт-Петербург[/url]
Люди помогите советом Брат снова сорвался Жена в истерике Нужна срочная помощь на дому Короче, врачи приехали и поставили систему — выведение из запоя на дому быстро Поставили капельницу с детоксикационным раствором В общем, телефон и цены тут — вывод из запоя анонимно [url=https://lechenie.vyvod-iz-zapoya-na-domu-volgograd.ru]вывод из запоя анонимно[/url] Вывод из запоя на дому — это реальный выход Перешлите тем кто в такой же ситуации
comparador apuestas Colombia Paraguay champions
como se juegan las apuestas cual es la mejor App De apuestas futbol
non runner no bet meaning
my web-site … horse racing results today fast results today please (Fred)
So you’re moving — I’ve been there not ages ago, and take it from someone who knows, quite the production. Figure it’s just stuff, then it multiplies overnight. Friends all had varied experiences, but I wanted real answers. Anyway: when you’re searching for reliable nevada moving services, check around first. Simple reason: seasoned operators make fewer mistakes — especially if you’ve got heavy stuff. In my case — made several calls — and honestly, it was the smartest move. Here’s something worth seeing that made the choice obvious. nevada movers [url=https://movers-in-nevada-rfj.com]nevada movers[/url] That compilation cut the fluff. Everything is out in the open — no hidden extras. Went with what I found there and it was a breeze. So be thorough. Ask about packing materials. A proper moving company is worth every dollar. Hope this helps point you in the right direction!