I couldn't rectify the error in following script..pls helpme frds..

[Kishore_J]

Hi Frds,

Please help me on this following script..I have written Function script to enter username,pwd fields and verify status.
'**** Following script for ActiTIME-Login" screen.

Code:

Set un = Browser("ActiTIME-Login").Page("ActiTIME-Login").webedit("username")
Set pwd =Browser("ActiTIME-Login").Page("ActiTIME-Login").webedit("pwd")
Set btn = Browser("ActiTIME-Login").Page("ActiTIME-Login").webbutton("Login now")

Call objectset (un, "admin")
Call objectset (pwd, "manager")
Call objectset(btn)

Function objectset(testobj, sinput)
   sobjname = testobj.Tostring
   Status = verifyobjexistandenabled(testobj)
   If status = True Then
       Desc = "setting" &sinput& "in to"&sobjname
       Reporter.ReportEvent micPass, "objectset", Desc
       testobj.setsinput
      
     Else
     Exittest
      
   End If
End Function

*****************************
When i am executing the above script it's giving error message
"Type Mismatch: Status = verifyobjexistandenabled(testobj)"

Please help me what is the problem in the above script??
What is the object method we can use for verify status (For web & Windows)

Thanks in Advance,