none
Script para adicionar ou remover Acesso VPN RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Pessoal uso o script abaixo para remover ou adicionar acesso vpn a usuarios da rede.

     

    Const ADS_PROPERTY_UPDATE = 2
     
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile ("lista.txt", 1)
    Do Until objFile.AtEndOfStream
      strLine = objFile.ReadLine
      Wscript.Echo strLine
      Set objUser = GetObject("LDAP://CN="&strLine&",OU=teste,DC=empresa,DC=com,DC=br")
     
      objUser.alPut "msNPAllowDialin", False
      objUser.SetInfo
    Loop
    objFile.Close

     

    Quando os usuarios estão na OU teste tudo funciona normal. O problema é quando tenho que modificar Usuarios na pasta Users do AD.

    Pensei que ficaria assim:

    Set objUser = GetObject("LDAP://CN="&strLine&",OU=Users,DC=empresa,DC=com,DC=br")

    sei que a pasta Users do AD é referenciada como CN. Como passo o passar este parametro?

     

    Grato,
     

     

     

    terça-feira, 10 de abril de 2007 20:38
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Seguem meus links que podem ajudar vc:

    http://www.microsoft.com/technet/scriptcenter/guide/sas_usr_ykxh.mspx

    http://www.microsoft.com/technet/scriptcenter/guide/sas_usr_overview.mspx

    https://www.microsoft.com/technet/prodtechnol/windows2000serv/technologies/activedirectory/deploy/confeat/w2kadsi.mspx

    Já que vc tem os nomes dos usuários, tente fazer uma busca direta ou usar o moniker WinNT pra mexer nele. É bem mais fácil.

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Visual Developer - Scripting
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Blog sobre Scripting: http://viniciuscanto.blogspot.com

    quinta-feira, 12 de abril de 2007 00:37
    |
    Moderador

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Marilton, acho que o erro está na hora de você buscar a listagem dos usuários nesta linha:

    Set objFile = objFSO.OpenTextFile ("lista.txt", 1), aqui não está especificando o caminho UNC para o arquivo ser aberto e lido.

    Tenta de repente já é um norte.

     

     

    Abraços

    quarta-feira, 11 de abril de 2007 12:03
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Já testei e a lista está sendo lida normalmente. ela fica no mesmo diretorio do script.

    O prob.; é na hora de passar o paramentro para fazer a alteração. Uma vez que com a pasta users não funciona. só com Ous.

    quarta-feira, 11 de abril de 2007 20:40
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Seguem meus links que podem ajudar vc:

    http://www.microsoft.com/technet/scriptcenter/guide/sas_usr_ykxh.mspx

    http://www.microsoft.com/technet/scriptcenter/guide/sas_usr_overview.mspx

    https://www.microsoft.com/technet/prodtechnol/windows2000serv/technologies/activedirectory/deploy/confeat/w2kadsi.mspx

    Já que vc tem os nomes dos usuários, tente fazer uma busca direta ou usar o moniker WinNT pra mexer nele. É bem mais fácil.

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Visual Developer - Scripting
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Blog sobre Scripting: http://viniciuscanto.blogspot.com

    quinta-feira, 12 de abril de 2007 00:37
    |
    Moderador