Script de mapeamento de unidades do perfil em um Domínio

1 Antes iremos criar um arquivo .bat chamando o arquivo .vbs Iremos também criar um arquivo de exclusão dos mapeamentos antigos.

Arquivo .vbs de exclusão dos mapeamentos antigos: exclui.vbs

Set oFs = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
For Each drv in oFs.Drives
   if drv.DriveLetter <> "A" and drv.DriveLetter <> "B" and drv.DriveLetter <> "C" and drv.DriveLetter <> "D" and drv.DriveLetter <> "E" then
      letra = cstr(drv.DriveLetter) & ":"
      objNetwork.RemoveNetworkDrive letra , true ,true
   end if
Next

2 Arquivo .vbs de criação dos mapeamentos dos diretórios: map.vbs

set net = createobject("wscript.network")
Set FSODrive= CreateObject("Scripting.FileSystemObject")
    Set NW = CreateObject("WScript.Network")
If not FSODrive.DriveExists("H:") Then
NW.MapNetworkDrive "DIRETÓRIO:", "\\CAMINHO DO DIRETÓRIO", True
wscript.quit

3 Agora iremos correr este .bat que ira efetuar a exclusão e mapeamento dos arquivos, este arquivo colocamos no AD de cada perfil do Domínio em Script Logon: map.bat

echo off
echo.
echo .....
echo.
echo O Windows esta  Mapeando as Unidades...
echo Aguarde por favor!
echo.
echo Esta tela fechar  automaticamente em poucos segundos.
echo.
echo wscript \\CAMINHO DOMINIO\NETLOGON\scripts\exclui.vbs
wscript \\CAMINHO DOMINIO\NETLOGON\scripts\map.vbs