Usuário com melhor resposta
Mapear Pasta Particular de Usuario

Pergunta
-
Bom dia pessoal
estou precisando de um help de vocês.....
Tenho aqui na empresa um servidor de arquivos para pasta particular de cada usuário e preciso que estas pastas sejam mapeadas via vbscript, estas pastas estão com compartilhamento oculto "$".
Dei uma olhada no forum e fiz alguns testes com os scripts que encontrei, mais eles só funcionam se o compartilhamento não estiver oculto.
segue esquema de como esta o server:
\\server\user$
Até pensei em colocar no login de cada usuário, direto no ad, o caminho de cada pasta na home folder mais teria que alterar manualmente e são 1320 usuarios sem contar uns 200 que trocam de 6 em 6 meses.
Poderiam me ajudar
Obrigado
Respostas
-
Agora com o $ rs
Valeu Felipe
' MNDUserName.vbs
' VBScript to map a network drive to the UserName.
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.3 - April 24th 2005
' -----------------------------------------------------------------'
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = "J:"
strRemotePath = "\\grand\home"
' Purpose of script to create a network object. (objNetwork)
' Then to apply the MapNetworkDrive method. Result J: drive
Set objNetwork = WScript.CreateObject("WScript.Network")
' Here is where we extract the UserName
strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
& "\" & strUserName & "$"
' Extra code just to add a message box
WScript.Echo " Launch Explorer, check: "& strDriveLetter
WScript.Quit
' End of MapNetworkDrive Example logon script.- Marcado como Resposta Fábio JrModerator quarta-feira, 5 de setembro de 2012 15:59
Todas as Respostas
-
Já experimentou selecionar todos os usuários que deseja alterar e conectar a homefolder a \\SERVIDOR\%USERNAME% ???
-
-
Na verdade, do jeito que eu uso seria assim: \\servidor\compartilhamento$\%username%, eu esqueci de citar o compartilhamento. Por exemplo tenho um compartilhamento no servidor Mssrv chamado Usuarios$. Na home folder do usuario eu mando conectar a letra ao caminho \\mssrv\usuarios$\%username% , assim ele cria automaticamente uma pasta com o nome do usuario dentro do compartilhamento, acredito que %username%$ nesse caso nao funcionaria, porque ele está criando uma pasta dentro de um compartilhamento, e o valor $ só valeria pra compartilhar a pasta...
-
Entendi
mais aqui na empresa eu uso assim: \\servidor\user$
o que acontece é que cada usuario tem uma pasta com seu nome compartilhada com o $
precisaria mapear asim mais ta dificil fazer via script isto viu...
não da para alterar e partir para o seu esquema pois são muitas pastas e ia ser meio demorado, gostaria de conseguir realizar esta ação com vbscript e com o cenario atual, vou continuar tentando e ver o que acontece...
se alguem mais puder ajudar....
obrigadoooooooooooooo
-
http://www.computerperformance.co.uk/Logon/Logon_HomeDirAdv.htm
' MNDUserName.vbs
' VBScript to map a network drive to the UserName.
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.3 - April 24th 2005
' -----------------------------------------------------------------'
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = "J:"
strRemotePath = "\\grand\home"
' Purpose of script to create a network object. (objNetwork)
' Then to apply the MapNetworkDrive method. Result J: drive
Set objNetwork = WScript.CreateObject("WScript.Network")
' Here is where we extract the UserName
strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
& "\" & strUserName
' Extra code just to add a message box
WScript.Echo " Launch Explorer, check: "& strDriveLetter
WScript.Quit
' End of MapNetworkDrive Example logon script. -
-
Vc pode usar uma versão menor do script do Romeu...
E Romeu... Faltou o $ no nome da pasta...
Code SnippetSet objNetwork = WScript.CreateObject("WScript.Network")
caminho = "\\server\" & objNetwork.UserName & "$"
objNetwork.MapNetworkDrive "J:", caminho
wscript.quit -
Agora com o $ rs
Valeu Felipe
' MNDUserName.vbs
' VBScript to map a network drive to the UserName.
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.3 - April 24th 2005
' -----------------------------------------------------------------'
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = "J:"
strRemotePath = "\\grand\home"
' Purpose of script to create a network object. (objNetwork)
' Then to apply the MapNetworkDrive method. Result J: drive
Set objNetwork = WScript.CreateObject("WScript.Network")
' Here is where we extract the UserName
strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
& "\" & strUserName & "$"
' Extra code just to add a message box
WScript.Echo " Launch Explorer, check: "& strDriveLetter
WScript.Quit
' End of MapNetworkDrive Example logon script.- Marcado como Resposta Fábio JrModerator quarta-feira, 5 de setembro de 2012 15:59