VBscript - Parte III

Nota: A proposta deste mini-curso não é o de torná-lo desenvolvedor, por este motivo para que você possa saber quais comandos usar sugiro a você os sites da technet, do msdn  e até mesmo o próprio Google, ou algum livro cujo o foco seja VBScript, por exemplo: VBScript, WMI, and ADSI Using VBScript, WMI, and ADSI to Automate Windows® Administration.

Como profissional de redes, você necessitará muitas vezes otimizar tarefas, e o VBscript será muito útil nesta incumbência. O objetivo da postagem de hoje será ensinar o caminho das pedras para que possa criar seu próprio script. Para começarmos mostrarei a você um exemplo prático que poderá ser usado na sua própria empresa, então vamos deixar de conversa mole e, mãos à obra!!!

O primeiro é passo escrever, enumere num “pré-script” o que você deseja, escreva tudo o que você quer fazer com o máximo de detalhamento possível, seguindo uma seqüência lógica.

Vamos fazer um script que servirá para mapear uma pasta de rede e uma impressora:

Primeiro passo é escrever o que queremos, no nosso exemplo será dividido da seguinte forma:

1. Mensagem de boas vindas;
2. Mapear a pasta “Teste para a unidade X: ;
3. Mapear uma impressora e fazê-la default;
4. Mensagem de conclusão.

Agora pessoal é usar os recursos sugeridos acima para a criação do script. Segue abaixo script criado por mim e que funciona:

'MENSAGEM INICIAL
Msgbox "Clique em OK para mapear a pasta TESTE na Unidade X: e seja instalada_ a impressora de rede."
'EVITAR QUE OS ERROS PAREM A EXECUÇÃO DO SCRIPT.
on error resume next
'O WshNetwork É USADO PARA COMPARTILHAMENTO DE REDE.
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
'PARA EVITAR ERRO DE PASTA JÁ MAPEADA.
WshNetwork.RemoveNetworkDrive "X:",True,True
'LINHA USADA PARA ASSOCIAR A UNIDADE X: À PASTA COMPARTILHADA (TESTE).
WshNetwork.MapNetworkDrive "X:", "\\casa\teste"
'LINHA USADA PARA MAPEAR IMPRESSORA E EM SEGUIDA COLOCA-LA COMO 'PADRÃO.
WshNetwork.AddWindowsPrinterConnection "\\casa\HPtest"
WshNetwork.SetDefaultPrinter "\\casa\HPtest"
'MENSAGEM FINAL.
Msgbox "Tarefa executada com exito!"

Posted in: Script