'Record the opening of command prompt in low level mode.
SystemUtil.Run "cmd","","C:\Documents and 
Settings\<user>",""
wait 5
Record entering the text "hostname" in cmd prompt in Analog 
mode .
Desktop.RunAnalog "Track2" 
I have just started learning QTP. I am finding a proper 
script to do the above task without recording in analog. If 
anyone know please post the answers. Thx.

LHN=Environment.value("LocalHostName")
msgbox LHN

Run it, you will get you local host name.

Thanks Arun.
msgbox (environment("LocalHostName"))
this will also return the same. since these (LocalHostName, 
OS etc) are built in environment variables, we can get the 
values thro above syntax.

if you like to hardcode its value, find here

control panel -> system -> general 

Read the second line under Registered to:

The above code is giving error at for loop
Dim fso,notepad
set fso = createobject("scripting.filesystemobject")

file_path = "c:\nandu.txt"
'forwriting =2
'forreading = 1
set notepad = fso.createtextfile(file_path,1)
notepad.writeline "this is created by Nanda"
notepad.writeline"this is created on "
 
set notepad = fso.opentextfile(file_path,1)
Do
	n = notepad.readline
	msgbox n

Loop until ( notepad.atendofstream=true)

This will work fine.

Thank you
Sailaja

sorry this not the answer for this question . sorry.act I 
want to post the ans for to open a notepad and write and 
read contents of the notepad.once again sorry for 
inconvience.

Thank You
Sailaja.