Thursday, 29 September 2016

Simple Environment test using VB Script

Many times you may encounter a situation where you are responsible to test the web application in test environment and need to make sure that the test environment is up and running.

I have created a simple solution to help you test multiple environments and collect the results even before you start your work.

Steps to test different environment –

1. Open web browser
2. Enter URL
3. Search web page (Depending on project requirement)
4. Capture result (Pass if webpage loaded)
5. Send out email to all stake holders

We will create a VBS file, and then create a Task in windows scheduler to run it every morning or whenever it is required

Copy the following code to notepad and save it in Environment.VBS file-
=================================================

‘This is EnvrionmentTest.VBS
 ‘This is to test if all the environments are up and running
Call Main
Function Main
    Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
    IE.Visible = True
    IE.Navigate "https://paragtestingsolutions.blogspot.co.uk"
          WScript.Sleep (1000)
if err.number = 0 then sendEmail (IE.LocationName & vbCrLf & IE.LocationURL)
End Function

Function SendEmail(eMessage)
strTo= "TestManager@Myorg.uk" 'Enter your managers email id'
strFrom="myemail@Myorg.uk"    'Enter your email id'
strSubject="Environment Test Results"
strAccountID="myaccountid"    'Enter your email account id
strPassword="myemailpwd"      'Enter your email account password
strSMTPServer="smtp.mailserver.com"

Set oEmail = CreateObject("CDO.Message")
'Message configuration
With oEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
          .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strAccountID
.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassword
.Update
End With
'Message Building
With oEmail
.From = strFrom
.To = strTo
.Subject = strSubject
.TextBody = eMessage
End With
         
' send message
On Error Resume Next
oEmail.Send
If Err Then WScript.Echo "SendMail Failed:" & Err.Description
End If
wscript.sleep(5000)EndFunction
==================================================

You can store results in a variable for all the websites and pass it to Send an email as eMessage.

Now windows scheduler –

1. Click on Start => Control Panel
2. Click on System and Security => Administrative tools => Task Scheduler
3. Click on Create basic task in action pane
4. Select time to start a program
5. Program/Script Enter “cscript “ and file path
Click on finish.

After this setup you never need to inform about which environment is up and running. Every morning you will come to know which all environment are up and running and if anything is not working.   

Keep impressing!