Próbuję dodać konto domeny AD do lokalnej grupy administratorów za pomocą VBScript / Powershell, ale nic nie pomaga. FYI: Dodawanie konta po dołączeniu domeny Należy to zrobić, aby zapewnić dostęp administratora.
To właśnie zrobiłem do tej pory.
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
I przez 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>")
Ale podczas wykonywania otrzymuję błąd „Nie znaleziono ścieżki sieciowej”. Proszę, pomóż mi.
Próbuję jednak wykonać to samo tutaj jak odpowiedział David, ale za pomocą skryptu.