VBS 1: group_mapdrive.vbs (Para mapear uma letra por Group)

Este “VBS 1” vai inaugurar uma série de Posts contendo código VBS adaptado ou escrito por mim e que assim disponibilizo o primeiro pedaço de código que quem precisa pode usar livremente…

‘ group_mapdrive.vbs – Mk2
‘ RM

‘ Este vbs mapeia uma dada letra (neste caso, G:) se o utilizador logado pertencer ao grupo “Grupo”.

Dim objNetwork, objSysInfo, strUserDN, objUser

Set objNetwork = CreateObject(“Wscript.Network”)
Set objSysInfo = CreateObject(“ADSystemInfo”)
strUserDN = objSysInfo.userName
Set objUser = GetObject(“LDAP://” & strUserDN)

If IsMember(“Grupo”) Then
 objNetwork.MapNetworkDrive “G:”, \\servidor\share
End If

Function IsMember(strGroup)
‘ Function to test one user for group membership.
‘ objUser is the user object with global scope.
‘ strGroup is the NT Name of the group to test.
‘ objGroupList is a dictionary object with global scope.
‘ Returns True if the user is a member of the group.
  Dim objGroup
  If IsEmpty(objGroupList) Then
    Set objGroupList = CreateObject(“Scripting.Dictionary”)
    objGroupList.CompareMode = vbTextCompare
    For Each objGroup In objUser.Groups
      objGroupList(objGroup.sAMAccountName) = True
    Next
  End If
  IsMember = objGroupList.Exists(strGroup)
End Function

Anúncios
Categories: CodeFarmPt, DefenseNewsPt | 1 Comentário

Navegação de artigos

One thought on “VBS 1: group_mapdrive.vbs (Para mapear uma letra por Group)

  1. Bem… Não faço ideia do que estás a falar… 🙂

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão /  Alterar )

Google photo

Está a comentar usando a sua conta Google Terminar Sessão /  Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão /  Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão /  Alterar )

Connecting to %s

Site no WordPress.com.

Eleitores de Portugal (Associação Cívica)

Associação dedicada à divulgação e promoção da participação eleitoral e política dos cidadãos

Vizinhos em Lisboa

A Vizinhos em Lisboa tem em vista a representação e defesa dos interesses dos moradores residentes nas áreas, freguesias, bairros do concelho de Lisboa nas áreas de planeamento, urbanismo, valorização do património edificado, mobilidade, equipamentos, bem-estar, educação, defesa do património, ambiente e qualidade de vida.

Vizinhos do Areeiro

Núcleo do Areeiro da associação Vizinhos em Lisboa: Movimento de Vizinhos de causas locais e cidadania activa

Vizinhos do Bairro de São Miguel

Movimento informal, inorgânico e não-partidário (nem autárquico independente) de Vizinhos

TRAVÃO ao Alojamento Local

O Alojamento Local, o Uniplaces e a Gentrificação de Lisboa e Porto estão a destruir as cidades

Não aos Serviços de Valor Acrescentado nas Facturas de Comunicações !

Movimento informal de cidadãos contra os abusos dos SVA em facturas de operadores de comunicações

Vizinhos de Alvalade

Movimento informal, inorgânico e não-partidário (nem autárquico independente) de Vizinhos de Alvalade

anExplica

aprender e aprendendo

Subscrição Pública

Plataforma independente de participação cívica

Rede Vida

Just another WordPress.com weblog

Vizinhos do Areeiro

Movimento informal, inorgânico e não-partidário (nem autárquico independente) de Vizinhos do Areeiro

MDP: Movimento pela Democratização dos Partidos Políticos

Movimento apartidário e transpartidário de reforma da democracia interna nos partidos políticos portugueses

Operadores Marítimo-Turísticos de Cascais

Actividade dos Operadores Marítimo Turísticos de Cascais

MaisLisboa

Núcleo MaisDemocracia.org na Área Metropolitana de Lisboa

THE UNIVERSAL LANGUAGE UNITES AND CREATES EQUALITY

A new world with universal laws to own and to govern all with a universal language, a common civilsation and e-democratic culture.

looking beyond borders

foreign policy and global economy

O Futuro é a Liberdade

Discussões sobre Software Livre e Sociedade

%d bloggers like this: