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
wettanbieter paypal deutschland
Also visit my website: wetten dass bagger basketball; Robyn,
Помощь можно получить анонимно, с аккуратным оформлением и внимательным отношением к личным данным.
Ознакомиться с деталями – [url=https://n.narkologicheskaya-klinika-sankt-peterburg14.ru/]наркологическая клиника нарколог в Санкт-Петербурге[/url]
leon sportwetten
My web site – wetten basketball bbl
doble oportunidad en chile vs argentina apuestas
Obstawiam u nich od jakichs pieciu miesiecy, glownie wieczorami po robocie. Wpadlem na to z jakiegos watku na forum, szukalem wtedy miejsca, ktore przyjmuje zlotowki, a nie ciagle przewalutowanie. Nie powiem — z poczatku nie mialem zaufania, bo takich stron jest teraz z milion.
Automaty to jest to, po co tam siedze. Jest cos kolo 6-7 tysiecy tytulow, choc badzmy szczerzy polowy nikt nigdy nie odpali. Ja gram glownie na Play’n GO — Gates of Olympus potrafi zrobic dzien, a z klasyki lece w Book of Dead. Jest tez NetEnt, Betsoft, Microgaming, wiec nie ma na co narzekac. Ostatnio wciagnalem sie w stoly na zywo — Evolution robi to porzadnie, prowadzacy po angielsku, ale czasem trafiaja sie polskie stoly, a takie Crazy Time to juz w ogole cyrk, ale wciaga.
Pakiet na start to 100% od wplaty oraz jakies 30 darmowych spinow, z tym ze wymog obrotu x40 boli i bez cierpliwosci tego nie wyciagniesz. Widzialem tez bonus bez depozytu, ale to leci rotacyjnie, wiec lepiej podejrzec aktualne warunki na [url=https://888starz-casino13.pl]https://888starz-casino13.pl[/url] przed rejestracja. Minimalny depozyt jest niska — dalo sie wejsc za kilkanascie zlotych.
Zakladanie konta poszla w jakies dwie minuty, gorzej z weryfikacja — zeszlo ze dwa dni, ale przy pierwszej wyplacie i tak trzeba to zrobic wszedzie. Wyplacalem trzy razy: e-portfel byl w kilka godzin, karta mielil sie dwa dni robocze, a BTC najszybciej — doslownie kilkanascie minut. Neteller i Mastercard tez sa.
Minus, ktory musze wypomniec: support na czacie odpisuje szybko, tyle ze po polsku bywa roznie i potrafia odbic temat do maila. Aplikacja smiga bez zarzutu, tylko ze wazy swoje. Papiery sa z Curacao, wiec kazdy niech sobie sam ten temat przemysli, bo to nie jest lokalna licencja. Ogolnie gram dalej, choc trzymam to na zdrowy rozsadek.
Siedze na tej stronie juz z pieciu miechow, przewaznie po pracy. Wpadlem na nich przypadkiem, bo szukalem miejsca, ktore przyjmuje wplaty w PLN bez kombinowania. Nie ukrywam — z poczatku nie mialem zaufania, bo w sieci pelno podobnych budek.
Gierki to jest to, po co tam siedze. Wisi tam kilka tysiecy pozycji, choc umowmy sie dobra polowa to zapychacze. Ja siedze glownie na Pragmatic Play — Sweet Bonanza potrafi niezle zaskoczyc, a z klasyki lece w Book of Dead. Jest tez Yggdrasil i NetEnt, wiec nie ma na co narzekac. Ostatnio coraz czesciej wchodze na live — Evolution robi to porzadnie, prowadzacy po angielsku, ale czasem trafiaja sie polskie stoly, a takie Crazy Time jest wciagajace, choc bardziej show niz gra.
Pakiet na start daje 100% od wplaty plus jakies jakies 30 darmowych spinow, ale wymog obrotu x40 boli i trzeba sie w to wkrecic na spokojnie. Widzialem tez jakis kod bez depozytu, ale to sie zmienia co chwile, dlatego lepiej podejrzec obecne promki u nich na [url=https://888starz-casino15.pl]888starz link[/url] zanim sie w cos wpakujesz. Minimalny depozyt nie zabija — wchodzilem od jakichs 20 zl.
Zakladanie konta zajela mi jakies dwie minuty, gorzej z doslaniem dokumentow — czekalem dwa dni, ale przy pierwszej wyplacie i tak trzeba to zrobic wszedzie. Wyplacalem trzy razy: e-portfel byl w kilka godzin, przelew na Vise szla dwa dni robocze, a BTC leci najsprawniej — praktycznie od reki. Neteller i Mastercard tez sa.
To, co mnie realnie wkurza: support reaguje w miare szybko, tyle ze po polsku bywa roznie i trzeba czasem powtorzyc pytanie. Aplikacja dziala calkiem sprawnie, tylko ze czasem lubi sie zaciac przy live. Licencja to Curacao, wiec kazdy niech sobie sam ten temat przemysli, bo to nie jest lokalna licencja. Poki co gram dalej, ale trzymam to na zdrowy rozsadek.
Obstawiam u nich jakies pieciu miesiecy, glownie jak mam wolne pol godziny. Wpadlem na nich przypadkiem, szukalem wtedy miejsca, ktore przyjmuje normalne platnosci w zlotowkach. Nie ukrywam — na poczatku patrzylem na to krzywo, bo w sieci pelno podobnych budek.
Automaty to w sumie moj glowny powod. Jest kilka tysiecy gier, choc umowmy sie polowy nikt nigdy nie odpali. Ja gram glownie na Pragmatic Play — Gates of Olympus umie zrobic dzien, a z klasyki lece w Book of Deada. Maja tez Yggdrasil i NetEnt, wiec nie ma na co narzekac. Od jakiegos czasu wciagnalem sie w live — Evolution ogarnia to i widac roznice, krupierzy sa ogarnieci, a Crazy Time jest wciagajace, choc bardziej show niz gra.
Pakiet na start to 100% do pierwszego depozytu oraz 30 free spinow, ale wymog obrotu x40 boli i trzeba sie w to wkrecic na spokojnie. Widzialem tez jakis kod bez depozytu, ale to leci rotacyjnie, dlatego najlepiej sprawdzic aktualne warunki na [url=https://888starz-casino12.pl]888starz[/url] zanim sie w cos wpakujesz. Minimalna wplata to grosze — dalo sie wejsc za kilkanascie zlotych.
Zakladanie konta zajela mi jakies dwie minuty, gorzej z weryfikacja — zeszlo ze dwa dni, to standard w kazdym miejscu. Wyplacalem kilka razy: Skrill byl w kilka godzin, przelew na Vise szla dwa dni robocze, a BTC najszybciej — doslownie kilkanascie minut. Maja tez Neteller, Mastercard i kilka lokalnych opcji.
Minus, ktory musze wypomniec: support na czacie odpisuje szybko, tyle ze po polsku bywa roznie i potrafia odbic temat do maila. Apka na Androida smiga bez zarzutu, tylko ze wazy swoje. Licencja sa z Curacao, wiec bez cudow — to nie jest polski operator z ministerialnym zezwoleniem. Ogolnie gram dalej, ale trzymam to na zdrowy rozsadek.
muss man bei einer kombiwette alles richtig haben
Stop by my web page :: basketball wetten Tips
gratis Nederland beste wedden sites trucs
exemplos de apostas
Visit my webpage :: casa das aposta
Вызов нарколога на дому подходит в тех случаях, когда человек находится в стабильном состоянии и врач не видит противопоказаний к проведению процедуры вне стационара. Бригада приезжает с необходимым оборудованием и набором лекарственных препаратов. Осмотр включает сбор анамнеза, оценку общего состояния, давления, пульса и других значимых показателей. При наличии показаний могут выполняться лабораторные анализы, ЭКГ и дополнительные диагностические мероприятия.
Ознакомиться с деталями – [url=https://n.narkologicheskaya-klinika-sankt-peterburg14.ru/]наркологические клиники алкоголизм в Санкт-Петербурге[/url]
Здорова, народ Близкий человек уже несколько дней в запое Соседи стучат в стену Нужна срочная помощь на дому Короче, только это реально спасло — капельница от запоя на дому с препаратами Через пару часов человек пришёл в себя В общем, телефон и цены тут — срочный вывод из запоя на дому недорого [url=https://vyvod-iz-zapoya-na-domu-moskva-jst.ru]https://vyvod-iz-zapoya-na-domu-moskva-jst.ru[/url] Не ждите пока станет хуже Перешлите тем кто в такой же ситуации