VBS生成随机密码
- 作者: 让我来日_邢一珊
- 来源: 51数据库
- 2022-08-17
Option Explicit
Function GeneratePassword(length)
Dim p, s, i, l
s = "abcdefghijklmnopqrstuvwxyz" &_
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" &_
"0123456789" & "!@#$%^&*()"
Randomize : l = Len(s)
For i = 1 To length
p = p & Mid(s, Int(Rnd * l + 1) ,1)
Next
GeneratePassword = p
End Function
WScript.Echo GeneratePassword(12)
推荐阅读
