号令行下一种新的加帐号的办法[菜鸟入门]

本日研究了一下用户掌握面板文件nusrmgr.cpl,发现调用的是Shell.Users来加用户,它还同时调用了wscript.shell、Shell.Application、Shell.LocalMachine这三个组件.不过加用户的话,这一个Shell.Users就足 ...

　　本日研究了一下用户掌握面板文件nusrmgr.cpl,发现调用的是Shell.Users来加用户,它还同时调用了wscript.shell、Shell.Application、Shell.LocalMachine这三个组件.不过加用户的话,这一个Shell.Users就充足了.那么大概在删掉了net.exe和不用adsi之外,这也大概是一种新的加用户的办法.代码以下:

　　js:

　　var o=new ActiveXObject( "Shell.Users" );

　　z=o.create("test") ;

　　z.changePassword("123456","")

　　z.setting("AccountType")=3;

　　vbs:

　　Set o=CreateObject( "Shell.Users" )

　　Set z=o.create("test")

　　z.changePassword "123456",""

　　z.setting("AccountType")=3