1、使用如下 函数 就可以产生。思路是：用随机数 ，在模板字符串里 随机取出字符，组合成一个随机字符串。Function GetRandStr(length) Dim desstr, tempstr, i, len tempstr = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()" RandomizeTime() len= Len(tempstr) For i = 1 To length desstr = desstr & Mid(tempstr, Int(Rnd *len + 1) ,1) Next GetRandStr= desstrEnd FunctionWScript.Echo GetRandStr(12)