none
Definir caminho do perfil e mapear unidades de rede RRS feed

  • Pergunta

  •  

    Boa Noite,

     

    Alguem tem algum exemplo de script que usa o comando Pofilepath ou algo parecido?

     

    No logon do usuario de uma determinada OU gostaria de definir o caminho do perfil (que fica na rede) e mapear uma unidade de rede.

     

    Grato

     

    Manoel

    quarta-feira, 17 de outubro de 2007 01:59

Respostas

  •  

    Você quer algo +ou- assim.

    OBS: faça um teste antes de executar em todos.

     

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

    ' Programa: user-scriptPath.vbs
    ' -----------------------------------------------------------------'
    'Option Explicit
    Dim objOU, objUser, objRootDSE, intCounter
    Dim strContainer, strLastUser, strDNSDomain
    Dim strCurrentscriptPath, strNewscriptPath, strCurrentLogin

    Set objRootDSE = GetObject("LDAP://RootDSE")
    strDNSDomain = objRootDSE.Get("DefaultNamingContext")

    strContainer = "OU=Usuarios,"
    strContainer = strContainer & strDNSDomain

    set objOU = GetObject("LDAP://" & strContainer )
    set fso   = CreateObject("Scripting.FileSystemObject")

    intCounter = 0

    For each objUser in objOU

     If objUser.class="user" Then

      'On Error Resume Next

      strCurrentLogin = objUser.Get("sAMAccountName")

      objUser.Put "ProfileptPath", "caminho do profile"
      objUser.Put "scriptPath", "script .bat ou .cmd"
      objUser.Put "homeDirectory", "\\SRVW2K3\usuarios$\" & strCurrentLogin
      objUser.Put "homeDrive", "U:"

      objUser.SetInfo

      intCounter = intCounter + 1

     End if

    Next

    WScript.Echo "( " & intCounter & " ) usuários alterados"
    WScript.Quit

     

    quarta-feira, 17 de outubro de 2007 11:42

Todas as Respostas

  • no caso de redirecionar o perfil, acho melhor modificar na propriedade do proprio usuário. dentro de ad users and groups...... no caso do profilepath vou ficar t devendo..........

     

    quarta-feira, 17 de outubro de 2007 02:53
  •  

    Você quer algo +ou- assim.

    OBS: faça um teste antes de executar em todos.

     

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

    ' Programa: user-scriptPath.vbs
    ' -----------------------------------------------------------------'
    'Option Explicit
    Dim objOU, objUser, objRootDSE, intCounter
    Dim strContainer, strLastUser, strDNSDomain
    Dim strCurrentscriptPath, strNewscriptPath, strCurrentLogin

    Set objRootDSE = GetObject("LDAP://RootDSE")
    strDNSDomain = objRootDSE.Get("DefaultNamingContext")

    strContainer = "OU=Usuarios,"
    strContainer = strContainer & strDNSDomain

    set objOU = GetObject("LDAP://" & strContainer )
    set fso   = CreateObject("Scripting.FileSystemObject")

    intCounter = 0

    For each objUser in objOU

     If objUser.class="user" Then

      'On Error Resume Next

      strCurrentLogin = objUser.Get("sAMAccountName")

      objUser.Put "ProfileptPath", "caminho do profile"
      objUser.Put "scriptPath", "script .bat ou .cmd"
      objUser.Put "homeDirectory", "\\SRVW2K3\usuarios$\" & strCurrentLogin
      objUser.Put "homeDrive", "U:"

      objUser.SetInfo

      intCounter = intCounter + 1

     End if

    Next

    WScript.Echo "( " & intCounter & " ) usuários alterados"
    WScript.Quit

     

    quarta-feira, 17 de outubro de 2007 11:42
  •  

    Bom Dia Eugenio,

     

    O script está dando erro na linha objUser.SetInfo, tem alguma ídéia?

    Outra opção que comecei a pesquisar é definir o profileptah no momento do logon, como fazemos com as unidades de rede mapeadas.

    Você sabe se é possível?

     

    Abs,

    quarta-feira, 17 de outubro de 2007 13:35
  • O erro é gerado pq o usuário não tem acesso a fazer alterações no AD. O que deve ser feito é na propriedade do usuário dentro do "Active Directory Users and Computers" trocar o atributo "Profile Path" dentro da aba "Profile" e apontar para o novo local, que de preferencia seja uma maquina na rede, transformando assim o perfil em movél.
    quarta-feira, 17 de outubro de 2007 16:25
  •  

    Boa Tarde Flavio,

     

    Você tem razão, o usuario nao vai ter privilégios para alterar um atributo no AD, do jeito que estou pensando não vai ter como mesmo.

    Eu já trabalho com perfis móveis, tenho um servidor de arquivos somente para os perfis e ai que esta o problema... preciso mudar o profilepath de 400 usuarios já existentes.

     

    Abs,

     

    Manoel

    quarta-feira, 17 de outubro de 2007 16:41
  • Manoel,

     

    1º O erro esta ocorrendo por causa de um erro no código: Troque "ProfileptPath" por: "ProfilePath"

    2º O script deve ser executado com uma conta que tenha permissão de alteração no AD (Admins e/ou Opers. de Contas)

    3º Item excluido!!

     

    ...

    ..

    .

     

     

     

     

     

     

    quarta-feira, 17 de outubro de 2007 17:44
  • Boa Noite Eugenio,

    Desculpe-me o "pt" passou desapercebido...o Script rodou e alterou os caminhos comoprecisava. Muito Obrigado!
    Com relação ao que estou fazendo é o seguinte:
    Aqui na faculdade os funcionarios possuem perfil movel, e os alunos perfil obrigatorio, isso em dominios distintos. O que acontece é que preciso alterar o caminho do perfil dos alunos desta vez para dar manutenção no servidor atual.

    Agradeçoa a ajuda de todos!

    Abs
    quarta-feira, 17 de outubro de 2007 22:17
  • Ok Manoel.

    Faça um favor, marque o topico como respondido.

     

    Obrigado.

     

    quinta-feira, 18 de outubro de 2007 10:25
  •  Eugenio Oliveira wrote:

    .

    .

    .

    Dim strCurrentscriptPath, strNewscriptPath, strCurrentLogin

    Set objRootDSE = GetObject("LDAP://RootDSE")
    strDNSDomain = objRootDSE.Get("DefaultNamingContext")

    strContainer = "OU=Usuarios,"
    strContainer = strContainer & strDNSDomain

    .

    .

    .

     

    Eu preciso especificar qual a OU que eles se encontram??? pq tenho uma grande nivel de OU.

    sexta-feira, 19 de outubro de 2007 02:29
  • Precisa sim.

    Você informou no 1º post que seria de uma determinada OU. Assim foi feito.

     

    No strContainer você coloca o caminho inverso da OU sem o dominio.

    Se sua estrutura fosse assim:

    ...............................

    - Usuarios

       - Departamentos

          - Administracao

          - Financeiro

          - ....

    - Users

    ...............................

     

    Coloque: 

    strContainer="OU=Administracao,OU=Departamentos,OU=Usuarios,"

     

    sexta-feira, 19 de outubro de 2007 10:35
  • na verdade nem fui eu quem abriu essas discursão.... mas tá blz.........

     

    agradeço sua gentil explicação......

     

    sexta-feira, 19 de outubro de 2007 12:05
  •  

    Opis... Nem conferi os nomes.

    Mas é isso. O script foi desenvolvido para rodar somente na OU.

     

     

    sexta-feira, 19 de outubro de 2007 12:18