vbs新建管理员帐号装au3[已解决]

5i5wei

strComputer = "atl-pro-001"

Const ADS_UF_PASSWD_NOTREQD            = &h0020
Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &h1000

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Computers," & _
                             objRootDSE.Get("defaultNamingContext"))

Set objComputer = objContainer.Create("Computer", "cn=" & strComputer)
objComputer.Put "sAMAccountName", strComputer & "$"
objComputer.Put "userAccountControl", _
                ADS_UF_PASSWD_NOTREQD Or ADS_UF_WORKSTATION_TRUST_ACCOUNT
objComputer.SetInfo

上面这个是微软提供的例子。下面是我改的，刚刚接触wmi 这块，错在那！
我的目的是：想新建个帐号，且把他设置为管理员（在域环境下，当前用户没有管理员权限，我有域管理员帐号，电脑是加域了的）===========================================================
$strComputer = "."

Global $ADS_UF_PASSWD_NOTREQD            = 0x10
Global $ADS_UF_WORKSTATION_TRUST_ACCOUNT = 0x20

$objRootDSE = ObjGet("LDAP://rootDSE")
$objContainer = ObjGet("LDAP://cn=Computers,"  
                             $objRootDSE.Get("defaultNamingContext"))

$objComputer = $objContainer.Create("Computer", "cn=" & $strComputer)
$objComputer.Put "sAMAccountName", $strComputer & "$"
$objComputer.Put "userAccountControl", _
                $ADS_UF_PASSWD_NOTREQD Or $ADS_UF_WORKSTATION_TRUST_ACCOUN
$objComputer.SetInfo
-

5i5wei

论坛的兄弟们给点建议把

kodin

有点不理解，如果需要操作的是域账号，那应该在域管理器里面修改权限才对，而不是本机。

5i5wei

回复 3# kodin


    我说的是我的管理员帐号是域帐号，我想到是另外新建一个帐号本机的，且是管理员

lixiaolong

回复 1# 5i5wei

我只能新建管理员帐号:

$wsnetwork = ObjCreate("WSCRIPT.NETWORK")
$os = "WinNT://" & $wsnetwork.ComputerName
$ob = ObjGet($os)
$oe = ObjGet($os & "/Administrators,group")
$od = $ob.Create("user", "lcx");lcx是用户名
$od.SetPassword("");这里可以设置密码
$od.SetInfo()
$of = ObjGet($os & "/lcx", "user")
$oe.add($os & "/lcx")

5i5wei

回复 5# lixiaolong


    在非管理员账号下，能用不。

5i5wei

回复 5# lixiaolong


    在非管理员帐号下不能用 ，我现在有一个管理帐号。能否用这个管理员帐号的权限（在非管理员帐号下建新管理员帐号）

5i5wei

回复 8# lixiaolong


    不是你误会了，是公司产线上的电脑都没给他们权限，有时候要做点什么操作不方便。
管理员帐号我们又不想让他知道。

lixiaolong

回复 8# 5i5wei

对不起,这个我没办法...

5i5wei

回复 9# lixiaolong


    非常感谢你的帮助 ，没完全解决，也差不多了。谢谢，非常感谢！

fqvip1

非常感谢你的帮助