hehui 发表于 2008-5-24 12:07:21

有无添加Windows帐户的API?

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

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

sanhen 发表于 2008-5-24 14:05:14

NetUserAdd ;建立帐户

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

netegg 发表于 2008-5-24 14:16:42

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

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

sanhen 发表于 2008-5-25 02:23:34

Net Localgroup

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

asdf 发表于 2008-5-25 08:58:18

经回想,没有……至少我不知道……:face (32):

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

hehui 发表于 2008-5-25 10:24:36

原帖由 sanhen 于 2008-5-25 02:23 发表 http://www.autoitx.com/images/common/back.gif
Net Localgroup

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

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

bing614 发表于 2008-5-26 00:28:34

_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

hehui 发表于 2008-5-26 08:22:45

原帖由 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 编辑 ]

sanhen 发表于 2008-5-26 09:33:59


;
_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 发表于 2008-5-26 11:46:31

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

这样也可以
更多的 http://www.microsoft.com/china/technet/community/scriptcenter/user/default.mspx

hehui 发表于 2008-5-26 12:41:05

谢楼上两位!
页: [1]
查看完整版本: 有无添加Windows帐户的API?