none
Adicionar usuário e colocar em "Power Users" RRS feed

  • Pergunta

  • Senhores,

     

    Preciso de um SCRIPT para criar um usuário chamado Auditor, alterar a senha do mesmo e acresce-lo ao grupo PowerUsers.

    A idéia é utilizar este usuário par antenticação de snmp, pois o parque está muito mixto para usar somente usuário do dominio.


    Rodrigo Fontes Tavares - Adm. de Redes
    segunda-feira, 19 de julho de 2010 17:05

Respostas

  • Rodrigo,

    Tente com o script abaixo, nesse caso o nome do usuario e a senha é teste, altere as linhas em negrito.

     Dim strComputer, strUserName, strPassword

    Set objNetwork = CreateObject("Wscript.Network")
    'Pega o nome do computador
    strComputer = objNetwork.ComputerName

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

    'Cria usuario
    strUserName = "Teste"
    Set objUser = objComputer.Create("user", strUserName)
    objUser.SetInfo

    ' Define Senha
    strPassword = "teste"
    objUser.SetPassword strPassword

    'Adiciona ao Grupo
    Set objGroup = GetObject("WinNT://" & strComputer & "/Power Users,group")
    objGroup.Add(objUser.AdsPath)

    WScript.Echo "Concluido"

    Qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCTS / MCSA / MCSE / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quarta-feira, 21 de julho de 2010 20:51