0

ドメイン ユーザー アカウントをローカル グループに追加しようとしていますが、コンピューターにログインしている場合はすべて正常に動作しますが、SYSTEM アカウントで同じスクリプトを実行すると、次のエラーで失敗します: 424 オブジェクトが必要です"。コードは次のとおりです。 :

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

ありがとうございました

4

1 に答える 1

0

SYSTEM アカウントには、他のホストに接続するビジネスはありません。ローカル管理者権限を持つユーザーとしてスクリプトを実行します。

于 2013-02-21T19:39:59.117 に答える