zqz0012005

用bat不行吗？

@echo off & setlocal EnableDelayedExpansion
set str=abcdefghijklmnopqrstuvwxyz0123456789
for /l %%a in (0 1 5) do (
    set /a n=%ramdom% %% 36
    call set strName=!strName!%%str:~!n!%%
)
net user %strName% /add
复制代码

zqz0012005

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