none
Criar conta de computador RRS feed

  • Pergunta

  • Boa Tarde Galera!

    Preciso criar algumas contas de computadores com base a uma planilha do Excel, fiz uma pesquisa e encontrei um script no Script Center porem esta ocorrendo um erro na linha 15 carácter 1, não estou conseguindo resolver, alguém pode me auxiliar. esta em destaque a linha apresentando o problema.

    Option Explicit 
    Dim strComputer, strOU, strSheet, intRow 
    Dim objRootLDAP, objContainer, objComputer, objShell 
    Dim objExcel, objSpread  
     
    ' -------------------------------------------------------------' 
    ' Important change OU= and strSheet to reflect your domain 
    ' -------------------------------------------------------------' 
     
    strOU = "ou=Computadores,ou=Filial,dc=dominio,dc=local" ' Note the comma 
    strSheet = "C:\Computadores.xlsx"  
     
    ' Bind to Active Directory, Computers container. 
    Set objRootLDAP = GetObject("LDAP://rootDSE") 
    Set objContainer = GetObject("LDAP://" & strOU & _
    objRootLDAP.Get("defaultNamingContext"))  
     
    ' Open the Excel spreadsheet 
    Set objExcel = CreateObject("Excel.Application") 
    Set objSpread = objExcel.Workbooks.Open(strSheet) 
    intRow = 2 'Row 1 often containes headings 
     
    ' Here is the loop that cycles through the cells 
    Do Until objExcel.Cells(intRow,1).Value = "" 
       strComputer = objExcel.Cells(intRow, 1).Value 
     
       ' Build the actual computer. 
       Set objComputer = objContainer.Create("Computer", _ 
       "cn=" &   strComputer) 
       objComputer.Put "sAMAccountName", strComputer & "$" 
       objComputer.Put "userAccountControl", 4096 
       objComputer.SetInfo  
       intRow = intRow + 1 
    Loop 
    objExcel.Quit  
     
    WScript.Quit  

    quinta-feira, 10 de julho de 2014 16:48

Respostas

  • Tiago,

    Fiz esse script agora, em Powershell, que pode facilitar para você:

    $computadores = Get-Content c:\listaComputadores.txt
    
    foreach ($computador in $computadores)
    {
        New-ADComputer -Name $computador -SAMAccountName $computador -Location "ou=Computadores,ou=Filial,dc=dominio,dc=local"
    }
    Pode adicionar mais parâmetros se necessário.
    Obs: Caso não encontre o comando, utilize o 'Import-Module ActiveDirectory' antes de executá-lo.


    Att, Paulo Rocha MCP | MCDST | MCSA Server 2012

    • Marcado como Resposta Tiago Zambelli quinta-feira, 10 de julho de 2014 17:40
    quinta-feira, 10 de julho de 2014 17:07