vbs如何随机字符串

1、 使用如下 函数 就可以产生。

思路是：用随机数 ，在模板字符串里 随机取出字符，组合成一个随机字符串。

Function GetRandStr(length)

    Dim desstr, tempstr, i, len

    tempstr = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()"

    Randomize Time()

  len= Len(tempstr)

    For i = 1 To length

        desstr = desstr & Mid(tempstr , Int(Rnd *len + 1) ,1)

    Next

    GetRandStr= desstr

End Function

WScript.Echo GetRandStr(12)