[唐胡璐]VBS技巧 - Generate Random String(产生随机数)

 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 

End Function

转载于:https://www.cnblogs.com/yongfeiuall/archive/2013/01/11/4134200.html