none
Criar usuário local e habilitar opção "Senha nunca expira" e "O usuário não pode alterar a senha" via VBS RRS feed

  • Pergunta

  •  

    Pessoal como criar um determinado usuário local, por exemplo bruno, e habilitar opção "Senha nunca expira" e "O usuário não pode alterar a senha" via VBS?
    sexta-feira, 1 de agosto de 2008 18:31

Respostas

  • Olá bruno, meu forte não é script mas está na mão. Dividi o mesmo em 4 partes, já testei e funcionou corretamente. Basta salva como vbs. Não esqueça de marcar este post como util.

     

    ' ------ Defini as variaveis ------


    strUserName = "bruno"              '---- Defini o nome de logon do usuario 
    strFullName = "Bruno Prata"       '---- Defini nome completo do usuario
    strDescr = "Usuario de Desktop"
    strPassword = "12345678"         '----- Defini password do usuario
    strComputer = "XP1"                 '----- Defini o nome do computador

    ' ------ Cria o usuario ---------


    set objSystem = GetObject("WinNT://" & strComputer)
    set objUser = objSystem.Create("user", strUserName)
    objUser.FullName = strFullName
    objUser.Description = strDescr
    objUser.SetPassword strPassword
    objUser.SetInfo

    '-------Defini os flags que sao responsaveis para alterar as propriedades do usuario
    strComputer = "xp1"
    strUser = "bruno"
    Set User = Getobject("WinNT://" & strComputer & "/" & strUser)
    Flags = User.Get("UserFlags")

    User.put "Userflags", flags OR &H10000  ' ------ Este flag altera a propriedade do password nunca expira
    user.setinfo

    Set User = nothing
    '-------
    strComputer = "xp1"
    strUser = "bruno"
    Set User = Getobject("WinNT://" & strComputer & "/" & strUser)
    Flags = User.Get("UserFlags")

    User.put "Userflags", flags OR &H40      '------ Este flag altera a propriedade que o usuario nao pode alterar a senha
    user.setinfo

    Set User = nothing

    terça-feira, 5 de agosto de 2008 18:58
  • Valeu camarada!!! Resolveu o meu problema aqui...

    quinta-feira, 7 de agosto de 2008 18:12

Todas as Respostas

  • Olá bruno, meu forte não é script mas está na mão. Dividi o mesmo em 4 partes, já testei e funcionou corretamente. Basta salva como vbs. Não esqueça de marcar este post como util.

     

    ' ------ Defini as variaveis ------


    strUserName = "bruno"              '---- Defini o nome de logon do usuario 
    strFullName = "Bruno Prata"       '---- Defini nome completo do usuario
    strDescr = "Usuario de Desktop"
    strPassword = "12345678"         '----- Defini password do usuario
    strComputer = "XP1"                 '----- Defini o nome do computador

    ' ------ Cria o usuario ---------


    set objSystem = GetObject("WinNT://" & strComputer)
    set objUser = objSystem.Create("user", strUserName)
    objUser.FullName = strFullName
    objUser.Description = strDescr
    objUser.SetPassword strPassword
    objUser.SetInfo

    '-------Defini os flags que sao responsaveis para alterar as propriedades do usuario
    strComputer = "xp1"
    strUser = "bruno"
    Set User = Getobject("WinNT://" & strComputer & "/" & strUser)
    Flags = User.Get("UserFlags")

    User.put "Userflags", flags OR &H10000  ' ------ Este flag altera a propriedade do password nunca expira
    user.setinfo

    Set User = nothing
    '-------
    strComputer = "xp1"
    strUser = "bruno"
    Set User = Getobject("WinNT://" & strComputer & "/" & strUser)
    Flags = User.Get("UserFlags")

    User.put "Userflags", flags OR &H40      '------ Este flag altera a propriedade que o usuario nao pode alterar a senha
    user.setinfo

    Set User = nothing

    terça-feira, 5 de agosto de 2008 18:58
  • Valeu camarada!!! Resolveu o meu problema aqui...

    quinta-feira, 7 de agosto de 2008 18:12
  • Galera,

     

    Alguém sabe como acrescentar nesse script a opção do usuário ser adicionado ao grupo de administradores?

     

    Obrigado

     

    Marcio Sousa

     

    terça-feira, 7 de outubro de 2008 13:15