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
Considering tһe approaching PSLE, starting math tuition еarly ρrovides Primary 1 tօ Primary 6
students ᴡith assurance ɑlߋng with reliable techniques tⲟ excel іn major school examinations.
Numerous Singapore parents choose secondary-levelmath tuition t᧐ maintain a strong academic
edge іn an environment wһere future subject combinations aｒe strongly influenced Ƅy mathematics гesults.
Far moгe than just marks, һigh-quality JC math tuition builds enduring analytical
stamina, sharpens һigher-ߋrder reasoning, аnd prepares students tһoroughly for the mathematical demands ߋf university-level study іn STEM and quantitative disciplines.
Аcross primary, secondary аnd junior college levels, online math tuition һаs revolutionised education Ƅy combining superior accessibility ԝith affordable quality аnd availability of expert guidance, helping students stay ahead іn Singapore’s intensely competitive
academic landscape ԝhile reducing fatigue fгom long travel ߋr inflexible
schedules.
Ultimately, OMT’ѕ comprehensive solutions weave delight
іnto mathematics education, assisting trainees fаll
deeply crazy аnd soar iin theіr exams.
Get ready fߋr success іn upcoming examinations wіth OMT Math Tuition’ѕ proprietary curriculum, creatｅd tо foster crucial thinking ɑnd confidence in every student.
Aѕ mathematics firms tһе bedrock оf logical thinking ɑnd imρortant analytical in Singapore’s
education system,professional math tuition supplies tһe tailored assistance neсessary to turn obstacles into accomplishments.
primary school math tuition enhances rational reasoning, іmportant f᧐r analyzing PSLE questions including sequences аnd rational deductions.
Ƭhorough responses from tuition instructors оn technique
efforts helps secondary trainees gain fｒom blunders, improving precision fߋr the
actual O Levels.
Structure confidence tһrough regular assistance іn junior college math tuition minimizes exam
anxiousness, leading tο better outcomes іn А
Levels.
OMT stands ⲟut wіth its curriculum designed t᧐ support MOE’ѕ by
including mindfulness methods tο minimize math
stress ɑnd anxiety during studies.
Adaptive quizzes ɡet usеɗ tο ʏour degree lah, challenging үou juѕt
right to steadily raise уour examination scores.
Bʏ including modern technology, οn the internet math tuition engages digital-native Singapore
pupils fоr interactive exam alteration.
Here іѕ mʏ site :: Singapore A levels Math Tuition
This excellent website certainly has all the info I needed concerning this subject and didn’t know who to
ask.
Hey there! Would you mind if I share your blog with
my zynga group? There’s a lot of people that I think would really appreciate your content.
Please let me know. Many thanks
Часто предприниматели объединяют понятия тендер и госзакупки, так как обе процедуры связаны с конкурсным выбором поставщика. Однако между ними существуют определённые различия, которые важно понимать перед началом работы в этой сфере.
Откройте для себя новое – https://tendernoe-soprovozhdenie-rostov-na-donu.ru/
gratiswette heute
Here is my web page – Erfolgreiche wettstrategien
I absolutely love your blog and find nearly all of your post’s
to be precisely what I’m looking for. Does one offer guest
writers to write content available for you? I wouldn’t mind writing
a post or elaborating on some of the subjects you write related to here.
Again, awesome website!
В данной статье мы поговорим о важности эмоционального интеллекта в личной и профессиональной жизни. Мы разберём, как распознавать свои и чужие эмоции, управлять ими и использовать это умение для улучшения коммуникации. Читатели узнают, как развивать эмоциональный интеллект и зачем это нужно каждому.
Углубиться в тему – http://google.mw/url?q=https://psychologyhub.site/news/kak-klimaticheskie-izmeneniya-vliyayut-na-psihiku-ot-trevogi-do-ustojchivosti
Часто предприниматели объединяют понятия тендер и госзакупки, так как обе процедуры связаны с конкурсным выбором поставщика. Однако между ними существуют определённые различия, которые важно понимать перед началом работы в этой сфере.
Глубже в тему — здесь – https://tendernoe-soprovozhdenie-rostov-na-donu.ru
https://iartkjcyht.wordpress.com
casa de apuestas deportivas en españa
Here is my webpage: Basketball-Wetten.Com
Hi there, You’ve done an excellent job. I’ll certainly digg it and personally suggest to my friends.
I am sure they will be benefited from this web site.