VB Script - random string

[Saket]

hey qtp_user22,

you have missed to put the parameter strLen
use this

Code:

Function RandomString( ByVal strLen )
    Dim str
    Const LETTERS = "abcdefghijklmnopqrstuvwxyz0123456789"
    For i = 1 to strLen
        str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
    Next
    RandomString = str

DataTable.Value("rndstr", dtGlobalSheet) = str

End Function