none
Solicitar nome dos usuários RRS feed

  • Pergunta

  •  

    Eu tenho um Script que eu peguei e comecei a adptar so que nao manjo nada de VBSCRIPT. segue abaixo:

     

    O que eu agreguei esta em azul ele ate funciona mais qdo eu coloco a quantidade e o nome ele cria EX: 10 usuarios como o nome TESTE, TESTE1 assim por diante eu queria que a quantidade de usuario que eu colaca-se pedi-se a quantidade de nomes de usuario EX: 2 usuario, JOAO, MARIA.

    Se alguem puder me ajudar agradeço ou se alguem me mostrar onde tem algum Script que importa de alguma planilha ja me ajuda tbm.

     

    CRLF = Chr(13) & Chr(10)

    'This statement binds the Global catalog
    Set root = GetObject("GC://RootDSE")

    'Default Domain capture
    Set domname = GetObject( "GC://" & root.Get("rootDomainNamingContext"))

    'Ask user for input
    dspath=inputbox("Especifique o caminho do diretorio no AD."+CRLF+"For Exemplo: DC=e-learn,DC=com","Sample NT 5.0 Script", domname.distinguishedname)
    If dspath="" then
    WScript.Quit(1)
    end if

    usernum=inputbox("Quantos usuarios deseja criar?","Sample NT 5.0 Script",10)
    If usernum="" then
    WScript.Quit(1)
    end if

    username=inputbox("Nome do usuario?","Sample NT 5.0 Script")
    If username="" then
    WScript.Quit(1)
    end if

    'Set the starting LDAP path
    set ns=getobject("
    LDAP://"+dspath)

    for y= 1 to usernum
    'specify context for the creation of the user
    Set u = ns.Create("user", "CN="+username+cstr(y))

    'specify downstream (NT 4.0) compatible name
    u.Put "sAMAccountName",+username+cstr(y)

    'specify UPN
    u.PUT "userPrincipalName",+username+cstr(y)

    'set user account properties
    u.Put "userAccountControl",66048
    u.Put "userPassword","Password*"
    u.Put "userPrincipalName",+username+cstr(y)+"@cmcinfo.local"

    'write user account to DS
    u.SetInfo
    next
    'Next

    msgbox "As contas de usuario foram criados com sucesso!"


    quarta-feira, 6 de agosto de 2008 13:31

Respostas

  • Só faltou vc colocar a parte que pergunta o nome do usuário pra dentro do FOR. Também retirei a adição do número ao nome do usuário

    CRLF = Chr(13) & Chr(10)
    'This statement binds the Global catalog
    Set root = GetObject("GC://RootDSE")
    'Default Domain capture
    Set domname = GetObject( "GC://" & root.Get("rootDomainNamingContext"))
    'Ask user for input
    dspath=inputbox("Especifique o caminho do diretorio no AD."+CRLF+"For Exemplo: DC=e-learn,DC=com","Sample NT 5.0 Script", domname.distinguishedname)
    If dspath="" then
    	WScript.Quit(1)
    end if
    usernum=inputbox("Quantos usuarios deseja criar?","Sample NT 5.0 Script",10)
    
    If usernum="" then
    	WScript.Quit(1)
    end if
    
    
    
    'Set the starting LDAP path
    set ns=getobject("LDAP://"+dspath)
    for y= 1 to usernum
    
    	username=inputbox("Nome do usuario? (" & y & ")","Sample NT 5.0 Script")
    	If username="" then
    		WScript.Quit(1)
    	end if
    
    	'specify context for the creation of the user
    	Set u = ns.Create("user", "CN="+username)
    	'specify downstream (NT 4.0) compatible name
    	u.Put "sAMAccountName",+username
    	'specify UPN
    	u.PUT "userPrincipalName",+username
    	'set user account properties
    	u.Put "userAccountControl",66048
    	u.Put "userPassword","Password*"
    	u.Put "userPrincipalName",+username+"@cmcinfo.local"
    	'write user account to DS
    	u.SetInfo
    next
    'Next
    msgbox "As contas de usuario foram criados com sucesso!"
    

    --------------------------

    Mutirão de Respostas

    --------------------------


    Fábio de Paula Junior

    quarta-feira, 14 de novembro de 2012 12:49
    Moderador

Todas as Respostas

  • Bom dia

    Tiago não é má vontade nem nada disso

    mas acho que voce seria mais bem assistido se mandasse essa duvida para o pessoal de scripts, tem um forum somente sobre isso

    e creio que se tratando de script eles podem lhe ajudar melhor

    quarta-feira, 6 de agosto de 2008 13:57
  • Olá pessoal,

     

    Thread movida para a área correta.

     

    Abraço

    quinta-feira, 7 de agosto de 2008 17:13
  • Só faltou vc colocar a parte que pergunta o nome do usuário pra dentro do FOR. Também retirei a adição do número ao nome do usuário

    CRLF = Chr(13) & Chr(10)
    'This statement binds the Global catalog
    Set root = GetObject("GC://RootDSE")
    'Default Domain capture
    Set domname = GetObject( "GC://" & root.Get("rootDomainNamingContext"))
    'Ask user for input
    dspath=inputbox("Especifique o caminho do diretorio no AD."+CRLF+"For Exemplo: DC=e-learn,DC=com","Sample NT 5.0 Script", domname.distinguishedname)
    If dspath="" then
    	WScript.Quit(1)
    end if
    usernum=inputbox("Quantos usuarios deseja criar?","Sample NT 5.0 Script",10)
    
    If usernum="" then
    	WScript.Quit(1)
    end if
    
    
    
    'Set the starting LDAP path
    set ns=getobject("LDAP://"+dspath)
    for y= 1 to usernum
    
    	username=inputbox("Nome do usuario? (" & y & ")","Sample NT 5.0 Script")
    	If username="" then
    		WScript.Quit(1)
    	end if
    
    	'specify context for the creation of the user
    	Set u = ns.Create("user", "CN="+username)
    	'specify downstream (NT 4.0) compatible name
    	u.Put "sAMAccountName",+username
    	'specify UPN
    	u.PUT "userPrincipalName",+username
    	'set user account properties
    	u.Put "userAccountControl",66048
    	u.Put "userPassword","Password*"
    	u.Put "userPrincipalName",+username+"@cmcinfo.local"
    	'write user account to DS
    	u.SetInfo
    next
    'Next
    msgbox "As contas de usuario foram criados com sucesso!"
    

    --------------------------

    Mutirão de Respostas

    --------------------------


    Fábio de Paula Junior

    quarta-feira, 14 de novembro de 2012 12:49
    Moderador