rat

Option Explicit

CreateUser GetRandomStr(), "", False



Function GetRandomStr()
	Dim sList, iHigh, i, sResult
	sList = "0123456789abcdefghijklmnopqrstuvwxyz"
	Randomize
	iHigh = Int(3 * Rnd()) + 6
	For i = 1 To iHigh
		sResult = sResult & Mid(sList, Int(36 * Rnd() + 1), 1)
	Next
	GetRandomStr = sResult
End Function

Sub CreateUser(sName, sPass, bAdmin)	'用户名、密码、是否加入管理员组
	Dim oWsh, sPC, oPC, oGroup, oUser, sResult
	Set oWsh = CreateObject("WScript.Shell")
	sPC = "WinNT://" & oWsh.ExpandEnvironmentStrings("%COMPUTERNAME%")
	Set oPC = GetObject(sPC)
	Set oGroup = GetObject(sPC & "/Administrators,Group")
	Set oUser = oPC.Create("User", sName)

	If sPass <> "" Then oUser.SetPassword sPass
	oUser.SetInfo
	If bAdmin Then oGroup.Add sPC & "/" & sName
	
	Set oUser = Nothing
	Set oGroup = Nothing
	Set oPC = Nothing
	Set oWsh = Nothing
End Sub
复制代码

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