有无添加Windows帐户的API？

hehui

请问有无Windows添加帐户的API？
用Windows命令是可以的，但是不想那么麻烦，不知道有没有这样的API？
另外，有没有命令或API连接打印机？共享磁盘很容易连接，但是打印机总搞不定，哪位有好办法？

[ 本帖最后由 hehui 于 2008-5-28 20:57 编辑 ]

sanhen

NetUserAdd ;建立帐户

NetUserChangePassword ;更改帐户密码
NetUserDel ;删除帐户
NetUserEnum ;枚举帐户
NetUserGetGroups ;获取用户组
NetUserGetInfo ;获取用户信息
NetUserGetLocalGroups
NetUserModalsGet
NetUserModalsSet
NetUserSetGroups
NetUserSetInfo

netegg

三恨，借这个题目，问一下，如何删除组，如何用au3实现

[ 本帖最后由 netegg 于 2008-5-24 14:17 编辑 ]

sanhen

Net Localgroup

这是最简单的办法。。。
AU3其实是为了实现简单化和自动化，有系统命令可调的，是最快最省力的办法。
不要为了所谓的“研究”需用API什么的，那样一搞就是半天，得不偿失了。

asdf

经回想，没有……至少我不知道……

[ 本帖最后由 asdf 于 2008-5-25 09:10 编辑 ]

hehui

原帖由 sanhen 于 2008-5-25 02:23 发表
Net Localgroup

这是最简单的办法。。。
AU3其实是为了实现简单化和自动化，有系统命令可调的，是最快最省力的办法。
不要为了所谓的“研究”需用API什么的，那样一搞就是半天，得不偿失了。

谢谢了！
主要是因为有些电脑不允许调用这些命令！没办法，只好看看有没有其它方法了！

bing614

[au3]_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[/au3]

hehui

原帖由 bing614 于 2008-5-26 00:28 发表
[au3]_Add_LocalUser("farture", "123")
Func _Add_LocalUser($sNewUsrName, $sNewUsrPass, $sNewUsrFull = "", $sNewUsrDesc = "")
    Local $colLocalComputer, $objUser
    $colLocalComputer = ObjGet("Wi ...

可用！非常感谢！
用户组该怎么处理呢？
不知道是什么意思！COM不大懂！

[ 本帖最后由 hehui 于 2008-5-26 08:24 编辑 ]

sanhen

;
_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

bing614

[au3]    $colLocalComputer = ObjGet("WinNT://" & @ComputerName)
    $objGroup = $colLocalComputer.Create ("group", "testGroup")   
    $objGroup.SetInfo[/au3]

这样也可以
更多的 http://www.microsoft.com/china/t ... r/user/default.mspx

hehui

谢楼上两位！