我正在尝试向本地组添加一个域用户帐户,如果我登录到计算机上,一切正常,但如果我在系统帐户下运行相同的脚本,则会失败,并显示错误: 424 Object Required“。以下是代码:
Dim domain : domain = "DOMAIN01"
Dim domainController: domainController = "99.139.151.102"
Dim localComputer : localComputer = "SERVER001"
Dim localGroup : localGroup = "LocalGroup1"
Dim domainAccount : domainAccount = "User1"
Dim objLocalGroup
Dim objDomainUser
Set objLocalGroup = GetObject("WinNT://" & localComputer & "/" & localGroup & ",group")
Set objDomainUser = GetObject("WinNT:").OpenDSObject("WinNT://" & domain & "/" & domainController & "/" & domainAccount, domainAccount, "Password1234", ADS_SECURE_AUTHENTICATION or ADS_SERVER_BIND)
'Add domain user to local group.
objLocalGroup.Add(objDomainUser.ADsPath)
If Err.Number <> 0 Then
WScript.Echo Err.Number
WScript.Echo Err.Description
Else
WScript.Echo domainAccount & " has been added to local group " & localGroup
End If谢谢
发布于 2013-02-22 03:39:59
系统帐户没有连接到其他主机的业务。以具有本地管理员权限的用户身份运行该脚本。
https://stackoverflow.com/questions/15008169
复制相似问题