VB Script Samples

1. '####################################################
   '####################################################
   '1    Print Hello World
   Print "Hello World"
   '####################################################
   '####################################################
   '2    Find whether given number is a odd number
   Dim oNumber
   
   oNumber=4
   If oNumber mod 2 <>0 Then
       Print "The Number "& oNumber &" is an Odd Number"
   else
       Print "The Number "& oNumber &" is not an Odd Number"
   End If
   '####################################################
   '####################################################
   '3    Print odd numbers between given range of numbers
   
   Dim RangeStart
   Dim RangeEnd
   Dim iCounter
   RangeStart=10
   RangeEnd=20
   
   For iCounter=RangeStart to RangeEnd
   
       If iCounter mod 2 <>0 Then
           Print  oNumber
       End If
   
   Next
   
   '####################################################
   '####################################################
   '4    Find the factorial of a given number
   Dim oNumber
   Dim iCounter
   Dim fValue
   
   oNumber=6
   fValue=1
   
   For iCounter=oNumber to 1 step-1
       fValue=fValue*iCounter
   Next
   print  fValue
   
   '####################################################
   '####################################################
   '5    Find the factors of a given number
   Dim oNumber
   Dim iCounter
   
   oNumber=10
   
   For iCounter=1 to oNumber/2
       If oNumber mod iCounter=0 Then
           print iCounter
       End If
   Next
   print oNumber
   '####################################################
   '####################################################
   '6    Print prime numbers between given range of numbers
   
   Dim RangeStart
   Dim RangeEnd
   Dim iCounter
   RangeStart=1
   RangeEnd=30
   
   For iCounter=RangeStart to RangeEnd
   
       For iCount=2 to round(iCounter/2)
               If iCounter mod iCount=0 Then
                   Exit for
               End If
       Next
      
       If iCount=round(iCounter/2)+1 or iCounter=1 Then
               print iCounter
       End If
   Next
   
   '####################################################
   '####################################################
   '7    Swap 2 numbers with out a temporary variable
   
   Dim oNum1
   Dim oNum2
   
   oNum1=1055
   oNum2=155
   
   oNum1=oNum1-oNum2
   oNum2=oNum1+oNum2
   oNum1=oNum2-oNum1
   print oNum1
   print oNum2
   '####################################################
   '####################################################
   '8    Write a program to Perform specified Arithmetic Operation on two given numbers
   Dim oNum1
   Dim oNum2
   Dim oValue
   
   oNum1=10
   oNum2=20
   
   OperationtoPerform="div"
   
   Select Case lcase(OperationtoPerform)
   
                   Case "add"
                                   oValue=oNum1+oNum2
                   Case "sub"
                                   oValue=oNum1-oNum2
                   Case "mul"
                                   oValue=oNum1*oNum2
                   Case "div"
                                   oValue=oNum1/ oNum2
   End Select
   print oValue
   '####################################################
   '####################################################
   '9    Find the length of a given string
   Dim oStr
   Dim oLength
   oStr="sudhakar"
   oLength=len(oStr)
   print oLength
   '####################################################
   '####################################################
   '10    Reverse given string
   Dim oStr
   Dim oLength
   Dim oChar
   Dim iCounter
   
   oStr="sudhakar"
   oLength=len(oStr)
   
   For iCounter=oLength to 1 step-1
           oChar=oChar&mid(oStr,iCounter,1)
   Next
   print oChar
   '####################################################
   '####################################################
   '11    Find how many alpha characters present in a string.
   Dim oStr
   Dim oLength
   Dim oChar
   Dim iCounter
   
   oStr="su1h2kar"
   oLength=len(oStr)
   
   oAlphacounter=0
   
   For iCounter=1 to oLength
   
       If not isnumeric (mid(oStr,iCounter,1)) then
           oAlphacounter=oAlphacounter+1
       End if
      
   Next
   print oAlphacounter
   
   '####################################################
   '####################################################
   '12    Find occurrences of a specific character in a string
   
   Dim oStr
   Dim oArray
   Dim ochr
   oStr="sudhakar"
   ochr="a"
   
   oArray=split(oStr,ochr)
   print ubound(oArray)
   '####################################################
   '####################################################
   '13    Replace space with tab in between the words of a string.
   
   Dim oStr
   Dim fStr
   
   oStr="Quick Test Professional"
   
   fStr=replace(oStr," ",vbtab)
   print fStr
   
   '####################################################
   '####################################################
   '14    Write a program to return ASCII value of a given character
   
   Dim ochr
   Dim aVal
   
   ochr="A"
   
   aVal=asc(ochr)
   print aVal
   
   '####################################################
   '####################################################
   '15    Write a program to return character corresponding to the given ASCII value
   
   Dim ochr
   Dim aVal
   
   aVal=65
   
   oChr=chr(aVal)
   print oChr
   
   '####################################################
   '####################################################
   '16    Convert string to Upper Case
   Dim oStr
   Dim uStr
   
   oStr="QuickTest Professional"
   
   uStr=ucase(oStr)
   print uStr
   '####################################################
   '####################################################
   '17    Convert string to lower case
   Dim oStr
   Dim lStr
   
   oStr="QuickTest Professional"
   lStr=lcase(oStr)
   print lStr
   
   '####################################################
   '####################################################
   '18    Write a program to Replace a word in a string with another word
   
   Dim oStr
   Dim oWord1
   Dim oWord2
   Dim fStr
   
   oStr="Mercury Quick Test Professional"
   oWord1="Mercury"
   oWord2="HP"
   
   fStr=replace(oStr,oWord1,oWord2)
   print fStr
   
   '####################################################
   '####################################################
   '19    Check whether the string is a POLYNDROM
   
   Dim oStr
   
   oStr="bob"
   fStr=StrReverse(oStr)
   If oStr=fStr Then
       Print "The Given String "&oStr&" is a Palindrome"
       else
       Print "The Given String "&oStr&" is not a Palindrome"
   End If
   '####################################################
   '####################################################
   '20    Verify whether given two strings are equal
   Dim oStr1
   Dim ostr2
   
   oStr1="qtp"
   oStr2="qtp"
   If  oStr1=oStr2 Then
           Print "The Given Strings are Equal"
           else
           Print "The Given Strings are not Equal"
   End If
   '####################################################
   '####################################################
   '21    Print all values from an Array
   Dim oArray
   Dim oCounter
   oArray=array(1,2,3,4,"qtp","Testing")
   
   For oCounter=lbound(oArray) to ubound(oArray)
       print oArray(oCounter)
   Next
   
   '####################################################
   '####################################################
   '22    Sort Array elements
   Dim oArray
   Dim oCounter1
   Dim oCounter2
   Dim tmp
   
   oArray=array(8,3,4,2,7,1,6,9,5,0)
   
   For oCounter1=lbound(oArray) to ubound(oArray)
   
           For oCounter2=lbound(oArray) to ubound(oArray)-1
   
                       If oArray(oCounter2)>oArray(oCounter2+1) Then
                           tmp=oArray(oCounter2)
                           oArray(oCounter2)=oArray(oCounter2+1)
                           oArray(oCounter2+1)=tmp
                       End If
                        
           Next
      
   Next
   
   For oCounter1=lbound(oArray) to ubound(oArray)
       print oArray(oCounter1)
   Next
      
   '####################################################
   '####################################################
   '23    Add two 2X2 matrices
   Dim oArray1(1,1)
   Dim oArray2(1,1)
   Dim tArray(1,1)
   
   oArray1(0,0)=8
   oArray1(0,1)=9
   oArray1(1,0)=5
   oArray1(1,1)=-1
   
   oArray2(0,0)=-2
   oArray2(0,1)=3
   oArray2(1,0)=4
   oArray2(1,1)=0
   
   tArray(0,0)=oArray1(0,0)+ oArray2(0,0)
   tArray(0,1)=oArray1(0,1)+oArray2(0,1)
   tArray(1,0)=oArray1(1,0)+oArray2(1,0)
   tArray(1,1)=oArray1(1,1)+oArray2(1,1)
   '####################################################
   '####################################################
   
   '24    Multiply Two Matrices of size 2X2
   
   Dim oArray1(1,1)
   Dim oArray2(1,1)
   Dim tArray(1,1)
   
   oArray1(0,0)=8
   oArray1(0,1)=9
   oArray1(1,0)=5
   oArray1(1,1)=-1
   
   oArray2(0,0)=-2
   oArray2(0,1)=3
   oArray2(1,0)=4
   oArray2(1,1)=0
   
   tArray(0,0)=oArray1(0,0)* oArray2(0,0)+ oArray1(0,1)* oArray2(1,0)
   tArray(0,1)=oArray1(0,0)* oArray2(0,1)+ oArray1(0,1)* oArray2(1,1)
   tArray(1,0)=oArray1(1,0)* oArray2(0,0)+ oArray1(1,1)* oArray2(1,0)
   tArray(1,1)=oArray1(1,0)* oArray2(0,1)+ oArray1(1,1)* oArray2(1,1)
   
   
   '####################################################
   '####################################################
   '25    Convert a String in to an array
   
   Dim oStr
   Dim iCounter
   oStr="Quick Test Professional"
   StrArray=split(oStr)
   
   For iCounter=0 to ubound(StrArray)
           print StrArray(iCounter)
   Next
   
   '####################################################
   '####################################################
   '26    Convert a String in to an array using ‘i‘ as delimiter
   
   Dim oStr
   Dim iCounter
   oStr="Quick Test Professional"
   StrArray=split(oStr,"i")
   
   For iCounter=0 to ubound(StrArray)
           print StrArray(iCounter)
   Next
   
   '####################################################
   '####################################################
   '27    Find number of words in string
   
   Dim oStr
   Dim iCounter
   oStr="Quick Test Professional"
   StrArray=split(oStr," ")
   print "Theere are "&ubound(StrArray)+1&" words in the string"
   
   '####################################################
   '####################################################
   '28    Write a program to reverse the words of a given string.
   
   Dim oStr
   Dim iCounter
   oStr="Quick Test Professional"
   StrArray=split(oStr," ")
   
   For iCounter=0 to ubound(StrArray)
           print strreverse(StrArray(iCounter))
   Next
   
   '####################################################
   '####################################################
   '29    Print the data as a Pascal triangle
   'The formulae for pascal triangle is nCr=n!/(n-r)!*r!
   
   Dim PascalTriangleRows
   Dim nCr
   Dim NumCount
   Dim RowCount
   
   PascalTriangleRows = 10
   For NumCount = 0 To PascalTriangleRows
       toPrint= Space(PascalTriangleRows - NumCount)
       For RowCount = 0 To NumCount
               If (NumCount = RowCount) Then
                       nCr = 1
               Else
                   nCr = Factorial(NumCount) / (Factorial(NumCount - RowCount) * Factorial(RowCount))
               End If
        toPrint=toPrint&nCr&" "
       Next
       print toPrint
   Next
   
   
   Function Factorial(num)
      Dim iCounter
       Factorial = 1
       If num <> 0 Then
           For iCounter = 2 To num
               Factorial = Factorial * iCounter
           Next
       End If
   End Function
   '####################################################
   '####################################################
   '30    Join elements of an array as a string
   
   Dim oStr
   Dim iCounter
   oStr="Quick Test Professional"
   StrArray=split(oStr," ")
   
   print join(StrArray," ")
   
   '####################################################
   '####################################################
   '31    Trim a given string from both sides
   
   Dim oStr
   
   oStr="    QTP    "
   print trim(oStr)
   
   '####################################################
   '####################################################
   '32    Write a program to insert 100values and to delete 50 values from an array
   
   Dim oArray()
   Dim iCounter
   
   ReDim oArray(100)
   
   For iCounter=0 to ubound(oArray)
               oArray(iCounter)=iCounter
               'Print total 100 Values
               print(oArray(iCounter))
   Next
   print "******************************"
   print "******************************"
   ReDim preserve oArray(50)
   
   For iCounter=0 to ubound(oArray)
       'Print Values after deleting 50 values
               print(oArray(iCounter))
   Next
   '####################################################
   '####################################################
   '33    Write a program to force the declaration of variables
   
   Option explicit    ' this keyword will enforce us to declare variables
   
   Dim x
   x=10
   'Here we get an error because i have not declared y,z
   y=20
   z=x+y
   print z
   '####################################################
   '####################################################
   '34    Write a program to raise an error and print the error number.
   
   On Error Resume Next
   Err.Raise 6   ' Raise an overflow error.
   print  ("Error # " & CStr(Err.Number) & " " & Err.Description)
   
   '####################################################
   '####################################################
   '35    Finding whether a variable is an Array
   
   Dim oArray()
   
   if  isarray(oArray) then
       print "the given variable is an array"
    else
       print "the given variable is not an array"
   End if
   '####################################################
   '####################################################
   '36    Write a program to list the Timezone offset from GMT
   Dim objWMIService
   Dim colTimeZone
   Dim objTimeZone
   
   Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
   Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_TimeZone")
   
   For Each objTimeZone in colTimeZone
       print "Offset: "& objTimeZone.Bias
   Next
   '####################################################
   '####################################################
   '37 Retrieving Time Zone Information for a Computer
   Dim objWMIService
   Dim colTimeZone
   Dim objTimeZone
   
   Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
   Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_TimeZone")
   
   For Each objItem in colTimeZone
   
       print "Bias: " & objItem.Bias
       print "Caption: " & objItem.Caption
       print "Daylight Bias: " & objItem.DaylightBias
       print "Daylight Day: " & objItem.DaylightDay
       print "Daylight Day Of Week: " & objItem.DaylightDayOfWeek
       print "Daylight Hour: " & objItem.DaylightHour
       print "Daylight Millisecond: " & objItem.DaylightMillisecond
       print "Daylight Minute: " & objItem.DaylightMinute
       print "Daylight Month: " & objItem.DaylightMonth
       print "Daylight Name: " & objItem.DaylightName
       print "Daylight Second: " & objItem.DaylightSecond
       print "Daylight Year: " & objItem.DaylightYear
       print "Description: " & objItem.Description
       print "Setting ID: " & objItem.SettingID
       print "Standard Bias: " & objItem.StandardBias
       print "Standard Day: " & objItem.StandardDay
       print "Standard Day Of Week: " & objItem.StandardDayOfWeek
       print "Standard Hour: " & objItem.StandardHour
       print "Standard Millisecond: " & objItem.StandardMillisecond
       print "Standard Minute: " & objItem.StandardMinute
       print "Standard Month: " & objItem.StandardMonth
       print "Standard Name: " & objItem.StandardName
       print "Standard Second: " & objItem.StandardSecond
       print "Standard Year: " & objItem.StandardYear
      
   Next
   
   '####################################################
   '####################################################
   '38    Write a program to Convert an expression to a date
   Dim StrDate
   Dim actualDate
   Dim StrTime
   Dim actualTime
   
   StrDate = "October 19, 1962"   ' Define date.
   actualDate = CDate(StrDate)   ' Convert to Date data type.
   print actualDate
   StrTime = "4:35:47 PM"         ' Define time.
   actualTime = CDate(StrTime)   ' Convert to Date data type.
   print actualTime
   
   '####################################################
   '####################################################
   '39 Display current date and Time
   
   print now
   '####################################################
   '####################################################
   '40    Find difference between two dates.
   
   'Date difference in Years
   print DateDiff("yyyy","12/31/2002",Date)
   
   'Date difference in Months
   print DateDiff("m","12/31/2002",Date)
   
   'Date difference in Days
   print DateDiff("d","12/31/2002",Date)
   
   '####################################################
   '####################################################
   '41    Add time interval to a date
   
   print DateAdd("m", 1, "31-Jan-95")
   
   '####################################################
   '####################################################
   '42    Print current day of the week
   
   Print day(date)
   '####################################################
   '####################################################
   '43    Find whether current month is a long month
   Dim oCurrentMonth
   Dim ocurrentYear
   Dim oDaysinMonths
   
   oCurrentMonth = Month(date)
   ocurrentYear = Year(date)
   oDaysinMonths=Day(DateSerial(ocurrentYear, oCurrentMonth + 1, 0))
   print oDaysinMonths&" Days in Current Month"
   If oDaysinMonths=31 Then
       print "Current Month is a long month"
   else
       print "Current Month is not a long month"
   End If
   '####################################################
   '####################################################
   '44    Find whether given year is a leap year
   
   '1st Method
   
   'The rules for leap year:
   '1. Leap Year is divisible by 4    (This is mandotory Rule)
   '2. Leap Year is not divisible by 100 (Optional)
   '3. Leap Year divisble by 400 (Optional)
   
   Dim oYear
   
   oYear=1996
   
   If ((oYear Mod 4 = 0) And (oYear Mod 100 <> 0) Or (oYear Mod 400 = 0)) then
       print "Year "&oYear&" is a Leap Year"
   else
       print "Year "&oYear&" is not a Leap Year"
   End If
   
   
   '45.    2nd Method
   ' Checking 29 days for February month in specified year
   Dim oYear
   Dim tmpDate
   
   oYear=1996
   tmpDate = "1/31/" & oYear
   DaysinFebMonth = DateAdd("m", 1, tmpDate)
   
   If  day(DaysinFebMonth )=29 then
       print "Year "&oYear&" is a Leap Year"
   else
       print "Year "&oYear&" is not a Leap Year"
   End If
   
   '####################################################
   '####################################################
   '46    Format Number to specified decimal places
   
   Dim oNum
   Dim DecimaPlacestobeFormat
   oNum = 3.14159
   DecimaPlacestobeFormat=2
   print Round(oNum , DecimaPlacestobeFormat)
   
   '####################################################
   '####################################################
   '47    Write a program to Generate a Random Numbers
   'This script will generate random numbers between 10 and 20
   Dim rStartRange
   Dim rEndRange
   
   rStartRange=10
   rEndRange=20
   
   For iCounter=1 to 10
       print Int((rEndRange - rStartRange + 1) * Rnd + rStartRange)
   Next
   '####################################################
   '####################################################
   '48    Write a program to show difference between Fix and Int
   
   'Both Int and Fix remove the fractional part of number and return the resulting integer value.
   'The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than or equal to number,
   'whereas Fix returns the first negative integer greater than or equal to number.
   'For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.
   
   print Int(99.8)    ' Returns 99.
   print Fix(99.2)    ' Returns 99.
   print Int(-99.8)   ' Returns -100.
   print Fix(-99.8)   ' Returns -99.
   print Int(-99.2)   ' Returns -100.
   print Fix(-99.2)   ' Returns -99.
   
   '####################################################
   '####################################################
   '49    Write a program to  find subtype of a variable
   
   Dim oVar
   Dim oDatatypes
   oVar="QTP"
   oVartype=Typename(oVar)
   print oVartype
   
   '####################################################
   '####################################################
   '50    Write a program to print the decimal part of a given number
   Dim oNum
   oNum=3.123
   oDecNum=oNum- int(oNum)
   print oDecNum
   '####################################################
   '####################################################