Ошибка VBScript 424 Объект Требуется при запуске скрипта под учетной записью SYSTEM

Question

Я пытаюсь добавить учетную запись пользователя домена в локальную группу, и все работает нормально, если я зарегистрирован на компьютере, но если я запустил тот же скрипт в учетной записи 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 

Спасибо

Answer 1

счет SYSTEM не имеет бизнеса, подключая к другим хостам Запустить скрипт как пользователь с правами локального администратора.