标题: [ZT]一种新的加帐号的方法 [打印本页]
作者: rat 时间: 2009-7-7 23:13 标题: [ZT]一种新的加帐号的方法
http://hi.baidu.com/myvbscript/blog/item/cfc53df58c68a82cbd3109e8.html
命令行下一种新的加帐号的方法
2009年07月01日 星期三 下午 04:50
今天研究了一下用户控制面板文件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
作者: spfnug 时间: 2009-7-14 16:57 标题: 回复 1楼 的帖子
想用批处理结合mshta该怎么写呢？？？
作者: rat 时间: 2009-7-14 17:06
原帖由 spfnug 于 2009-7-14 16:57 发表 
想用批处理结合mshta该怎么写呢？？？
- mshta vbscript:execute("With CreateObject(""Shell.Users"").Create(""test""):.ChangePassword ""123456"","""":.Setting(""AccountType"")=3:End With:Close")
[ 本帖最后由 rat 于 2009-7-14 17:07 编辑 ]
作者: spfnug 时间: 2009-7-18 23:48 标题: 回复 3楼 的帖子
再问一个：想用批处理结合mshta删除帐户该怎么写呢？？？
作者: rat 时间: 2009-7-19 00:18
- mshta vbscript:CreateObject("Shell.Users").Remove("test")(Close)
作者: spfnug 时间: 2009-7-19 00:30
谢谢版主 ！！！！！
| 欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |