Para muitos
administradores, a idéia de escrever um código já faz muitos pensarem "Isso não é o tipo de coisa que fazemos, isso é para os
desenvolvedores e programadores". O fato é que o script pode ser
tão difícil ou tão fácil como você optar por fazê-lo. Você pode escrever um
script longo e complicado para mapear unidades automaticamente, mas você precisa
fazê-lo? Não, pois o script pode ser tão simples como duas linhas:
Set oDrives =
CreateObject ("WScript.Network")
oDrives.MapNetworkDrive "Z:", \\SVR01\Home
oDrives.MapNetworkDrive "Z:", \\SVR01\Home
Nós vamos
entrar em mais detalhes um pouco mais a frente, o objetivo aqui é demonstrar
que script pode automatizar tarefas repetitivas. Quantas vezes você já mapeou
unidades no prompt de comando ou escrito em arquivos em lote (BAT)? Escrever um script poupará algum tempo.
Um pouco de história VBScript
Quando
VBScript surgiu, ele fazia parte do lançamento do Windows Microsoft Script
Technologies. VBScript e JScript (Java Script), foram ambos lançados para
facilitar a criação de scripts do lado do cliente em páginas da web. O
público-alvo inicial era, obviamente, os desenvolvedores web, e os
administradores de sistema não viram necessidade de envolver-se com ele. Além disso,
a maioria das informações em torno de aplicações de VBScript, em tecnologias
como a WMI (Windows Management Instrumentation) e ADSI (Active Directory Services
Interface) só estava disponível para desenvolvedores no SDK (Software
Development Kit) e outras informações específicas. Por fim, quando os
administradores conseguiram encontrar algumas informações sobre as
tecnologias, estvam escritos em pura linguagem de codificação que não era
perceptível a menos que você tivesse um desenvolvedor por perto.
Hoje, no
entanto, as informações sobre VBScript e tecnologias de script é amplamente
disponibilizado e os administradores estão percebendo a utilidade dos scripts
para tornar seu trabalho mais fácil.
Fundamentos do VBScript
VBScript
trabalha com objetos (especificamente objetos de automação) que são
simplesmente um conjunto menor de COM (Component Object Model). COM é o que
facilita a funcionalidade de itens como as dll e os exe. Vejamos o nosso
exemplo anterior:
Set oDrives =
CreateObject ("WScript.Network")
oDrives.MapNetworkDrive "Z:", \\SVR01\Home
oDrives.MapNetworkDrive "Z:", \\SVR01\Home
Neste
exemplo, estamos usando o método CreateObject para ligar o elemento (ou
objeto), WScript.Network, e dar-lhe o nome de "oDrives" para uso na
linha seguinte. Binding é o método usado para fazer uma conexão com um objeto
de automação (WScript.Network) e criar uma nova instância do objeto (oDrives).
Vamos agora chamar o método "MapNetworkDrive" em nosso objeto oDrives
seguido pelos argumentos direcionando o método para mapear o compartilhamento
Home que está em SVR01 à unidade Z: \.
Definições
A seguir
estão algumas definições utilizadas em VBScript:
Métodos - Funções
que um objeto pode executar. No exemplo anterior, foi utilizado o método
CreateObject para vincular o objeto WScript.Network.
Variáveis -
Locais na memória para armazenar dados. Observe o seguinte exemplo:
Comp = InputBox
("Digite o Nome do Computador", "Nome do Computador")
Neste
exemplo, estamos chamando uma InputBox (este solicita do usuário para entrar com
dados), dando-lhe uma descrição para o usuário que irá ler "Digite o nome
do computador" acima da InputBox, e atribuindo "Nome do
computador" para o título da janela de entrada quando ela aparece. Toda
esta informação é mantida na memória e armazenada como um valor para a variável
Comp. A menos que essa informação seja liberado da memória no final do script,
sempre que o variável Comp é chamada, o valor que foi digitado pelo usuário
será utilizado. As variáveis podem ter qualquer nome descritivo, desde que
não seja um nome reservado para uso como um componente de script, por exemplo WScript,
Const, Set, etc...
Constantes -
semelhantes às variáveis eles armazenam dados na memória, no entanto, a
constante deve ser definido dentro do script. Além disso, os valores não podem
ser alterados, uma vez que eles são definidos e irá manter os seus valores por
todo o script. Veja o seguinte exemplo de script:
Const FIRST_NAME = "Alan"
Const LAST_NAME = "Finn"
Wscript.Echo "Meu nome é", FIRST_NAME, LAST_NAME
Acima,
estamos declarando duas constantes; FIRST_NAME e LAST_NAME e atribuindo-lhes os
valores de Alan e Finn, respectivamente. A terceira linha utiliza o método de
eco do objeto WScript para imprimir a string "Meu nome é", então o
primeiro valor constante e, finalmente, o segundo valor constante em uma janela
pop-up. Copie e cole o script no bloco de notas e mude as constantes para
coincidir com o seu nome, em seguida, salve o arquivo como MeuScript.vbs e
clique duas vezes sobre ele para executar.
Operadores e
Controle de fluxo - Operadores são usados para comparar
expressões. Basicamente, é comparações matemáticas lógicas usadas em VBScript. Como exemplo, vamos dizer que x = 1 e y =
2. Um operador que comparar os dois e retornar uma resposta ou fazer outra
coisa com base nos resultados, tais como:
If x > y
then this statement is False
Else this statement is True
Else this statement is True
Obviamente 1
não é superior a 2, então o comando retorna com Verdadeiro (ainda que 2 é maior
do que 1 por causa da maneira como o operador lógico foi usada). Como todas as
coisas em VBScript, você pode fazê-lo ser tão complexa ou tão simples ,
dependendo das suas necessidades. Além do operador utilizado >
(maior que), a afirmação acima também usa um exemplo simples de controle de
fluxo. Desde a primeira linha é falsa, a instrução de "fluxo" na
segunda linha, que "controla" o comportamento das declarações. Agora,
vamos colocar isso junto em VBScript real:
1. x = True 'Atribuir
a variável x um valor verdadeiro
2. count = 0 ' atribuir a variável count um valor de 0
3.
4. Do 'loop externo
5. Do While cout < 10 'loop interno
6. count = count + 1 'incremento da contagem por um
7. Wscript.Echo count 'Exibição contagem atual na tela
8. If count = 10 Then 'se essa condição for verdadeira
9. x = False 'definir este valor para Falso
10. Exit Do 'sair do loop interno
11. End If 'fim da instrução If
12. Loop 'Primeira declaração de loop para o loop interior
13. Loop Until x = False 'sair do loop externo
2. count = 0 ' atribuir a variável count um valor de 0
3.
4. Do 'loop externo
5. Do While cout < 10 'loop interno
6. count = count + 1 'incremento da contagem por um
7. Wscript.Echo count 'Exibição contagem atual na tela
8. If count = 10 Then 'se essa condição for verdadeira
9. x = False 'definir este valor para Falso
10. Exit Do 'sair do loop interno
11. End If 'fim da instrução If
12. Loop 'Primeira declaração de loop para o loop interior
13. Loop Until x = False 'sair do loop externo
As linhas
foram numeradas, para facilidade de explicação. O sinal ’ (aspas
simples) é usado para especificar os comentários que são ignorados enquanto o
script é executado. Comentários foram adicionados à direita de cada linha para
explicar a funcionalidade. Ok, vamos analisar cada linha para poder entender o
que cada uma faz:
1. Atribuir a variável chamada
"x" um valor True (verdadeiro)
2. Atribuir a variável chamada
"count" o valor de 0.
3. Espaço inserido para separar as
instruções de declaração de variáveis da função de script. Simplesmente para
tornar o script mais fácil de ler e não é necessária.
4. Usou o laço "Do" para
iniciar um loop. Este tipo de loop (controle de fluxo) vai continuar até que
uma condição se torne verdadeira ou falsa dependendo do que for especificado.
5. Definir as restrições
condicionais da instrução loop. Faça o laço enquanto a variável count for
inferior a 10. Lembre-se, nós atribuímos
a variável COUNT um valor de 0.
6. Incrementando a variável count somando
mais um a cada passagem do loop. Considerando count = 0 na primeira passagem do
loop count será 0 +1 a variável count será então igual a 1, na segunda passagem
do loop count = 1 +1, na terceira passagem do loop count = 2 +1, e assim
sucessivamente.
7. Isso exibe o número de contagem
atual em uma janela pop-up na tela.
8. A instrução condicional. Se count
é igual a 10, fazer o que está na linha seguinte, caso contrário, vá para a
declaração LOOP e loop de volta para a declaração DO. Até que a variável de
contagem atenda a essa condição, a declaração vai continuar o loop.
9. Atribuir um novo valor à variável
X. Uma vez que a instrução condicional na linha 8 é cumprida, altere o valor de
X para FALSE.
10. Uma vez que a condição agora foi
cumprida, saímos do segundo, ou interior, loop.
11. Esta declaração é necessária para
mostrar o termino do circuito IF na linha 8. Isso é necessário para o script
saber onde e quando parar a declaração malha de controle de fluxo.
12. Esta é a declaração de fechamento
para o loop DO na linha 5. Também é necessário dizer que o script quando parar
o controle declaração ciclo de fluxo do loop Do interior.
13. Encerramento do Script. Uma vez
que a condição do loop DO for satisfeita. A variável count terá o valor de 10,
de modo que a variável X foi alterada para FALSE satisfaz os critérios dessa
condição, por conseguinte, o primeiro DO é fechado e o script é encerrado.
Arrays - A
função Array é usado para atribuir um conjunto de valores a uma variável. Quando
você precisa realizar tarefas administrativas várias vezes o Array oferece um
método para armazenar vários valores. O exemplo a seguir atribui três cores para
uma Array de variável com o nome Cores:
Cores = array
("vermelho", "verde", "azul")
Também é possível
criar uma Array de variável sem usar a instrução de função Array real
declarando a variável no início do seu script usando a declaração Dim. Declarar
uma variável simplesmente diz ao script que o nome que você está declarando
será usado como uma variável dentro do script. Por exemplo:
Dim Cores (2)
Esta
declaração informa ao script que estamos declarando uma variável cores nomeadas
como uma Array e que ele irá conter três valores. Sim, eu disse três valores. O
primeiro item em cada Array é realmente designado como item 0, o que deve ser
levado em consideração no cálculo do montante total de objetos na Array. Neste
caso, temos três cores para que a partir do zero contamos 0, 1, 2 ou
simplesmente subtrair um dos valores totais a serem utilizados. 3-1 = 2.
Continuando,
vamos agora atribuir valores a nossa Array de variável chamado Cores começando
com o item 0:
Dim Cores (2)
Cores (0) = "vermelho"
Cores (1) = "verde"
Cores (2) = "azul"
Cores (0) = "vermelho"
Cores (1) = "verde"
Cores (2) = "azul"
Nota - Se
você tentou atribuir uma quarta variável (Cores (3) = "branco"), sem aumentar as restrições do
array (Dim Cores (3)), o script retornaria um erro
dizendo: "Subscrito fora do intervalo".
Obviamente,
isso levaria um tempo para criar arrays maiores e o objetivo do script é
simplificar e automatizar suas tarefas de trabalho e agora vamos entender Arrays dinâmicas.
Arrays
dinâmicos são mais úteis que Arrays no fato de que eles não exigem que você
especifique o número de valores e o tamanho da Array pode mudar todo o script.
Este próximo script vai ler todos os computadores do domínio e escrever os
resultados para um arquivo de texto:
1. Dim Container2. Dim ContainerName3. Dim Computer4. Dim fso5. Dim outfile6.7. ContainerName = "INTRANET"8. Set fso =
CreateObject("Scripting.FileSystemObject")9. Set outfile =
fso.OpenTextFile("c:\DomainPC.txt", 2, True)10. Set Container =
GetObject("WinNT://" & ContainerName)11. Container.Filter =
Array("Computer")12. For Each Computer In Container13. outfile.writeline Computer.Name14. Next
Como fizemos
anteriormente, vamos dividi-lo linha por linha e rever o script:
1. Declare a variável Container.
2. Declare a variável ContainerName.
3. Declare a variável Computer.
4. Declare a variável fso.
5. Declare a variável outfile.
6. Espaço para a separação de
declarações a partir da função script.
7. Atribuir o valor “intranet” (que
é o nome do domínio que está sendo consultado) para a variável ContainerName.
8. Use o método CreateObject para
vincular o objeto Scripting.FileSystemObject como um valor para a variável fso.
Isso significa que a variável fso agora é um objeto para uso dentro do script.
9. Use a propriedade OpenTextFile do
novo objeto FSO para criar um arquivo de texto no diretório C: \ chamado
DomainPC.txt e vinculá-lo à variável outfile. Quanto aos parâmetros no final da
declaração, o 2 significa que o arquivo pode ser substituído, e o True designa
um arquivo Unicode (false criaria um arquivo ASCII).
10. Use o método GetObject para
procurar no domínio “intranet” os
computadores com contas neste domínio e atribuí-los como valores para a
variável Container. Observação – o
parâmetro WinNT:// é sensível a maiúsculas e é usado tanto em dominios NT quanto
em domínios AD. Em domínios AD, é preferível usar o LDAP:/ / designação com o
caminho LDAP que vamos entrar em mais detalhes em um outro artigo.
11. Aqui é onde nós declaramos a Array
dinâmica. Agora usamos o método do filtro na variável Container para colocar o
produto na Array dinâmica que estamos nomeando como Computer.
12. A partir de um loop For ... Next
para controle de fluxo. Nesta linha, estamos dizendo que o script que cada
valor na Array variável Computer será atribuído como um valor na variável Container.
Nós não podemos simplesmente usar Container para outros métodos, uma vez que já
está em uso como uma variável na Array dinâmica por isso devemos criar e usar uma
outra variável. O loop iria ler como para cada computador na Array Container,
fazer o que se segue no roteiro até que o Next é atingido e não há mais valores
na Array Computer.
13. Use a propriedade WriteLine no
objeto outfile e imprimir a propriedade Nome do objeto Computer em cada linha.
14. Vá para o próximo computador na Array
Container até que todos os valores da Array foram escritos, em seguida, parar o
loop.
Final
Se você é iniciante
no mundo do VBScript, este é provavelmente um assunto um pouco difícil de
entender. A intenção deste artigo é apresentar os principais conceitos de
VBScript. Algumas partes do script faz sentido porque são lógicas e outras
partes são estranhas e confusas. A sintaxe da linguagem se tornará mais fácil
com a prática, portanto, não desanime. Tire algum tempo para analisar os
scripts e suas explicações e entender o que está ocorrendo em cada linha do
script. Eu garanto que qualquer administrador que escreve VBScript (e eu estou
incluído) tem um livro ou dois que lista todas as sintaxes e possíveis
parâmetros disponíveis em sua mesa para consulta. Um bom local para referência
é
http://www.devguru.com/Technologies/vbscript/quickref/vbscript_list.html.
Além disso,
dê uma olhada em alguns dos links abaixo para obter uma compreensão mais profunda
sobre VBScript:
http://msdn.microsoft.com/library/default.asp?url=/library/enus/script56/html/vsgrpFeatures.asp?frame=true
http://www.winguides.com/article.php?id=2
http://www.winnetmag.com/Articles/Index.cfm?ArticleID=3026
http://www.winnetmag.com/Articles/Index.cfm?ArticleID=5410
Há muitos,
muitos mais recursos na Internet, bem como livros disponíveis para mais
informações. Os links acima são apenas alguns locais de informação.
VBScript não
é algo fácil de entender para quem está iniciando, mas o pouco de trabalho
necessário para se familiarizar com ele vai lhe trazer bons resultados para
administração de seu ambiente.
Até o
próximo artigo.
