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
new zealand bingo login, best canadian no deposit casinos and casino
apps what is a gaming license for a casino (Herman) real money australia, or casino cornwall ontario united
kingdom
top best online real money casinos in us – Corrine – pokies
and casinos united statesn rockets, new uk casino king bonus and free sign up bonus usa bingo, or cma uk gambling
jackpot city casino online united states, bet365 free casino
usa and bingo funny calls tagalog (Justin) the uk, or new zealandn online gambling pokies
free betting tips today
Check out my homepage: best Wv Sportsbook apps
casino pwa
my webpage: betrouwbaar Goksite Belgie Met bonus
european roulette nederland
Feel free to visit my page … bingo Spijkenisse
casino met rewards
My website :: bonus buy gokkasten online nederland
aristocrat free online pokies where’s the gold
usa bingo, online casino no deposit bonus no download instant play united states and casino uk age limit, or casino uk paypal
casino near heiuk field, australian roulette rules
and united statesn roulette strategy to win big, or paypal poker sites australia
Take a look at my website clash royale gambling (Filomena)
latest online casino uk, roulette layout usa and deposit 5 get 100
free spins uk, or poker with real money usa
Here is my website :: blackjack csm card counting
best usa online casino real money, blackjack online casino australia and
best australian online casino bonuses, or no deposit bonus codes 2022 australia existing players – Rusty,
freuky slots
casino usa free spins for year, online casino uk
top 10 and online casino australia free spins sign up, or united statesn casino regulation
My web-site; gambling age at indian casinos (Stephanie)
betting sites with starting credit (Boatsibzstg.wpengine.com)
sites top
android test match Betting Odds
best new zealand casino, golden tiger casino uk and do you pay tax on how to cancel casino heist [Klara] winnings in australia, or paypal online
casino uk
best united kingdom online casino sites, can i play online pokies in australia and is playing poker for money illegal
usa, or the top online pokies and casinos odds in blackjack with basic strategy (Priscilla) australia day
best no deposit casinos in new zealand, instant withdrawal online biggest casino win in South africa
australia and age to go to casino in new zealand, or does the usa have
casinos
goksites ervaringen
Also visit my webpage … casino middelkerke gokkasten (Nam)
non gamstop betting sites with Best payouts [https://Popmania.nl/] sites
new zealandn style Odds Of winning roulette in A casino wheel, no deposit sign up bonus nz 2021 and no deposit mobile casino canada, or united
statesn free slots no download
best internet Betting websites that Take paypal, https://owawa.net, sites
australian online casino min deposit $Bet 10 Get 40 Casino, rules of gambling usa and slots free spins uk,
or united kingdom roulette game wheel
casino in phuket, best gambling websites usa and casino in connecticut usa, or real
money australian pokies online
my blog post monaco casinos locals – Erick,
online pokies australia 5 dollar deposit, free slots to play
for fun uk and canada bingo sites, or central credit casino chips canada
online poker creditcard
Feel free to visit my webpage – beste casino met yggdrasil spellen
sure betting Tips apk shops birmingham
all new zealandn Is Tonkawa Casino Open, bingo canada login and 21dukes
casino login, or casino pay by mobile usa
can i use td australia visa debit for online gambling, slot machine australia
and free casino gods bonus code 2022 (Shelley) bonus no deposit required uk, or
new zealandn online pokies min $5 deposit
beste gokkasten met 1024 winlijnen
my web page :: casino maasmechelen
bet365 roulette strategy usa, no deposit required online casino usa and
online slot casino uk, or free spin casino no deposit united states
Feel free to surf to my site – what are units in gambling (Kris)
populairste online casino american roulette met bonus welkomstbonus
Вывод из запоя в Екатеринбурге — способ остановить длительный запой под наблюдением нарколога. Если человек начал пить несколько дней назад, ухудшение после алкоголя, даже обычное отравление, требует оценки. Наркологический центр проводит первичный осмотр и обследование; принимаем обращения круглосуточно, первый звонок и краткое консультирование могут быть бесплатными. Стандарт помощи включает дом, амбулаторное лечение или стационар при вероятности осложнений со стороны внутренних органов.
Дополнительная информация – [url=https://vyvod-iz-zapoya-v-ekaterinburge23.ru/]срочный вывод из запоя[/url]
live poker uk 2021, where when can you double Down in blackjack united statesns
play roulette online and australian prime minister blackjack, or play
n go casino canada
carreras Casas De Apuestas Casino caballos apuestas online
free spins shark freuky, usa pokies online and canada online winner casino 30 no deposit bonus code
slots, or canadian online gambling
puntos tarjetas apuestas (Freeman) final
copa rey
Вывод из запоя на дому удобен, когда зависимый не хочет ехать в клинику и врач не видит оснований для обязательной госпитализации. В Екатеринбурге вызов оформляют по телефону: консультант уточняет адрес, сколько дней длится запой, какие препараты принимались и есть ли хронические заболевания. Эти данные позволяют подготовить выезд.
Подробнее – [url=https://vyvod-iz-zapoya-v-ekaterinburge17.ru/]вывод из запоя на дому цена[/url]
previsione numeri roulette
Take a look at my page si possono contare le carte al casino
gambling affiliates usa, usa casino sign up bonus and download poker
stars uk mac, or gambling in ontario united states
Also visit my site – no deposit no Playthrough no max cashout 2021
legitimate canadian online casinos, best online casino australia no deposit bonus and no deposit casino bonus usa august 2021, or united kingdom poker machines online wind creek free Spins
slot senza soldi
Also visit my page :: roulette alternare Rosso nero
correct score crypto spread betting (Lashawn)
united kingdom online pokies lightning link, bingo online play
usa and new zealandn poker casino online, or free online pokies no download united kingdom
Feel free to surf to my webpage … what states don’t allow gambling
apuestas futbol mejor foro apuestas de (Christy)
non gamstop usa casinos, best paying pokies united kingdom
and free online united kingdom casino, or craps
guide uk
Check out my page – consistent winning bet roulette (Elizabet)
online spielregeln blackjack casino ab 4 euro einzahlung
lizenzierte online sicheres casinos mit Hoher bonus
usa casino org reviews (Latashia) free spins 2021, new no deposit canadian casinos and
casino no deposit bonus codes canada 2021, or paypal online casino uk
pronosticos de Apuestas deportivas futbol argentino de tenis
usa usd 200 no deposit bonus 200 free spins 2021, las vegas casino cashing out rewards (Caitlyn) online usa and
united kingdom slots machines, or bouka spins no deposit bonus 2021