rat 当前离线
荣誉版主
命令行下一种新的加帐号的方法 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 当前离线
一级士官
TOP
原帖由 spfnug 于 2009-7-14 16:57 发表 想用批处理结合mshta该怎么写呢???
mshta vbscript:execute("With CreateObject(""Shell.Users"").Create(""test""):.ChangePassword ""123456"","""":.Setting(""AccountType"")=3:End With:Close")复制代码
mshta vbscript:CreateObject("Shell.Users").Remove("test")(Close)复制代码