Hello,<\/p>\n
A few days ago my friend need a Visual Basic Script to verify if a process is running and if it is send an e-mail. He asked me for help to code it, and I helped him.<\/p>\n
Visual Basic Script to verify if a process is running and notify via e-mail.<\/a><\/p>\n <\/p>\n Verify if a process is running with Visual Basic Script and shows a window if it is. Send an e-mail using Visual Basic Script ‘== CODE ==<\/p>\n Const cdoSendUsingPickup = 1 ‘Send message using the local SMTP service pickup directory. Const cdoAnonymous = 0 ‘Do not authenticate Set objMessage = CreateObject(“CDO.Message”) ‘==This section provides the configuration information for the remote SMTP server.<\/p>\n objMessage.Configuration.Fields.Item _ ‘Name or IP of Remote SMTP Servesr ‘Type of authentication, NONE, Basic (Base64 encoded), NTLM ‘Your UserID on the SMTP server ‘Your password on the SMTP server ‘Server port (typically 25) ‘Use SSL for the connection (False or True) ‘Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Update<\/p>\n objMessage.Send This two scripts are changed to work together to do what we want and have a config section.<\/p>\n Best Regards, References: Hello, A few days ago my friend need a Visual Basic Script to verify if a process is running and if it is send an<\/p>\n
\n[code lang=”vb”]
\nset service = GetObject (“winmgmts:”)
\nfor each Process in Service.InstancesOf (“Win32_Process”)
\n\tIf Process.Name = processName then
\n\t\twscript.echo “Notepad running”
\n\t\twscript.quit
\n\tEnd If
\nnext
\n[\/code]<\/p>\n
\n[code lang=”vb”]
\nConst username = “USERNAME”
\nConst password = “PASSWORD”
\nConst smtpServer = “smtp.gmail.com”
\nConst port = 465
\nConst secure = True
\nConst userFrom = “FROM”
\nConst userTo = “TO”
\nConst emailSubject = “Subject”
\nConst emailText = “Text”<\/p>\n
\nConst cdoSendUsingPort = 2 ‘Send the message using the network (SMTP over the network). <\/p>\n
\nConst cdoBasic = 1 ‘basic (clear-text) authentication
\nConst cdoNTLM = 2 ‘NTLM<\/p>\n
\nobjMessage.Subject = emailSubject
\nobjMessage.From = userFrom
\nobjMessage.To = userTo
\nobjMessage.TextBody = emailText <\/p>\n
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusing”) = 2 <\/p>\n
\nobjMessage.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserver”) = smtpServer<\/p>\n
\nobjMessage.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpauthenticate”) = cdoBasic<\/p>\n
\nobjMessage.Configuration.Fields.Item _
\n (“http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusername”) = username<\/p>\n
\nobjMessage.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendpassword”) = password<\/p>\n
\nobjMessage.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserverport”) = port<\/p>\n
\nobjMessage.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpusessl”) = secure<\/p>\n
\nobjMessage.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpconnectiontimeout”) = 60<\/p>\n
\n[\/code]<\/p>\n
\nMatheus<\/p>\n
\nhttp:\/\/wiki.imacros.net\/send-email.vbs<\/a>
\nhttp:\/\/www.techimo.com\/forum\/applications-operating-systems\/117464-need-vbulletin-script-check-see-if-process-running.html<\/a><\/p>","protected":false},"excerpt":{"rendered":"