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
Multiplicador Casino ciudad
trigal
My spouse and I stumbled over here different web
address and thought I might as well check things out.
I like what I see so now i’m following you. Look forward to looking into your web page
yet again.
casino puerto real
Feel free to surf to my blog: casinos que regalan Bonos 2026
pronosticos apuestas liga española; Johnie, mundial
descargar juegos de revisión línea casinos en españa [Cheri] para android
casinos codigos promocionales en miramar
que casino da bono por cumpleaños villalba
juegos de casino registrarse 7 euro gratis con dinero real gratis
legalize online gambling in united states, semyon dusaach blackjack and how
to play online table mountain casino indian tribe (Effie) united states, or online casinos usa friendly
apuestas Que Significa 1X2 En Las Apuestas siempre ganaras
juegos de ruleta casino para movil gratis para celular
formatos de un casino
my homepage :: casinos en bilbao españa (Yukiko)
how many online casinos in usa, casino jack milwaukee and craps odds
usa, or best Cadburys Online casino casino new zealand fast payouts
apuestas casino dinero
my web blog: casinos en canarias – esteticain.com.br,
Juegos de casino multijuegos online españa pago fácil
casino playa chiquita sosua
Feel free to visit my web site – juegos de casinos gratis para iphone (Wilfred)
how to hack slot machines uk, free slots cash frenzy and free new bonus codes online casinos
(https://naturalrecharge.com.br/what-is-Card-game-pontoon/) no deposit casino
usa, or united statesn online no deposit pokies
juegos de casino online Ruleta directo gratis
mas nuevos
Casino gratis 2026 mairena del aljarafe
Вывод из запоя в Реутове в наркологической клинике «Детокс» — медицинская помощь человеку, который не может самостоятельно прекратить длительное употребление алкоголя или тяжело переносит похмелье. Лечение подбирается индивидуально с учетом возраста, количества выпитого, длительности запоя, хронических заболеваний и текущего самочувствия. Врач-нарколог проводит осмотр, оценивает физическое и психическое состояние пациента, измеряет пульс и артериальное давление, уточняет анамнез и только после диагностики определяет безопасный формат помощи: вывод из запоя на дому, амбулаторное лечение или госпитализацию в стационар.
Изучить вопрос подробнее – [url=https://2.vyvod-iz-zapoya-reutov4.ru/]vyvod-iz-zapoya-cena[/url]
sports bet
Feel free to surf to my webpage … betting betting tips [Sylvia]
quote pianeta scommesse rugby live
Большое количество алкоголя или наркотиков отправляют организм и самостоятельно продукты распада выходят достаточно долго. Токсичное влияние веществ отражается на работе печени, почек, сердца, нервной системы и мозга. Возможны головные боли, тошнота, тремор, судороги, раскоординирование движений, заторможенная речь, нарушения дыхания и сердцебиения, скачки артериального давления. В таких случаях не стоит заниматься самолечением или принимать медикаменты без назначения врача: сочетание компонентов, неправильные дозировки и индивидуальная непереносимость повышают вероятность побочных эффектов.
Подробнее – [url=https://a.narkologicheskaya-klinika-v-krasnoyarske17.ru/]http://a.narkologicheskaya-klinika-v-krasnoyarske17.ru[/url]
new zealandn online pokies au reviews, golden tiger black hawk casino table minimums (Osvaldo) uk and online pokies united states no deposit signup bonus, or
auto roulette hack
jugar juegos Casino online mercadopago en directo
usa online casino that Uses instadebit casinos new, new zealandn online
real money poker sites and pokies real money australia, or bet365 craps strategies usa
juegos dentro de un casino online ingreso mínimo 1 euro
Зависимость редко начинается сразу с тяжелого состояния. Сначала человек может считать, что контролирует алкоголь, наркотики или азартные игры, затем количество эпизодов увеличивается, прежний образ жизни начинает рушиться, возникают проблемы с работой, взаимоотношениями, деньгами и здоровьем. Когда употребление становится регулярным, зависимый все чаще выбирает ПАВ вместо семьи, профессиональных задач и личных целей. Родственникам важно учитывать, что крики, давление, обвинения, ярлыки, угрозы и попытки заставить лечиться часто вызывают сопротивление, агрессию и отрицание.
Изучить вопрос подробнее – [url=https://a.narkologicheskaya-klinika-v-krasnoyarske17.ru/]наркологическая клиника наркологический центр в Красноярске[/url]
siti scommesse registrazione con spid scommesse svizzera
when are pokies opening in south united states,
personal gambling licence usa and best number 1 casino in goa (Shani) sites
united states, or online casino new usa
casino sans dépôt initiale
My page – baccarat qui paie Le mieux suisse
I blog often and I genuinely appreciate your information. This article has truly peaked my interest.
I’m going to book mark your site and keep checking for new information about once per week.
I subscribed to your RSS feed as well.
Stop by my website :: casino jack online ru – Reagan –
Why am i gambling so much always spent
my half an hour to read this web site’s content every day along with
a mug of coffee.
total tarjetas Apuestas gana
play online casino games and win real money in india roulette online canada
free, do casinos pay out in cash uk and jackpot pokies canada,
or uk gambling forum
Hi there, I enjoy reading all of your article.
I like to write What Is A Spinning Roulette Wheel little comment to support you.
casino brisbane united states, free pokie
games nz and casino game player banker (Brigitte) in connecticut usa, or is online poker coming
back to united states
live Masters betting Odds
bonus
Перед тем как прокапаться на дому, нужно оценить тяжесть проявлений. Нарколог проверяет давление, частоту сердцебиения, ориентацию пациента, наличие рвоты, дрожи и психического возбуждения. Важно учитывать, что даже хорошим общим самочувствием нельзя полностью исключить осложнения после длительного приема алкоголя.
Узнать больше – [url=https://1.kapelnica-ot-zapoya-moskva0.ru/]zakazat-kapelnicu-ot-zapoya-na-domu[/url]
blackjack bitcoin belgique
Look at my web page: Casino Croupiers
Помощь может включать консультацию, детоксикацию, стационар и дальнейшее сопровождение по показаниям.
Получить больше информации – https://2.kodirovanie-ot-alkogolizma-moskva9.ru/
native united statesn casino rights, online bingo slots
uk and best online casino united kingdom fast payouts,
or minimum deposit 1 pound casino usa
Feel free to visit my site: blazing 7 blackjack payout
usa free spins no money deposit, craps tutorial usa and united statesn casino guide blackjack chart, or australian casino free chips
Feel free to visit my page: bank id casinon, Hamish,
milwausaee wisconsin Chanel crown casino, african new zealandns gambling
in vegas and texas holdem poker in united states, or fort erie casino ontario united kingdom
best online slots payout percentage usa, poker australia tournaments and poker for real money
in usa, or cahuilla bellagio casino smoking policy (Adrianna) ausaa california
usa casinos that accept paypal, 888 poker app united kingdom and casino in milwaukee wisconsin, or top usa online poker sites
Feel free to visit my web page should i marry a gambler (Aurora)
aj beuka high stakes poker, $150 free no deposit
casino australia and united statesn roulette strategy to
win big, or milwausaee Online casino roulette real Money India entertainment
is casino legal in us (Jackson) internet poker legal in australia,
new zealandn express zahlung online casino and free
spins no deposit 2021 usa, or new zealand real money slots
10 minimum deposit online can you be in A casino under 21 usa, best australian online
casinos and united statesn poker 95 download, or nz online casinos that accept
paypal
united kingdom casino slots tips gambling, bouka pokies and canadian pokies winners, or
best Is The Burswood Casino Open Today in australia online