Code Snippet
'*****************************************************************************************
' Script de mapeamentos GERAL
'*****************************************************************************************
'*****************************************************************************************
' DECLARAÇÃO DE VARIÁVEIS
'*****************************************************************************************
Option Explicit
Dim Grupo, objNetwork, objFS, objShell, objShell2, User, ADconn, strNome, OS
Dim Grupos, Pasta, DRPESSOAL, DRCOMUM, SERVER, SERVER_FILE
'*****************************************************************************************
' ABRE OS OBJETOS DE USO GERAL
'*****************************************************************************************
Set objNetwork = CreateObject("WScript.Network")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set ADconn = CreateObject("ADSystemInfo")
Set User = GetObject("LDAP://" &ADconn.UserName)
Set objShell = CreateObject("Shell.Application")
Set objShell2 = CreateObject("WScript.Shell")
OS = objShell2.ExpandEnvironmentStrings("%SYSTEMROOT%")
strNome = Lcase(objNetwork.UserName)
'*****************************************************************************************
' As variávies abaixo devem ser alteradas conforme os nomes em sua rede
'
' DRPESSOAL = Letra do drive em que será mapeada a pasta pessoal Ex. F:
' DRCOMUM = Letra do drive em que será mapeada a pasta do grupo Ex. G:
' SERVER = Nome do servidor onde está o AD. (com \\)
' SERVER_FILE = Nome do servidor de arquivos (com \\)
'*****************************************************************************************
DRPESSOAL = "F:"
DRCOMUM = "G:"
SERVER = "\\nome_do_server01"
SERVER_FILE = "\\nome_do_server02"
'*****************************************************************************************
IF DRPESSOAL<>"" AND DRCOMUM<>"" AND SERVER<>"" AND SERVER_FILE<>"" THEN
'*****************************************************************************************
' VERIFICA A EXISTÊNCIA DO MAPEAMENTO PESSOAL, SE NÃO, CRIA O MESMO
'*****************************************************************************************
if objFS.DriveExists(DRPESSOAL) = true and DRPESSOAL<>"" then
objNetwork.RemoveNetworkDrive DRPESSOAL, true, true
end if
if objFS.FolderExists(SERVER & "\USERS\"& strNome) and DRPESSOAL<>"" then
objNetwork.MapNetworkDrive DRPESSOAL, SERVER & "\USERS\"& strNome
if instr(OS, "WINDOWS")<>0 then
objShell.NameSpace(DRPESSOAL).Self.Name = strNome & " - PESSOAL"
end if
end if
'*****************************************************************************************
'*****************************************************************************************
' VERIFICA O USUÁRIO LOGADO E MAPEIA OS COMPARTILHAMENTOS DO GRUPO
'*****************************************************************************************
Function CheckGroups()
if isArray(User.MemberOf) then
CheckGroups = LCase(Join(User.MemberOf))
on error resume next
else
CheckGroups = LCase(Trim(User.MemberOf))
on error resume next
end if
end function
Grupo = CheckGroups()
'*****************************************************************************************
'*****************************************************************************************
' MAPEAMENTO DO COMPARTILHAMENTO DO GRUPO
'*****************************************************************************************
' As variávies abaixo devem ser alteradas conforme os nomes em sua rede
'
' Grupos = Nome do grupo que pode acessar a pasta que será compartilhada
' Pasta = Nome do compartilhamento (somente o nome!)
'*****************************************************************************************
Grupos = "meu_grupo"
Pasta = "teste"
if instr(Grupo, Grupos)<>0 and Grupos<>"" and Pasta<>"" and DRCOMUM<>"" then
if objFS.DriveExists(DRCOMUM) = true then
objNetwork.RemoveNetworkDrive DRCOMUM, true, true
end if
objNetwork.MapNetworkDrive DRCOMUM, SERVER_FILE & "\" & Pasta
if instr(OS, "WINDOWS")<>0 then
objShell.NameSpace(DRCOMUM).Self.Name = Grupos & " - COMUM"
end if
end if
'*****************************************************************************************
' Repita o pedaço acima para cada grupo que deseja mapear
'*****************************************************************************************
END IF
'*****************************************************************************************
' Finaliza o Script e libera a instância do objeto
'*****************************************************************************************
Set objNetwork = Nothing
Set objFS = Nothing
Set ADconn = Nothing
Set User = Nothing
Set objShell = Nothing
Set objShell2 = Nothing
OS = ""
strNome = ""
Grupo = ""
Grupos = ""
Pasta = ""
Wscript.Quit
