-1

Я пытаюсь добавить учетную запись домена AD в локальную группу администраторов через VBScript /Powershell, но ничего не помогает. К вашему сведению: Добавление учетной записи после присоединения к домену Это необходимо выполнить для предоставления доступа администратора.

Это то, что я сделал до сих пор.

    function global:AddUser(){
    $SERVER = "vmtest" #Computer Name
        $userNameToAdd = "DomainName\DomainID" 
        $group =[ADSI]"WinNT://$SERVER/Administrators,group"
             $group =[ADSI]"WinNT://" + $SERVER + "/Administrators,group"
             $group.add("WinNT://" + $env:userdomain + "/" + $userNameToAdd)
            if ($?) { 
                Write-Host "User $userNameToAdd added to local Administrators at $Server."
                $date = date
                Write-Output "$date User $userNameToAdd added to local Administrators at $Server." >> RemoteMassAdmLocalAdmin.log
            } else { Write-Host $er }
}
AddUser

И через VBScript

Function addtoAdminGroup(x,y)
    Dim DomainName
    Dim UserAccount
    Set net = WScript.CreateObject("WScript.Network")
    local = net.ComputerName
    DomainName = x
    UserAccount = y

    set group = GetObject("WinNT://"& local &"/Administrators")

    on error resume next
    group.Add "WinNT://"& DomainName &"/"& UserAccount &""
    CheckError
    End Function

    Function CheckError()
      if not err.number=0 then
      set ole = CreateObject("ole.err")
      MsgBox ole.oleError(err.Number), vbCritical
      err.clear
    else
      openConsole("Added User to Administrators group")
    end if
    end function

    addtoAdminGroup("<value of domain>","<domain or NT ID>")

Но во время выполнения я получаю сообщение об ошибке "Сетевой путь не найден". Пожалуйста, помогите мне.

Однако я пытаюсь выполнить то же самое здесь, как ответил Дэвид, но через сценарий.

1 ответ1

0

Наконец я заканчиваю следующей командой.

net localgroup administrators domainame\domainID /add

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .