none
Script de atualização de usuários AD. RRS feed

  • Pergunta

  • Olá Pessoal!

    Tenho um Script para criar usuário no AD e está funcionando perfeitamente, e agora estou com uma demanda de atualização.

    Pois bem, queria ver a possibilidade de alguém poder me explicar como faço a adaptação deste script que tenho ou terei que fazer um outro do zero, e qual comando é para atualizar dentro das srt?

    Obs. Preciso principalmente atualizar o Endereço, E-mail e nome de Logon.

    Segue modelo que estou utilizando:

    Option Explicit
    Dim objRootLDAP, objContainer, objUser, objShell
    Dim objExcel, objSpread, intRow
    Dim strUser,  strSheet
    Dim  strSam, strCN, strFirst, strLast, strPWD, strmail, strDesc, strtelephoneNumber, strprincipalname, strcompany, strMensagem, strTitulo, streetAddress

    'strOU = "OU=Users,"strOU,
    strSheet = "C:\importacao\Alunos\relacao_alunos-15-06-2016.xlsx"

    ' Bind to Active Directory, Users container.
    Set objRootLDAP = GetObject("LDAP://rootDSE")
    Set objContainer = GetObject("LDAP://OU=Alunos,OU=Educacional,DC=SRVFICTICIO,DC=local")

    ' Open the Excel spreadsheet
    Set objExcel = CreateObject("EXCEL.APPLICATION")
    Set objSpread = objExcel.Workbooks.Open("C:\importacao\Alunos\relacao_alunos-15-06-2016.xlsx")
    intRow = 3 'Row 1 often contains headings

    ' Here is the 'DO…Loop' that cycles through the cells
    ' Note intRow, x must correspond to the column in strSheet
    Do Until objExcel.Cells(intRow,1).Value = ""
    strSam = Trim(objExcel.Cells(intRow, 1).Value)
    strCN = Trim(objExcel.Cells(intRow, 2).Value)
    strFirst = Trim(objExcel.Cells(intRow, 3).Value)
    strLast = Trim(objExcel.Cells(intRow, 4).Value)
    strPWD = Trim(objExcel.Cells(intRow, 5).Value)
    strmail = Trim(objExcel.Cells(intRow, 6).Value)
    strDesc = Trim(objExcel.Cells(intRow, 7).value)
    strtelephoneNumber = Trim(objExcel.Cells(intRow, 8).value)
    strprincipalname = strSam & "@maris.org.br"
    strcompany = "Colegio Maris"


    ' Build the actual User from data in strSheet.
    Set objUser = objContainer.Create("User", "cn=" & strCN)
    objUser.sAMAccountName = strSam
    objuser.displayName = strCN
    objUser.givenName = strFirst
    objUser.sn = strLast
    objUser.mail = strmail
    objUser.description = strDesc
    objUser.telephoneNumber = strtelephoneNumber
    objUser.userPrincipalName = strprincipalname
    objUser.company = strcompany
    objUser.SetInfo

    ' Separate section to enable account with its password
    objUser.userAccountControl = 512
    objUser.pwdLastSet = 0
    objUser.SetPassword strPWD
    objUser.SetInfo

    intRow = intRow + 1
    Loop
    objExcel.Quit

    strTitulo = "COMANDO CONCLUIDO!!"
    strMensagem = "USUARIO(S) CRIADO(S) COM SUCESSO!" & vbcrlf & vbcrlf &  " OK " & vbcrlf & _
    "" & vbcrlf & _
    ""
    'BtnCode = WshShell.Popup(strMensagem, 5, "Informação:", 64 + 0)
    msgbox strMensagem, 0 + 64, strTitulo

    WScript.Quit


    Grato pela atenção.


    terça-feira, 21 de junho de 2016 14:12