none
Script para alteraçao de conf. em usuario do AD - Acesso Remoto RRS feed

  • Pergunta


  • Boa Tarde,


    Preciso alterar uma configuraçao de usuario. Configuraçao de dial-in para permissão de acesso remoto.

    No AD Users and Computers, nas propriedades de uma conta de usuário vá até a aba Dial-in. O padrão é DENY ! Preciso encontrar uma forma de alterar para ALLOW e permitir o acesso remoto para todos usuarios do dominio, em vez de fazê-lo um por um. Que eu saiba não tem jeito de fazer isso atraves de uma GPO, apenas por scripts. Alguem conhece algum jeito pra isso??


    Desde ja grato.

    Christian Centeno - MCP / MCDST
    sexta-feira, 4 de setembro de 2009 17:53

Respostas

  • Olá,

    Você pode fazer nas configurações do RRAS (Se você estiver usando RRAS)

    Por script seria conforme abaixo:

    Basta executar e digitar a OU que você quer alterar... assim, todos os usuários desta OU irão ser permitidos.





    Option Explicit

    Dim objDSE, strDefaultDN, strDN, objContainer, objChild,objUser

    Set objDSE = GetObject("LDAP://rootDSE")
    strDefaultDN = "CN=Users," & objDSE.Get("defaultNamingContext")

    strDN =     InputBox("Coloque o distinguished name do container" & _
        vbCrLf & "(Exemplo: " & strDefaultDN & ")", , strDefaultDN)

    If strDN = "" Then WScript.Quit(1)       

    Set objContainer = GetObject("LDAP://" & strDN)

    objContainer.Filter = Array("user")

    For Each objChild In objContainer
        set objUser = GetObject("LDAP://" & objChild.Name & "," & strDN)
        objUser.msNPAllowDialin = True
        objUser.SetInfo
    Next



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    sexta-feira, 4 de setembro de 2009 18:38