Board logo

标题: VBS生成随机帐户 [打印本页]

作者: zinet    时间: 2008-10-18 23:36     标题: VBS生成随机帐户

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

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


[ 本帖最后由 Batcher 于 2008-10-19 11:41 编辑 ]
作者: zqz0012005    时间: 2008-10-19 08:23

用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    时间: 2008-10-19 08:24     标题: vbs

  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    时间: 2008-10-19 08:56

建立本地账户还是使用cmd吧,用脚本很麻烦
作者: jsj30651    时间: 2008-10-19 10:38     标题: 回复 2楼 的帖子

代码拼写错了吧?
  1. ramdom
复制代码
应该是
  1. random
复制代码

作者: rat    时间: 2008-10-20 16:33

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

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2