Я пытаюсь добавить учетную запись домена 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>")
Но во время выполнения я получаю сообщение об ошибке "Сетевой путь не найден". Пожалуйста, помогите мне.
Однако я пытаюсь выполнить то же самое здесь, как ответил Дэвид, но через сценарий.