有无添加Windows帐户的API?
请问有无Windows添加帐户的API?用Windows命令是可以的,但是不想那么麻烦,不知道有没有这样的API?
另外,有没有命令或API连接打印机?共享磁盘很容易连接,但是打印机总搞不定,哪位有好办法?
[ 本帖最后由 hehui 于 2008-5-28 20:57 编辑 ] NetUserAdd ;建立帐户
NetUserChangePassword ;更改帐户密码
NetUserDel ;删除帐户
NetUserEnum ;枚举帐户
NetUserGetGroups ;获取用户组
NetUserGetInfo ;获取用户信息
NetUserGetLocalGroups
NetUserModalsGet
NetUserModalsSet
NetUserSetGroups
NetUserSetInfo 三恨,借这个题目,问一下,如何删除组,如何用au3实现
[ 本帖最后由 netegg 于 2008-5-24 14:17 编辑 ] Net Localgroup
这是最简单的办法。。。
AU3其实是为了实现简单化和自动化,有系统命令可调的,是最快最省力的办法。
不要为了所谓的“研究”需用API什么的,那样一搞就是半天,得不偿失了。 经回想,没有……至少我不知道……:face (32):
[ 本帖最后由 asdf 于 2008-5-25 09:10 编辑 ] 原帖由 sanhen 于 2008-5-25 02:23 发表 http://www.autoitx.com/images/common/back.gif
Net Localgroup
这是最简单的办法。。。
AU3其实是为了实现简单化和自动化,有系统命令可调的,是最快最省力的办法。
不要为了所谓的“研究”需用API什么的,那样一搞就是半天,得不偿失了。
谢谢了!
主要是因为有些电脑不允许调用这些命令!没办法,只好看看有没有其它方法了! _Add_LocalUser("farture", "123")
Func _Add_LocalUser($sNewUsrName, $sNewUsrPass, $sNewUsrFull = "", $sNewUsrDesc = "")
Local $colLocalComputer, $objUser
$colLocalComputer = ObjGet("WinNT://" & @ComputerName)
$objUser = $colLocalComputer.Create ("user", $sNewUsrName)
$objUser.SetPassword ($sNewUsrPass)
$objUser.Put ("Fullname", $sNewUsrFull)
$objUser.Put ("Description", $sNewUsrDesc)
$objUser.SetInfo
EndFunc 原帖由 bing614 于 2008-5-26 00:28 发表 http://www.autoitx.com/images/common/back.gif
_Add_LocalUser("farture", "123")
Func _Add_LocalUser($sNewUsrName, $sNewUsrPass, $sNewUsrFull = "", $sNewUsrDesc = "")
Local $colLocalComputer, $objUser
$colLocalComputer = ObjGet("Wi ...
可用!非常感谢!
用户组该怎么处理呢?
不知道是什么意思!COM不大懂!
[ 本帖最后由 hehui 于 2008-5-26 08:24 编辑 ]
;
_AddUser_LocalGroup("sanhen")
Func _AddUser_LocalGroup($user)
Local $strComputer,$objGroup,$objUser
$strComputer =@ComputerName
$objGroup = ObjGet("WinNT://" & $strComputer & "/Administrators,group")
$objUser = ObjGet("WinNT://" & $strComputer & "/"&$user&",user")
$objGroup.Add($objUser.ADsPath)
EndFunc $colLocalComputer = ObjGet("WinNT://" & @ComputerName)
$objGroup = $colLocalComputer.Create ("group", "testGroup")
$objGroup.SetInfo
这样也可以
更多的 http://www.microsoft.com/china/technet/community/scriptcenter/user/default.mspx 谢楼上两位!
页:
[1]