none
Criação de vários usuários Localmente no WinXP (Não no AD). RRS feed

  • Pergunta

  • Bom dia pessoal,

    Sou estagiário de suporte e meu gerente me pediu pra procurar um script para criar usuários localmente. Achei aqui no forum vários scripts p/ adicionar usuários, mas todos eram no Active Directory.

    Estamos com a lista de usuários a serem criados(aproximadamente 200), então faltaria so alterar os nomes no script, correto?

    Sou leigo na parte de scripts, então se puderem me ajudar ficarei muito grato.

    Abraços

    segunda-feira, 9 de abril de 2007 13:20

Respostas

  • Olá Tonny;

    Para fazer este tipo de tarefa voce pode utilizar o proprio comando "net user" do windows com um for next com a lista de usuários...

    set shell = wscritp.createobject("wscript.shell")

    shell.exec "net user Rafael /add"

    []'s
    segunda-feira, 9 de abril de 2007 18:44
  • Este script você adiciona manualmente o nome sem precisar alterar o script todo o momento pois ele já te pede o nome dso user.

     

    strComputer = "."
    Userlocal = inputbox("Digite o nome do usuário que você deseja criar","Criação de usuários locais" ,"")
    Set colAccounts = GetObject("WinNT://" & strComputer & "")
    Set objUser = colAccounts.Create("user", Userlocal)
    objUser.SetPassword "minhasenha"
    objUser.SetInfo

     

     

     

    Já este script abaixo cria os usuários a partir de uma arquivo de texto localizado no servidor ou no C da sua máquina.

    OBS. lembre-se de colocar cada nome de usuário em uma linha diferente.

    ex: joao

          luiz

          Jose

     

    set fso = CreateObject("Scripting.FileSystemObject")
          const ForREAding = 1
             set leia = fso.opentextFile("c:\users.txt",ForREAding)
    Do until leia.AtEndOfStream

    Userlocal = leia.Readline
    if userlocal = "" then
      wscript.quit
    end if
    strComputer = "."
       Set colAccounts = GetObject("WinNT://" & strComputer & "")
         Set objUser = colAccounts.Create("user", Userlocal)
         objUser.SetPassword "minhasenha"
       objUser.SetInfo

    loop

     

     

    Abraços

    segunda-feira, 9 de abril de 2007 21:27

Todas as Respostas

  • Olá Tonny;

    Para fazer este tipo de tarefa voce pode utilizar o proprio comando "net user" do windows com um for next com a lista de usuários...

    set shell = wscritp.createobject("wscript.shell")

    shell.exec "net user Rafael /add"

    []'s
    segunda-feira, 9 de abril de 2007 18:44
  • Obrigado Rafael Smile

    abraços

    segunda-feira, 9 de abril de 2007 20:56
  • Este script você adiciona manualmente o nome sem precisar alterar o script todo o momento pois ele já te pede o nome dso user.

     

    strComputer = "."
    Userlocal = inputbox("Digite o nome do usuário que você deseja criar","Criação de usuários locais" ,"")
    Set colAccounts = GetObject("WinNT://" & strComputer & "")
    Set objUser = colAccounts.Create("user", Userlocal)
    objUser.SetPassword "minhasenha"
    objUser.SetInfo

     

     

     

    Já este script abaixo cria os usuários a partir de uma arquivo de texto localizado no servidor ou no C da sua máquina.

    OBS. lembre-se de colocar cada nome de usuário em uma linha diferente.

    ex: joao

          luiz

          Jose

     

    set fso = CreateObject("Scripting.FileSystemObject")
          const ForREAding = 1
             set leia = fso.opentextFile("c:\users.txt",ForREAding)
    Do until leia.AtEndOfStream

    Userlocal = leia.Readline
    if userlocal = "" then
      wscript.quit
    end if
    strComputer = "."
       Set colAccounts = GetObject("WinNT://" & strComputer & "")
         Set objUser = colAccounts.Create("user", Userlocal)
         objUser.SetPassword "minhasenha"
       objUser.SetInfo

    loop

     

     

    Abraços

    segunda-feira, 9 de abril de 2007 21:27
  • Valeu Wemali

    era exatamente isso que eu precisava!

    abraços.

    terça-feira, 10 de abril de 2007 11:35
  • Welington,

     

    Tem como neste seu script colocar este usuário dentro do grupo Administradores?

     

    Abraços

     

    Jairo

    segunda-feira, 23 de abril de 2007 02:02
  • Bom dia, a todos testei este script mas ele da erro na linha objUser.SetInfo.

     

    Alguem poderia me ajudar ?

    quinta-feira, 24 de maio de 2007 13:10