Prezado amigo,
Utilizo o seguinte script para mapeamento de pastas
dim UserObj
dim objNetwork
set objNetwork=CreateObject("WScript.Network")
set UserObj = GetObject("WinNT://" & objNetwork.UserDomain & "/" & objNetwork.UserName)
For Each Group In UserObj.groups
'Baseado no nome do Grupo em que o usuário é membro, alguns drivers serão mapeados, inclusive impressoras
'Comparei aqui Maiúsculas para não ter nenhuma confusão ou erro
Select Case UCASE(Group.Name)
Case "GG_VENDAS"
objNetwork.MapNetworkDrive "G:", "\\SRV\Laboratorio"
objNetwork.AddPrinterConnection "LPT1", file://servidordeimpressao/HPLaserjet1
Case "GRP-TI"
objNetwork.MapNetworkDrive "G:", "\\SRV\TI"
objNetwork.AddPrinterConnection "LPT1", file://servidordeimpressao/LexmarkLaserjet2
Case "GRP-DIRETORES"
objNetwork.MapNetworkDrive "G:", "\\SRV\Diretoria"
objNetwork.MapNetworkDrive "H:", "\\SRV\Contabilidade"
objNetwork.MapNetworkDrive "I:", "\\SRV\Financeiro"
objNetwork.AddPrinterConnection "LPT1", "\\SRV\HPLaserjet1"
objNetwork.AddPrinterConnection "LPT2", "\\SRV\HPLaserjetColor"
End Select
Next
'Mapeamente geral da empresa para todos os usuários
objNetwork.MapNetworkDrive "P:", "\\ServidorDFS\Pulico"
objNetwork.MapNetworkDrive "Z:", "\\ServidorDFS\AplicativosEmpresa"
Vale lembrar que o script pode ser salvo em .vbs e deve ficar na pasta SYSVOL
Espero ter ajudado.
Um grande abraço.
Alan Tadeo Camera
Supervisor de TI
Microsoft Certified Professional
