quarta-feira, 27 de novembro de 2013

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.vbsSet 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: mapeia.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 rodar este .bat que ira rodar a exclusão e mapeamento dos arquivos, este arquivo colocamos no AD de cada perfil do Domínio em Script Logon: mapeia.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\mapeia.vbs




Nenhum comentário:

Postar um comentário