olá pessoal, mais uma vez venho lhes pedir ajuda, seguinte,
estou usando um script vbs para desativar todas as contas locais existentes nas minhas estações, nesse script eu coloquei exceção de computadores onde coloquei meus DCs e exceção de usuários como administrador, sendo assim ele irá vasculhar toda a rede desativando
todas as contas locais exceto a conta administrador e exceto no meu DC por exemplo servidor01:
usuarios = Array("Administrador")
servidores = Array("servidor01")
Dim objFSO, objCompFile, objDCFile, objDomain, objComp, objNTComp
strGroup = "Administradores"
strDomain = "MEUDOMINIO"
Set objDomain = GetObject("WinNT://" & strDomain)
objDomain.Filter = Array("Computer")
For each objComputer in objDomain
sComputerName = objComputer.name
If InStr(UCase(Join(servidores)), UCase(sComputerName)) = 0 Then
'Wscript.Echo("Computador " & sComputerName)
objComputer.Filter = Array("User")
For Each objUser in objComputer
'Wscript.Echo("Conta: "& objUser.Name)
If InStr(UCase(Join(usuarios)), UCase(objUser.Name)) = 0 Then
If objUser.AccountDisabled = False Then
objUser.AccountDisabled = True
objUser.SetInfo
Wscript.Echo("["& sComputerName &"] Desativando conta " & objUser.Name)
End If
End If
Next
End If
Next
O problema é que quado estou executando este script usando o cscript ele me reporta o erro
access is denied ao executar a linha 23 do script, porém estou executando como administrador, alguém poderia me ajudar por favor?
