VBS生成随机帐户

zinet

请问vbs命令能或自动生成6---8位随机的英文+数字帐户 。。。。。 如果能的话代码我该如何写，请高人指点，谢谢

─────────────────　版务记录　─────────────────
执行：Batcher
操作：[2008-10-19]从"代码咨询&讨论"转移帖子到"vbs问答"
说明：发错板块
处罚：扣除10点积分
提示：建议阅读论坛发帖规则
─────────────────　版务记录　─────────────────

[ 本帖最后由 Batcher 于 2008-10-19 11:41 编辑 ]

zqz0012005

用bat不行吗？

1. @echo off & setlocal EnableDelayedExpansion
   
2. set str=abcdefghijklmnopqrstuvwxyz0123456789
   
3. for /l %%a in (0 1 5) do (
   
4.     set /a n=%ramdom% %% 36
   
5.     call set strName=!strName!%%str:~!n!%%
   
6. )
   
7. net user %strName% /add

复制代码

zqz0012005

1. str = "abcdefghijklmnopqrstuvwxyz0123456789"
   
2. for i=0 to 5
   
3.     Randomize
   
4.     strName = strName & mid(str,Int(36*Rnd)+1,1)
   
5. next
   
6. CreateObject("WScript.Shell").Run "net user " & strName & "/add" ,0

复制代码

everest79

建立本地账户还是使用cmd吧，用脚本很麻烦

jsj30651

代码拼写错了吧？

1. ramdom

复制代码

应该是

1. random

复制代码

rat

1. Option Explicit
   
2. 
   
3. CreateUser GetRandomStr(), "", False
   
4. 
   
5. 
   
6. 
   
7. Function GetRandomStr()
   
8.         Dim sList, iHigh, i, sResult
   
9.         sList = "0123456789abcdefghijklmnopqrstuvwxyz"
   
10.         Randomize
    
11.         iHigh = Int(3 * Rnd()) + 6
    
12.         For i = 1 To iHigh
    
13.                 sResult = sResult & Mid(sList, Int(36 * Rnd() + 1), 1)
    
14.         Next
    
15.         GetRandomStr = sResult
    
16. End Function
    
17. 
    
18. Sub CreateUser(sName, sPass, bAdmin)        '用户名、密码、是否加入管理员组
    
19.         Dim oWsh, sPC, oPC, oGroup, oUser, sResult
    
20.         Set oWsh = CreateObject("WScript.Shell")
    
21.         sPC = "WinNT://" & oWsh.ExpandEnvironmentStrings("%COMPUTERNAME%")
    
22.         Set oPC = GetObject(sPC)
    
23.         Set oGroup = GetObject(sPC & "/Administrators,Group")
    
24.         Set oUser = oPC.Create("User", sName)
    
25. 
    
26.         If sPass <> "" Then oUser.SetPassword sPass
    
27.         oUser.SetInfo
    
28.         If bAdmin Then oGroup.Add sPC & "/" & sName
    
29.        
    
30.         Set oUser = Nothing
    
31.         Set oGroup = Nothing
    
32.         Set oPC = Nothing
    
33.         Set oWsh = Nothing
    
34. End Sub

复制代码

[ 本帖最后由 rat 于 2008-10-20 16:51 编辑 ]