none
Script Para remover a Adicionar Usuário Local RRS feed

  • Pergunta

  • Estou com o seguinte problema:
    Tenho um usuário cadastrado como administrador local em todas as maquinas do meu dominio eu gostaria de um script que removesse esse usuário específico das maquinas do meu dominio e que ele cadastrassem outros usuários como administradores nas maquinas locais.

    desde já agradeço.
    sexta-feira, 28 de agosto de 2009 14:36

Respostas

  • Olá,

    Faça o teste no script abaixo:


    Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

    strUsuario = "joao"
    strGrupo = "Administradores"
    strDominio = "contoso"

    Set objGrupo = GetObject("WinNT://" & strComputer & "/" & strGrupo & ",group")
    objGrupo.remove("WinNT://"& strDominio  & "/" & strUsuario & ", group")



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Fjunior sexta-feira, 4 de setembro de 2009 12:09
    segunda-feira, 31 de agosto de 2009 16:40
  • Olá,

    Utilize conforme o exemplo abaixo:

    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")

    ' Abrir normal
    WSHShell.Run "NET TIME \\ip-do-servidor /SET /YES ", 1, true

    Set WSHShell = Nothing
    WScript.Quit(0)


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta Fjunior sexta-feira, 4 de setembro de 2009 12:09
    sexta-feira, 4 de setembro de 2009 12:04

Todas as Respostas

  • Você quer remover somente um usuário, e adicionar outro ou você quer que em todas as maquinas permaneçam somente somente os usuários que você definir sem exceção?


    Paul
    sexta-feira, 28 de agosto de 2009 14:53
  • eu só quero remover um usuário específico e cadastrar outros, exemplo retiro o Usuário josé (admin local) e adiciono os usuários  joão e maria (ambos admin locais) . porém gostaria que o script executasse esse procedimento em todas as maquinas do dominio .. somente isso
    sexta-feira, 28 de agosto de 2009 15:07
  • Cara tenta esse ai.

    strComputer = "."

    Set colAccounts = GetObject("WinNT://" & strComputer & "")

    Set objUser = colAccounts.Create("user", "NovoUsuario")

    objUser.SetPassword "senha123"

    Set Group = GetObject("WinNT://" & strComputer & "/Administrators")

    Set cont = GetObject("WinNT://" & strComputer & ",computer")

    objUser.SetInfo
    Leonardo Sousa
    sexta-feira, 28 de agosto de 2009 18:10
  • Desculpem acho que não fui bem claro.

    tenho um usuário do domínio cadastrado como admin local em todas as maquinas do meu dominio, gostaria de um script para remover esse usuáriode admin local das maquinas, e adicionar outros quatro usuários do domínio como admin local de todas as maquinas do meu domínio. (não sei se fui claro agora Leonardo)

    se alguem poder ajudar agradeço.
    segunda-feira, 31 de agosto de 2009 12:02
  • Olá,


    Faça o teste no script abaixo:


    Remover usuário local

    Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

    strUser = "joao"
    Set objComputer = GetObject("WinNT://" & strComputer & "")
    objComputer.Delete "user", strUser




    Adicionar usuários no grupo:

    Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

    strUsuario = "joao"
    strGrupo = "Administrators"

    Set objGrupo = GetObject("WinNT://" & strComputer & "/" & strGrupo & ",group")
    objGrupo.Add("WinNT://Dominio/" & strUsuario & ", group")



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    segunda-feira, 31 de agosto de 2009 14:20
  • Boa tarde..

    A primeira parte do script ta com um pequeno erro ... ele só deleta usuários locais. o usuário do dominio cadastrado como admin local não está sendo deletado.
    da um erro: "não foi possível localizar o nome de usuário"

    porém eu criei um usuário local na mão, para testar a segunda parte do script e ele funfou legal .. ele adicionou o usuário do dominio como admin local, porém como disse anteriormente a primeira parte não funcionou como o  esperado.

    se poder ajudar agradeço.
    segunda-feira, 31 de agosto de 2009 15:53
  • Olá,

    Faça o teste no script abaixo:


    Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

    strUsuario = "joao"
    strGrupo = "Administradores"
    strDominio = "contoso"

    Set objGrupo = GetObject("WinNT://" & strComputer & "/" & strGrupo & ",group")
    objGrupo.remove("WinNT://"& strDominio  & "/" & strUsuario & ", group")



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Fjunior sexta-feira, 4 de setembro de 2009 12:09
    segunda-feira, 31 de agosto de 2009 16:40
  • Acho que como voce quer mais de um usuario e utiliza AD cria um grupo e coloca eles.

    criando uma bat com NET localgroup Administradores /add "dominio\grupo_email" ai adiciona ela como GPO de maquina.

    Este abaixo eu sei utilizo para deletar grupo, não efetuei teste com o usuario de dominio.

    NET localgroup Administradores /DELETE "server01.com.br\DOMAIN ADMINS" Admins

    Espero ter ajudado.


    Paul
    terça-feira, 1 de setembro de 2009 00:44
  • Olá,

    Conseguiu resolver ??? Os scripts passados atenderam???

    Retorne com o feedback. Classifique as respostas que foram úteis.

    Até mais,

    Jesiel
    quinta-feira, 3 de setembro de 2009 13:08
  • Olá Jesiel ... eu fiz uma alteração nos códigos que vcs mandaram e ele ficou assim:

    On Error Resume next

    'Remove o Usuário indesejado

    Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

    strUsuario = "joao"
    strGrupo = "Administradores"
    strDominio = "ABCD"

    Set objGrupo = GetObject("WinNT://" & strComputer & "/" & strGrupo & ",group")
    objGrupo.remove("WinNT://"& strDominio  & "/" & strUsuario & ", group")

    'Adiciona grupo support no grupo local administradores

    domain = "ABCD.corp"
    myGroup = "support"
     
    strDomainGroup = "WinNT://" & domain & "/" & myGroup & ",group"

    Set objDomainGroup = GetObject(strDomainGroup)

    Set objNetwork = CreateObject("Wscript.Network")

    strComputer = objNetwork.ComputerName

    Set objLocalGroup = GetObject("WinNT://" & strComputer _
    & "/Administradores,group")

    If Not objLocalGroup.IsMember(objDomainGroup.AdsPath) Then
    objLocalGroup.Add(objDomainGroup.AdsPath)

    end If

    JESIEL eu to com uma dúvida que nao tem muito haver com esse script mas se vc poder me ajudar vai ser legal
    em um script em BAT pra as estações sicronizarem a hora com meu servior fica assim:
    NET TIME \\ip-do-servidor /SET /YES
    como eu faria isso em um vbscript ?

    Vou classificar esse post sobre admin local.. OBRIGADO


    sexta-feira, 4 de setembro de 2009 11:55
  • Olá,

    Utilize conforme o exemplo abaixo:

    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")

    ' Abrir normal
    WSHShell.Run "NET TIME \\ip-do-servidor /SET /YES ", 1, true

    Set WSHShell = Nothing
    WScript.Quit(0)


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta Fjunior sexta-feira, 4 de setembro de 2009 12:09
    sexta-feira, 4 de setembro de 2009 12:04
  • Jesiel,

    Não querendo abusar... gostaria de te pedir uma ajuda....
    O meu problema é o seguinte, preciso colocar no grupo administradores locais da estação somente o usuário de rede que efetuar login nela, como faço para capturar o nome do usuário durante o logon e qual alteração precisa ser feita no script abaixo?

    Adicionar usuários no grupo:

    Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

    strUsuario = "joao"
    strGrupo = "Administrators"

    Set objGrupo = GetObject("WinNT://" & strComputer & "/" & strGrupo & ",group")
    objGrupo.Add("WinNT://Dominio/" & strUsuario & ", group")


    Desde já obrigada!


    quinta-feira, 24 de setembro de 2009 22:49
  • Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

    strUsuario = "joao"
    strGrupo = "Administrators"

    Set objGrupo = GetObject("WinNT://" & strComputer & "/" & strGrupo & ",group")
    objGrupo.Add("WinNT://sbm/" & strUsuario & ", group")

    Como faço pra que esse script acima teste se já existe o usuário joão no grupo Administrators ?
    Eu quero eliminar a mensagem de erro dizendo que o usuário já existe no grupo.

    Obrigado

    sexta-feira, 30 de outubro de 2009 17:34
  • Tente usar o seguinte script em bat.


    @echo off
    net user /add NOME DA CONTA SENHA > nul
    if not %errorlevel%==0 Echo Conta existe
    if %errorlevel%==0 net localgroup NOME DO GRUPO NOME DA CONTA /add
    PAUSE




    Espero ter ajudado.
    Se útil, classifique.
    Leonardo Sousa
    sexta-feira, 30 de outubro de 2009 17:59
  • Tente usar o seguinte script em bat.


    @echo off
    net user /add NOME DA CONTA SENHA > nul
    if not %errorlevel%==0 Echo Conta existe
    if %errorlevel%==0 net localgroup NOME DO GRUPO NOME DA CONTA /add
    PAUSE




    Espero ter ajudado.
    Se útil, classifique.
    Leonardo Sousa

    O script abaixo está funcionando bam, mais preciso colocar um "IF" pra testar se o usuario ja existe, para não dar mensagem de erro no script dizendo  que o usuário ja existe no grupo.
    Como fasso isso ?

    Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

    strUsuario = "joao"
    strGrupo = "Administrators"

    Set objGrupo = GetObject("WinNT://" & strComputer & "/" & strGrupo & ",group")
    objGrupo.Add("WinNT://"DOMINIO"/" & strUsuario & ", group")


    quarta-feira, 18 de novembro de 2009 12:31