How to Run VB Script:
Write Script in Notepad ---> Save it as filename.vbs -----> Double click on the file-filename.vbs
'Assignment Date:25/03/2011
'Prgm to demonstrate concatenation function
'----------------------------------------------------
option explicit
dim vfn, vmn, vln, vtmp
vfn=inputbox("Enter First Name :")
vmn=inputbox("Enter Middle Name :")
vln=inputbox("Enter Last Name :")
vtmp="Full Name is : "
msgbox vtmp&vln&" "&vmn&", "&vfn&"."
'Assignment Date:25/03/2011
'Prgm to demonstrate concatenation and Newline function
'----------------------------------------------------------------
option explicit
dim vfn, vln, vage, vdob, vtmp
vfn=inputbox("Enter First Name :")
vln=inputbox("Enter Last Name :")
vage=inputbox("Enter Age :")
vdob=inputbox("Enter DOB :")
vtmp="The Details are : "&vbnewline
vtmp=vtmp&vln&", "&vfn&vbnewline
vtmp=vtmp&vage&" yrs"&vbnewline
vtmp=vtmp&vdob
msgbox vtmp
'Assignment Date:25/03/2011
'Prgm to demonstrate Simple "IF" Statement
'---------------------------------------------------
option explicit
dim vnum
vnum=cint(inputbox("Enter a Number :"))
if (vnum mod 2)<>0 then msgbox "Odd Number"
'Assignment Date: 28/03/2011
'Demonstrate " if...elseif " (Smallest No. among three no.s)
'-------------------------------------------------------------------------------
Option explicit
dim vnum1, vnum2, vnum3
vnum1=cint(inputbox("Enter First Number: "))
vnum2=cint(inputbox("Enter Second Number: "))
vnum3=cint(inputbox("Enter Third Number: "))
if (vnum1=vnum2) and (vnum2=vnum3) then
msgbox "All No.s are EQUAL"
elseif(vnum1<=vnum2) and (vnum1<=vnum3) then
msgbox vnum1&" is Least"
elseif(vnum2<=vnum1) and (vnum2<=vnum3) then
msgbox vnum2&" is least"
else
msgbox vnum3&" is least"
end if
'Assignment Date: 28/03/2011
'Demonstrate " if...elseif " (Highest No. among Four no.s)
'------------------------------------------------------------------------------------
Option explicit
dim vnum1, vnum2, vnum3, vnum4
vnum1=cint(inputbox("Enter First Number: "))
vnum2=cint(inputbox("Enter Second Number: "))
vnum3=cint(inputbox("Enter Third Number: "))
vnum3=cint(inputbox("Enter Fourth Number: "))
if(vnum1=vnum2) and (vnum2=vnum3) and (vnum3=vnum4) then
msgbox "All No.s are EQUAL"
elseif(vnum1>=vnum2) and (vnum1>=vnum3) and (vnum1>=vnum4) then
msgbox vnum1&" is Highest"
elseif(vnum2<=vnum1) and (vnum2<=vnum3) and (vnum2<=vnum4) then
msgbox vnum2&" is Highest"
elseif(vnum3>=vnum4) and (vnum3>=vnum4) and (vnum3>=vnum4) then
msgbox vnum3&" is Highest"
else
msgbox vnum4&" is Highest"
end if
'Assignment Date: 28/03/2011
'Demonstrate " Nested if "
'--------------------------------------------------------------------------------------
Option explicit
dim vnum1, vnum2, vnum3
vnum1=cint(inputbox("Enter First Number: "))
vnum2=cint(inputbox("Enter Second Number: "))
if(vnum1=vnum2) then
msgbox " Numbers are Equal "
else
if(vnum1<vnum2) then
msgbox vnum1&" is less than "&vnum2
else
msgbox vnum1&" is greater"
vnum3=cint(inputbox("Enter Third Number: "))
if (vnum1>=vnum2) and (vnum1>=vnum3) then
msgbox vnum1&" is Highest"
else
if(vnum2>=vnum1) and (vnum2>=vnum3) then
msgbox vnum2&" is Highest"
else
msgbox vnum3&" is Highest"
end if
end if
end if
end if
'Assignment date: 30/03/2011
'Demonstrate "Select case" statement (Calculator)
'------------------------------------------------------------------
Option explicit
dim vnum1, vnum2, vtmp, voptn, vsum, vsub, vmul, vdiv, vintdiv, vexp, vmod
vnum1=cint(inputbox("Enter 1st Number: "))
vnum2=cint(inputbox("Enter 2nd Number: "))
vtmp="Enter ur choice"&vbnewline&"1: Add"&vbnewline&" 2: Sub"&vbnewline&"3: Mul"&vbnewline&" 4: Div"&vbnewline
msgbox vtmp&" 5: IntDiv"&vbnewline&" 6: Exponent"&vbnewline&" 7: Mod"&vbnewline&" 8: Even/odd"
voptn=cint(inputbox("Enter ur Choice"))
select case voptn
case "1"
vsum = vnum1 + vnum2
msgbox "Sum of " &vnum1 &" And " &vnum2 &" = "&vsum
case "2"
vsub = vnum1 - vnum2
msgbox "Substraction of " &vnum1 &" And " &vnum2 &" = "&vsub
case "3"
vmul = vnum1 * vnum2
msgbox "Multiplication of " &vnum1 &" And " &vnum2 &" = "&vmul
case "4"
vdiv = vnum1 / vnum2
msgbox "Division of " &vnum1 &" And " &vnum2 &" = "&vdiv
case "5"
vintdiv = vnum1 \ vnum2
msgbox "Integer Division of " &vnum1 &" And " &vnum2 &" = "&vintdiv
case "6"
vexp = vnum1 ^ vnum2
msgbox "Exponent of " &vnum1 &" And " &vnum2 &" = "&vexp
case "7"
vmod = vnum1 mod vnum2
msgbox vnum1 &" Mod " &vnum2 &" = "&vmod
case "8"
if(vnum1 mod 2)=0 then
msgbox vnum1 &" is Even Number"
else
msgbox vnum1 &" is Odd Number"
end if
if(vnum2 mod 2)=0 then
msgbox vnum2 &" is Even Number"
else
msgbox vnum2 &" is Odd Number"
end if
case else
msgbox " Invalid Entry ! "
end select
'Assignment date: 30/03/2011
'Demonstrate "For loop" statement => Print all odd no.s betwn 100 to 200
'--------------------------------------------------------------------------------
Option explicit
dim i, vstro
for i=100 to 200 step 1
if(i mod 2)<>0 then vstro=vstro&i&vbnewline
next
msgbox "Odd no.s Between 100 and 200"&vbnewline &vstro
'Assignment date: 30/03/2011
'Demonstrate "For loop" statement => Print even no.s betwn 400 to 300
'------------------------------------------------------------------------------------------------
Option explicit
dim i, vstre, vcnt
vcnt=0
for i=400 to 300 step -1
if(i mod 2)=0 then
vstre=vstre&i&vbnewline
vcnt=vcnt+1
if(vcnt=20) then exit for
else
end if
next
msgbox "Even no.s Between 400 and 300"&vbnewline &vstre
'Assignment date: 30/03/2011
'Demonstrate "For loop" statement => Print Factorial of a Number
'-------------------------------------------------------------------------------------------
Option explicit
dim fact, i, vnum
fact=1
vnum=cint(inputbox("Enter a Value"))
for i=1 to vnum step 1
fact = fact * i
next
msgbox "Factorial of "&vnum&" is "&fact
'Assignment date: 30/03/2011
'Demonstrate "For loop" statement => Check given No. is Prime Number or Not
'--------------------------------------------------------------------------------------------------------
Option explicit
dim vnum, vf, i
vnum=cint(inputbox("enter a number: "))
for i=2 to vnum-1 step 1
if(vnum mod i)=0 then
vf="No"
exit for
else
vf="Yes"
end if
next
if (vf="No") then
msgbox "The given number is Not a Prime"
else
msgbox "The given number is a Prime"
end if
'Assignment date: 30/03/2011
'Demonstrate "For loop" statement => To generate Fibonacci Series
'--------------------------------------------------------------------------------------------------
Option explicit
dim vnum, i, j, k, vstr, x
i=0
j=1
vnum=cint(inputbox("enter a number: "))
vstr=i&", "&vbnewline&j&", "
for x=1 to vnum-2 step 1
k=i+j
vstr=vstr&vbnewline&k&", "
i=j
j=k
next
msgbox "Fibonacci Series: "&vbnewline&vstr
'Assignment date: 01/04/2011
'Demonstrate "Do while" loop => Print Factorial of a Number
'-----------------------------------------------------------------------------------------------
Option explicit
dim fact, i, vnum, vchoice
do
fact=1
vnum=cint(inputbox("Enter a Value"))
for i=2 to vnum step 1
fact = fact * i
next
msgbox "Factorial of "&vnum&" is "&fact
vchoice=inputbox("Do you wanna Continue(y)?")
loop while vchoice="y"
'Assignment date: 01/04/2011
'Demonstrate "Do while" loop => Print Factorial of a Number
'--------------------------------------------------------------------------------------------------
Option explicit
dim fact, i, vnum, vchoice
vchoice=inputbox("Do you wanna Continue(y)?")
do while vchoice="y"
fact=1
vnum=cint(inputbox("Enter a Value"))
for i=2 to vnum step 1
fact = fact * i
next
msgbox "Factorial of "&vnum&" is "&fact
vchoice=inputbox("Do you wanna Continue(y)?")
loop
'Assignment date: 01/04/2011
'Demonstrate "Do while loop" => To Generate Natural No.s
'----------------------------------------------------------------------------------------------
Option explicit
dim vnum, i, vtmp, voptn
do
vnum=cint(inputbox("Enter a Number"))
for i=1 to vnum step 1
vtmp=vtmp&vbnewline&i
next
msgbox "Generated Numbers: "&vbnewline&vtmp
voptn=inputbox("Do you wanna Continue(y)?")
loop while voptn="y"
'Assignment Date: 01/04/2011
'Demonstrate usage of " ARRAYS " in Vb Script (Accept 4 no.s & print in reverse order)
'------------------------------------------------------------------------------------------------------------------------
Option explicit
dim varr(3), i, tmp
for i=0 to 3 step 1
varr(i)=cint(inputbox("Enter a value"))
next
for i=3 to 0 step -1
tmp=tmp&varr(i)&vbnewline
next
msgbox tmp
'Assignment date: 01/04/2011
'Demonstrate "ARRAYS" => Sum of 5 numbers
'----------------------------------------------------------------------------------
Option explicit
dim Varr(4), i, vsum
for i=0 to 4 step 1
varr(i)=cint(inputbox("Enter a number"))
next
for i=0 to 4 step 1
vsum=vsum+varr(i)
next
msgbox "Sum: "&vsum
'Assignment Date: 08/04/2011
' Given string is Palindrome or Not
'------------------------------------------------------------
vstr1=inputbox("enter a string: ")
vstr2=strreverse(vstr1)
if(vstr1=vstr2) then
msgbox "Pal"
else
msgbox "Not Pal"
end if
' Assignment Date: 08/04/2011
' Given TWO strings are equal/ greater/ less
'----------------------------------------------------------------------
Option explicit
Dim vstr1, vstr2, vcmp
vstr1=inputbox("enter a string 1 : ")
vstr2=inputbox("enter a string 2 : ")
vcmp=(strcomp(vstr1, vstr2))
select case vcmp
case "0":
msgbox "Both strings are Equal"
case "1":
msgbox "string1 is greater than string2"
case "-1":
msgbox "string1 is less than string2"
case else:
msgbox "***"
end select
' Assignment Date: 08/04/2011
' Find Highest among Five strings
'-------------------------------------------------------------
Option explicit
Dim vstr(4), i, vtmp, vhigh
for i=0 to 4 step 1
vstr(i)=inputbox("enter a string: ")
next
for i=0 to 4 step 1
vtmp=vtmp&vstr(i)&vbnewline
next
msgbox vtmp
vhigh=vstr(0)
for i=0 to 4 step 1
if(strcomp(vstr(i),vhigh)=1) then
vhigh=vstr(i)
end if
next
msgbox " Highest string is: "&vhigh
FSO - File System Object
'Assignment Date: 09/04/2011
'Working on FSO
'Create Folder
'---------------------------------------------------------------------
Option explicit
Dim vfso
set vfso=createobject("scripting.filesystemobject")
if vfso.folderExists("C:\test") then
msgbox " Folder Exist "
else
msgbox " Folder Not exist "
vfso.createFolder("C:\test")
end if
'Assignment Date: 09/04/2011
'Working on FSO
'Copy Folder only if the Source folder exist
'-----------------------------------------------------
Option explicit
Dim vfso, vsrc, vdes
vsrc=inputbox("Enter the Source folder path(absolute path) ")
vdes=inputbox("Enter the Destination folder path (absolute path) ")
set vfso=createobject("scripting.filesystemobject")
if vfso.folderExists(vsrc) then
msgbox " Source Folder exist "
vfso.copyFolder vsrc, vdes
msgbox "Folder Copied !"
else
msgbox " Source Folder is not exist ! "
end if
'Assignment Date: 09/04/2011
'Working on FSO
' Print Drive Information
'------------------------------------------------------------------------------------
Option explicit
Dim vfso, vdr, vdrive, drvname, drvtotsize, drvfreespc, Usdspc, vtemp
vdr=inputbox("Enter a Drive Name: ")
set vfso=createobject("scripting.filesystemobject")
set vdrive=vfso.getDrive(vdr)
drvname=vdrive.DriveLetter
drvtotsize=vdrive.totalSize/(1024*1024*1024)
drvfreespc=vdrive.FreeSpace/(1024*1024*1024)
Usdspc=drvtotsize-drvfreespc
vtemp="Drive Name: "&drvname&vbnewline&" "&vbnewline&"Total Size: "&drvtotsize&" GB"
msgbox vtemp&vbnewline&"Used Space: "&Usdspc&" GB"&vbnewline&"Free Space: "&drvfreespc&" GB"
