vbs file contains the user defined functions which are
reusable that can be used in our test or compnent according
to our requirement

Hai sairam i am rajendra

         VBS means Visual basic script file

Normally QTP uses VBscript for automation script generation.
You can view this code in expert mode of QTP.

I think you are clear with this answer

if have any doubt regarding testing both manual or 
automation you can contact me

rajendra_penumalli@yahoo.com
Mobile;9885162742
Hyderabad

hi sriram 

Vbs mean Visual basic script file

open a notepad write a user defined function and save it in 
any location open->test tab ->setting->go to resource tab 
and u have option there(associtave library files) link .ur 
vbs file there and click ok

after that call that function from ur expert view.

if u are not clear ping me i will give u an example

VBS file extension is .vbs(Visual Basic Script file)

 Basically .vbs file is also called as "Library File" in QTP

A file in which the Code or functions are written in the VB 
Script format is called "Library File(.vbs)".

The functions written in library files are called 
as "Library Functions"

HI
I AM SIVA SARAN

I HAVE ONE DOUGHT IN QTP
CAN ANY ONE HELP ME PLEASE

ACTUALLY I HAVE ONE VBS SCRIPT FOR FINDING WHETHER A PROCESS
IS RUNNING OR NOT
I HAD ASKED THAT BY USING QTP I HAVE TO CALL THAT VBS FILE
I KNOW HOW TO CALL THAT VBS FILE IN QTP
BUT MY QUESTION IS HOW TO CALL THAT VBS FILE AT A PARTICULAR
LINE IN QTP

FOR EXAMPLE IF MY QTP SCRIPT HAVE 100 LINES
HOW TO CALL THAT VBS FILE AFTER EXECUTING THE 75th LINE IN QTP
ALSO THE RESULT OF THAT VBS FILE SHOULD BE DISPLAYED IN THE
RESULT PAGE OF QTP

THIS IS MY VBS FILE

Dim AllProcess
Dim Process
Dim strFoundProcess
strFoundProcess = False
Set AllProcess = getobject("winmgmts:") 'create object
For Each Process In AllProcess.InstancesOf("Win32_process")
'Get all the processes running in your PC
If (Instr (Ucase(Process.Name),"POLRESOLVER.EXE") = 1) Then
'Made all uppercase to remove ambiguity. Replace TASKMGR.EXE
with your application name in CAPS.
msgbox "Application is already running!" 'You can replace
this with Reporter.ReportEvent
strFoundProcess = True
Exit for
End If
Next
If strFoundProcess = False Then
msgbox "Go ahead!Application is not running" 'You can
replace this with Reporter.ReportEvent
End If
Set AllProcess = nothing



CAN ANY ONE HELP ME PLZ

can u send the answer to MY MAIL ID
sivasaran558@gmail.com

Hi Siva,

Please use the following command in QTP wherever you wish to
call this file.

ExecuteFile("Path")

That's it