Utilizando vbs com o active directory

Essa dica vai para quem administra servidores Active Directory da Microsoft. Existe uma grande facilidade em utilizar arquivos de lote do MS-DOS (com a extensão .bat), para realizar script’s de login, ou seja, quando o usuário faz o login em uma estação, às suas unidades de rede são mapeadas automaticamente, pois existe o script para isso.

Porém, script’s de login feitos como arquivos de lote não são tão eficientes, pois o seu desenvolvimento é limitado e muitas tarefas não podem ser realizadas 😦

Para contornar esse problema, existe script’s em VBS (Visual Basic Script) que fornecem um pouco mais de vantagem, em relação aos arquivos de lote. O problema dos scripts em VBS é que eles são um tanto quanto “complexos” para entender, pois a sua sintaxe é totalmente diferente dos arquivos de lote.

Como existe uma grande facilidade no uso de VBS, comecei a pesquisar em que o VBS poderia me ajudar, principalmente em script’s de login. Pois imagine, uma empresa que possui 5 departamentos, logo precisaria de 5 arquivos de lote para fazer os mapeamentos específicos, sendo que com a utilização do VBS poderia utilizar apenas um script.

Apesar dos script’s feitos em VBS serem “poderosos” ainda são inferiores em relação aos script’s feitos em shell para GNU/Linux e UNIX.

Abaixo, estão alguns exemplos do uso de VBS. Estão prontos para copiar e colar!!!

As variáveis abaix, são necessárias para executar todo o script, caso utilize apenas um trecho, crie apenas as variáveis necessárias.

Dim ADSysInfo, CurrentUser, strGroups, wshNetwork, WshShell, bKey, BtnCode, oExec

Cria uma variável do tipo data, na qual obtem as informações do momento atual.

Cria uma variável que retornará o mês atual, da variável anterior.

De acordo com o mês, é exibida uma mensagem na tela para o usuário informando o mês atual.

dNow = Now
mes = Right("00" &Month(dNow), 2)

If InStr(mes, "01") Then
msgbox "Você está no mês de Janeiro", 0 + 64, "JAN"
End If
If InStr(mes, "02") Then
msgbox "Você está no mês de Fevereiro", 0 + 64, "FEV"
End If
If InStr(mes, "03") Then
msgbox "Você está no mês de Março", 0 + 64, "MAR"
End If
If InStr(mes, "04") Then
msgbox "Você está no mês de Abril", 0 + 64, "ABR"
End If
If InStr(mes, "05") Then
msgbox "Você está no mês de Maio", 0 + 64, "MAI"
End If
If InStr(mes, "06") Then
msgbox "Você está no mês de Junho", 0 + 64, "JUN"
End If
If InStr(mes, "07") Then
msgbox "Você está no mês de Julho", 0 + 64, "JUL"
End If
If InStr(mes, "08") Then
msgbox "Você está no mês de Agosto", 0 + 64, "AGO"
End If
If InStr(mes, "09") Then
msgbox "Você está no mês de Setembro", 0 + 64, "SET"
End If
If InStr(mes, "10") Then
msgbox "Você está no mês de Outubro", 0 + 64, "OUT"
End If
If InStr(mes, "11") Then
msgbox "Você está no mês de Novembro", 0 + 64, "NOV"
End If
If InStr(mes, "12") Then
msgbox "Você está no mês de Dezembro", 0 + 64, "DEZ"
End If

Grava entrada no registro

WshShell.RegWrite "HKCUSoftwareACMEFortuneTeller", 1, "REG_BINARY"

Envia um msgbox para a tela

strTitulo = "Seção Técnica de Informática"
strMensagem = _
"AVISO IMPORTANTE" & vbcrlf & vbcrlf & _
"mensagem de teste, mensagem de teste, mensagem de teste" & vbcrlf & _
"mensagem de teste, mensagem de teste, mensagem de teste" & vbcrlf & _
"e está sujeito à punição prevista no regimento interno."
'BtnCode = WshShell.Popup(strMensagem, 5, "Informação:", 64 + 0)
msgbox strMensagem, 0 + 64, strTitulo

Agora, a seção o script mais interessante, consulta a base do AD e verifica que grupo o usuario pertence. De acordo com o grupo que o usuario peretence um drive de rede será mapeado

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
Set wshNetwork = CreateObject("WScript.Network")
strGroups = LCase(Join(CurrentUser.MemberOf,"**"))
If InStr(strGroups, "suporte") Then
WshNetwork.RemoveNetworkDrive "Y:"
wshNetwork.MapNetworkDrive "Y:", "IP_SERVIDORPASTA"
End If
If InStr(strGroups, "financeiro") Then
WshNetwork.RemoveNetworkDrive "Y:"
wshNetwork.MapNetworkDrive "Y:", "NOME_SERVIDORPASTA"
End If

WshNetwork.RemoveNetworkDrive “Y:” – Desconecta a unidade de rede
wshNetwork.MapNetworkDrive “Y:”, “192.168.8.232PASTA” – Conecta a unidade de rede

Executa um determinado programa


Set WshShell = WScript.CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("C:windowscalc.exe")

O exemplo abaixo, gera um arquivo de log, a medida que o script for executado, é difícil explicar, leia e tente entender…


dim loggit_logfilename, loggit_fso, loggit_silent
loggit_logfilename = "c:msg.log"
loggit_silent = true ' log file only or with MsgBox/Echo
set loggit_fso = CreateObject("Scripting.FileSystemObject")
set stream = loggit_fso.OpenTextFile(loggit_logfilename, 8, True)
WScript.Sleep 10
comando = "calc"
stream.writeline date & " " & time & ": ==========> INICIO <=========="
WScript.Sleep 1000
stream.writeline date & " " & time & ": " & comando
Set oExec = WshShell.Exec(comando)
WScript.Sleep 3000
stream.writeline date & " " & time & ": " & comando
Set oExec = WshShell.Exec(comando)
stream.writeline date & " " & time & ": ==========> FIM <=========="
stream.close

Aspas simples () utilizado no início da linha indica um comentário

No momento estou impossibilitado de permitir o download do arquivo pronto, assim que for possíves ele poderá ser baixado.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

Site no WordPress.com.

Acima ↑

%d blogueiros gostam disto: