SUPORTE & SCRIPTS 2

FALHA AO ACESSAR ESTAÇÃO VIA REMOTE DESKTOP (MSTSC)

2009-08-17T08:27:00.000-07:00

SINTOMA: O Sistema retorna mensagem de erro informando que a conexão foi recusada pelo cliente ao tentar acessar um desktop utilizando o Remote Desktop (MSTSC).

SOLUÇÃO: Excluir o valor “Certificate” e reiniciar o serviço “Serviços de terminal” (Termservice)

Fim

Link recomendado: http://www.lipsum.com ( Webdesign )

2009-05-16T12:52:00.001-07:00

Olá Pessoal,

Este site pode ser categorizado como um utilitário para as pessoas que precisam de palavras, parágrafos e até textos complexos para preencher seus protótipos e layouts. Realmente ficar inventando uma séries "blá blá blás" para preencher seu layout pode tomar um certo tempo e acabar não ficando com a aparência desejada.

(Texto retirado do próprio site )

O que é o Lorem Ipsum?

O Lorem Ipsum é texto aleatório da indústria tipográfica e de impressão. O Lorem Ipsum tem vindo a ser o texto standard usado por estas indústrias desde o ano de 1500, quando uma misturou os caracteres de um texto para criar um espécime de livro. Este texto não só sobreviveu 5 séculos, mas também o salto para a tipografia eletrônica, mantendo-se essencialmente inalterada. Foi popularizada nos anos 60 com a disponibilização das folhas de Letraset, que continham passagens com Lorem Ipsum, e mais recentemente com os programas de publicação como o Aldus PageMaker que incluem versões do Lorem Ipsum.

De onde é que ele vem?

Ao contrário da crença popular, o Lorem Ipsum não é simplesmente texto aleatório. Tem raízes numa peça de literatura clássica em Latim, de 45 AC, tornando-o com mais de 2000 anos. Richard McClintock, um professor de Latim no Colégio Hampden-Sydney, na Virgínia, procurou uma das palavras em Latim mais obscuras (consectetur) numa passagem Lorem Ipsum, e atravessando as cidades do mundo na literatura clássica, descobriu a sua origem. Lorem Ipsum vem das secções 1.10.32 e 1.10.33 do "de Finibus Bonorum et Malorum" (Os Extremos do Bem e do Mal), por Cícero, escrito a 45AC. Este livro é um tratado na teoria da ética, muito popular durante a Renascença. A primeira linha de Lorem Ipsum, "Lorem ipsum dolor sit amet..." aparece de uma linha na secção 1.10.32.

O pedaço mais habitual do Lorem Ipsum usado desde os anos 1500 é reproduzido abaixo para os interessados. As secções 1.10.32 e 1.10.33 do "de Finibus Bonorum et Malorum" do Cícero também estão reproduzidos na sua forma original, acompanhados pela sua tradução em Inglês, versões da tradução de 1914 por H. Rackham.

Porque é que usamos?

É um fato estabelecido de que um leitor é distraído pelo conteúdo legível de uma página quando analisa a sua mancha gráfica. Logo, o uso de Lorem Ipsum leva a uma distribuição mais ou menos normal de letras, ao contrário do uso de "Conteúdo aqui, conteúdo aqui", tornando-o texto legível. Muitas ferramentas de publicação eletrônica e editores de páginas web usam atualmente o Lorem Ipsum como o modelo de texto usado por omissão, e uma pesquisa por "lorem ipsum" irá encontrar muitos websites ainda na sua infância. Várias versões têm evoluído ao longo dos anos, por vezes por acidente, por vezes propositadamente (como no caso do humor).

Onde posso arranjar algum?

Existem muitas variações das passagens do Lorem Ipsum disponíveis, mas a maior parte sofreu alterações de alguma forma, pela injeção de humor, ou de palavras aleatórias que nem sequer parecem suficientemente credíveis. Se vai usar uma passagem do Lorem Ipsum, deve ter a certeza que não contém nada de embaraçoso escondido no meio do texto. Todos os geradores de Lorem Ipsum na Internet acabam por repetir porções de texto pré-definido, como necessário, fazendo com que este seja o primeiro verdadeiro gerador na Internet. Usa um dicionário de 200 palavras em Latim, combinado com uma dúzia de modelos de frases, para gerar Lorem Ipsum que pareçam razoáveis. Desta forma, o Lorem Ipsum gerado é sempre livre de repetição, ou de injeção humorística, etc.

(fim do texto retirado do Site)

O Lorem Ipsum é tão interessante que você tem várias formas de geração de texto de acordo com suas necessidades podendo optar por números de palavras, número de parágrafos, bytes e listas.

A passagem do Lorem Ipsum usada desde 1500

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."

Link: http://www.lipsum.com/

Ass. Marcelo Montezuma

Link recomendado - http://www.screenalicious.com (Webdesign)

2009-05-16T00:14:00.001-07:00

Olá Pessoal,

Primeiramente gostaria de me desculpar, pois o link publicado no final deste blog (http://scriptolandia.blogspot.com/), na parte reservada para Designers, estava apontando para a página "delicius.com" e não para "www.screenalicious.com" que seria o correto.

Resolvi então fazer um breve comentário sobre a página correta para tentar reparar o meu engano.

O Link correto é: http://www.screenalicious.com/.

Esta página além de contribuir para novas idéias com seu acervo de mais de 10.000 layouts, ela possui dentre seus vários recursos, como por exemplo, deixar comentários para os layouts exibidos, um recurso especial que nos permite visualizar o esquema de cores (com o respectivo código da cor) utilizado na construção do layout.

Veja como é simples: Após selecionar um dos 10.300 modelos disponíveis até a data de hoje, posicione o mouse sobre a cor desejada e logo em seguida o respectivo código será exibido.

Ass. Marcelo Montezuma.

Internet Explorer fecha repentinamente sem exibir nenhuma mensagem

2009-02-12T21:31:00.001-08:00

Você já ouviu falar no GBPlugin (G-Buster Browser Defense)? Pois é, pode ser esse o causador do fechamento repentino do seu browser ao executar uma simples tarefa como por exemplo, clicar em um caixa de seleção.

Recentemente tivemos vários casos do Internet Explorer fechando repentinamente ao acessar mais de uma aplicação em nossa intranet, após algum tempo de análise identificamos que o responsável era o "GBPlugin". Trata-se de um aplicativo instalado em seu micro durante o acesso a página do seu banco ( Banco do Brasil, Caixa...), ele copia arquivos, instala complementos, instala serviço entre outras coisas mais que só a GAS Tecnologia poderia informar, mas não informa.

O Problema é que existe pouquíssima informação na rede sobre como remover o "cara", pois trata-se de um software de "proteção" para transações bancárias. Vou descrever a seguir os passos que executamos no caminho da solução do problema.

Após identificar o causador, a primeira coisa que fizemos foi buscar rapidamente uma solução de contorno para reduzir o impacto no ambiente(agradecimentos especiais ao Altair por esta solução ) que foi desabilitar o plugin fazendo com que o Internet Explorer parasse de fechar.

Solução de contorno =>desabilitar o plugin:

Internet Explorer 7 => Abra o menu Ferramentas > Gerenciar complementos > Habilitar ou desabilitar componentes...

Ou se preferir clique no ícone do IE 7 com o botão direito do mouse e selecione a opção "Iniciar sem complementos"

Solução definitiva =>Atualizar a versão do componente:

No caminho para solução definitiva do problema, foi necessário mais paciência do que tecnologia. O primeiro impedimento e pré-requisito para solução foi: "Ser correntista do Banco do Brasil", e o mais engraçado é que pra instalar esse plugin não precisamos de conta.

Segue a história/procedimento

De posse de um número de agência, conta corrente e o nome do respectivo correntista , liguei para o 0800-7290200 (Suporte do Banco do Brasil.), a pedido do atendente verifiquei a instalação do java e reiniciei o equipamento. Recebi um protocolo para dar andamento posteriormente caso o procedimento não resolvesse.

Liguei novamente para o suporte e foi aberto um chamado para o segundo nível de atendimento, que pra minha surpresa faria contato comigo quando possível (sem prazo, sem hora ou data marcada).

Recebi a ligação do suporte e após várias verificações no meu micro, recebi um link para download de uma versão atualizada(eu suponho) do GBPlugin e, nada!. Após vários procedimentos fui informado pela atendente que seria aberto um chamado para equipe de terceiro nível de atendimento que mais uma vez faria contato quando possível(sem prazo, sem hora ou data marcada).

Finalmente recebi um e-mail com uma versão do plugin que estava em fase final de homologação e que só poderia ser instalado se estivéssemos de acordo, pois o mesmo ainda levaria algum tempo para entrar em produção.

Bem, após esse processo que levou algo em torno de cinco dias, conseguimos que o plugin fosse executado simultâneamente e em harmonia com nossos aplicativos.

Comentário:

Pesquisei um pouco sobre o GBPlugin e imagino que ele deva ser muito bom para evitar fraudes, pois o efeito colateral pode ser muito amargo.

Fiz um snapshot no sistema antes da instalação do plugin utilizando o Regshot e fiquei espantado com o número de chaves que cria e altera no registro da máquina. Achei errado o fato dele informar sobre a instalação de um componente e não informar sobre a instalação de um serviço que roda junto com a inicialização do sistema e não pode ser parado tão facilmente.

Utilizando o Process Monitor você pode verificar a velocidade com que o processo ou até mesmo partes do programa são recriados no sistema, descobri que ele utiliza "regitry polling", um tipo de monitoramento em tempo quase real de que permite que determinada funcionalidade seja recriada quase que imediatamente ao ser apagada.

Um outro fato que me deixou aborrecido é que, nem os membros do grupo Administradores da estação podem fazer alguma coisa.

O Procedimento acima fez com que o plugin continuasse ativo no micro, mas se a sua intenção é eliminar de vez o "cara" então pode apelar para um recurso mais simples porém não tão limpo:

Pegue um CDROM o USBDrive como sistema operacional instalado, inicialize a máquina por um desses dispositivos e simplesmente delete a pasta C:\Arquivos de Programas\GBPlugin. Feito isto, basta iniciar o sistema normalmente e conferir se o "cara" ainda estará por lá.

Ass.Marcelo Montezuma ☺

Como editar o registro do Windows com o disco em slave, isso mesmo! com o HD configurado como slave em outro sistema.

2008-11-17T15:25:00.000-08:00

Importante!
Como ando muito atarefado ultimamente, vou postar de forma diferente meus próximos artigos. Vou postar os artigos "em construção", desta forma o que tenho no rascunho será exibido e poderá ser alterado até a publicação final, portanto não posso garantir que esses procedimentos vão funcionar corretamente.

Início do artigo.
Passei por um problema recentemente no qual a máquina ficava em looping efetuando logoff após cada tentativa de logon não permitindo que nenhum tipo de usuário tenha acesso a área de trabalho.

Identifiquei que o problema poderia ser devido a perda da referência ao arquivo userinit.exe^(*) no registro do Windows e talvez fosse necessário criar novamente esta referência. Tentei editar o registro remotamente e para minha surpresa recebi a mensagem de "Acesso negado" ao acessar a HKEY_LOCAL_MACHINE (remota), diante disto tive que efetuar uma pesquisa para encontrar uma forma alternativa de acessar aquele registro, pois não queria formatar essa máquina.

Segue agora o procedimento que efetuei para contornar essa situação:

Máquina A => Máquina com o registro danificado e com acesso negado para edição remota.

Máquina B => Máquina funcionando corretamente que servirá de base para nossa operação.

1) Coloque o HD da máquina A como slave na máquina B.

2) Com o HD já configurado como slave na Máquina B, execute regedit.exe(Windows XP) ou regedt32.exe (Windows 2000)

3) Selecione a chave HKEY_LOCAL_MACHINE e em seguida clique em Arquivo > Carregar seção...

4) É importante que você leia o resumo do registro^(**)descrito no final deste artigo para entender as referências

5) Navegue até a arvore que deseja visualizar, neste exemplo vou abrir a Software.

6) Escolha um nome para a chave onde a árvore carregada permanecerá armazenada, neste caso coloquei HKLM2.

7) Observe que a arvore que você importou, agora aparece como uma chave no registro atual

8) Navegue até a chave HKEY_LOCAL_MACHINE\”HKLM2”\Microsoft\Windows NT\CurrentVersion\Winlogon, clique nesta pasta e em seguida, do lado direito, dê dois cliques no Valor "Userinit", coloque exatamente o caminho onde o arquivo Userinit.exe está localizado e clique em "OK" para concluir a alteração.

9) Clique em "Arquivo" e em seguida em "descarregar seção".

***

(*)USERINIT.EXE
Especifica quais programas Winlogon executa quando o usuário faz logon. Por padrão, o Winlogon executa Userinit.exe, que executa o script de logon, restabelece as conexões de rede e, em seguida, inicia o Explorer.exe, o desktop do usuário do Windows.

(**)RESUMO DO REGISTRO
Uma ramificação do Registro é um grupo de chaves, subchaves e valores no Registro que tem um conjunto de arquivos de suporte que contém o backup dos dados.

Observe que existe uma diferença na localização dos arquivos dependendo da configuração que você deseja alterar.

LOCAL_MACHINE => Fica por padrão no arquivo C:\WINDOWS\SYSTEM32\CONFIG\

CURRENT_USER =>Fica dentro do perfil do usuário (%USERPROFILE%), num arquivo NTUSER.DAT.

Ramificação do Registro *** Arquivos de suporte

HKEY_LOCAL_MACHINE\SAM *** Sam

HKEY_LOCAL_MACHINE\Security *** Security

HKEY_LOCAL_MACHINE\Software *** Software

HKEY_LOCAL_MACHINE\System *** System

HKEY_CURRENT_USER *** NTUSER.DAT

Lembrando que a opção "carregar seção" está disponível somente na ramificação HKEY_LOCAL_MACHINE e HKEY_USER

DESCRIÇÃO:

HKEY_CURRENT_USER
Contém a raiz das informações de configuração para o usuário que está conectado no momento. As pastas dos usuários, as cores para a tela e as configurações do Painel de Controle são armazenadas aqui. Estas informações estão associadas ao perfil do usuário. A abreviação da chave é geralmente "HKCU".

HKEY_USERS
Contém todos os perfis de usuário ativamente carregados no computador. HKEY_CURRENT_USER é uma subchave de HKEY_USERS. HKEY_USERS é algumas vezes abreviada como "HKU."

HKEY_LOCAL_MACHINE
Contém as informações de configuração específicas para o computador (para qualquer usuário). A abreviação dessa chave é geralmente "HKLM".

HKEY_CLASSES_ROOT
É uma subchave de HKEY_LOCAL_MACHINE\Software. As informações armazenadas aqui garantem que o programa correto seja aberto quando você abrir um arquivo usando o Windows Explorer. A abreviação dessa chave é geralmente "HKCR". Ao iniciar o Windows 2000, estas informações são armazenadas nas chaves HKEY_LOCAL_MACHINE e HKEY_CURRENT_USER. A chave HKEY_LOCAL_MACHINE\Software\Classes contém as configurações padrão que podem ser aplicadas a todos os usuários no computador local. A chave HKEY_CURRENT_USER\Software\Classes contém as configurações que substituem as configurações padrão e são aplicadas somente ao usuário interativo. A chave HKEY_CLASSES_ROOT fornece uma exibição do Registro que mescla as informações das duas fontes. HKEY_CLASSES_ROOT também fornece a exibição mesclada para programas criados para as versões anteriores do Windows. Para alterar as configurações do usuário interativo, é necessário alterar HKEY_CURRENT_USER\Software\Classes em vez de HKEY_CLASSES_ROOT. Para alterar as configurações padrão, é necessário alterar HKEY_LOCAL_MACHINE\Software\Classes. Se você gravar chaves para uma chave em HKEY_CLASSES_ROOT, o sistema irá armazenar as informações em HKEY_LOCAL_MACHINE\Software\Classes. Se você gravar valores em uma chave em HKEY_CLASSES_ROOT e a chave já existir em HKEY_CURRENT_USER\Software\Classes, o sistema irá armazenas as informações lá e não em HKEY_LOCAL_MACHINE\Software\Classes.

HKEY_CURRENT_CONFIG
Contém informações sobre o perfil de hardware usado pelo computador local na inicialização do sistema.

Para maiores informações sobre o registro do Windows acesse o link: http://support.microsoft.com/kb/256986/pt-br

Scripts - Serviços - Instalar Serviço

2008-10-25T17:41:00.001-07:00

Instala Serviço no Windows

O script a seguir pode auxiliar na instalação de um serviço do Windows de forma simples e rápida, bastando somente algumas alterações no script conforme necessário.

instruções para utilização do script.

Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo como .vbs
Edite o arquivo e altere as informações escritas em vermelho.

'**Inicio do Código***************************************************************

'Título = Instala um serviço
'Pagina = SUPORTE & SCRIPTS - scriptonita.blogspot.com
'versão = Beta 1.0
'Contato = Marcelo Montezuma - marcelo.montezuma@gmail.com

'--------------------------------------------------------------------------------
'Nota:'O usuario deve possuir privilégios administrativos na estação.
'O script deve ser ajustado de acordo com sua finalidade.

'Inicio'--------------------------------------------------------------------------------

'Variáveis e Constantes
'--------------------------------------------------------------------------------
Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = False
Const NORMAL_ERROR_CONTROL = 2

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objService = objWMIService.Get("Win32_BaseService")

errReturn = objService.Create("Teste_Service" ,"Teste para criar um Serviço" , _
"c:\windows\system32\teste.exe", OWN_PROCESS, NORMAL_ERROR_CONTROL,_
"Manual", NOT_INTERACTIVE, "NT AUTHORITY\LocalService", "" )

WScript.Echo "Concluído"

'**Fim do código****************************************************************

Ass Marcelo Montezuma

Scripts - Serviços - Deleta Serviço

2008-10-25T17:38:00.001-07:00

Deleta serviço do Windows.

O script a seguir pode deletar um serviço do Windows de forma simples e rápida, bastando somente algumas alterações no script conforme necessário.

Instruções para utilização do script.

Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo como .vbs

Edite o arquivo e altere as informações escritas em vermelho.

'**Inicio do Código***************************************************************

'Título = Deleta um serviço do Windows
'Pagina = SUPORTE & SCRIPTS - scriptonita.blogspot.com
'versão = Beta 1.0
'Contato = Marcelo Montezuma - marcelo.montezuma@gmail.com
'--------------------------------------------------------------------------------
'Nota:
'O usuario deve possuir privilégios administrativos na estação.
'O script deve ser ajustado de acordo com sua finalidade.

'Inicio'--------------------------------------------------------------------------------
'Variaveis e Costantes '--------------------------------------------------------------------------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'Teste_Service'")

For Each objService in colListOfServices
objService.StopService()
objService.Delete()
Next

WScript.Echo "Concluído"

**Fim do código****************************************************************

Ass. Marcelo Montezuma

Como instalar o ADMINPAK e o GPMC no Windows Vista.

2008-10-25T17:37:00.001-07:00

* ADMINPAK

Será necessário uma pequena ajuda para o Adminpack instalar corretamente no Windows Vista

1 - Instale o adminpak.msi normalmente como administrador

2 - Abra o Notepad, copie e cole o texto abaixo e salve como Adminpack.cmd

REM Inicio do arquivo
regsvr32 /s adprop.dll
regsvr32 /s azroles.dll
regsvr32 /s azroleui.dll
regsvr32 /s ccfg95.dll
regsvr32 /s certadm.dll
regsvr32 /s certmmc.dll
regsvr32 /s certpdef.dll
regsvr32 /s certtmpl.dll
regsvr32 /s certxds.dll
regsvr32 /s cladmwiz.dll
regsvr32 /s clcfgsrv.dll
regsvr32 /s clnetrex.dll
regsvr32 /s cluadmex.dll
regsvr32 /s cluadmmc.dll
regsvr32 /s cmproxy.dll
regsvr32 /s cmroute.dll
regsvr32 /s cmutoa.dll
regsvr32 /s cnet16.dll
regsvr32 /s debugex.dll
regsvr32 /s dfscore.dll
regsvr32 /s dfsgui.dll
regsvr32 /s dhcpsnap.dll
regsvr32 /s dnsmgr.dll
regsvr32 /s domadmin.dll
regsvr32 /s dsadmin.dll
regsvr32 /s dsuiwiz.dll
regsvr32 /s imadmui.dll
regsvr32 /s lrwizdll.dll
regsvr32 /s mprsnap.dll
regsvr32 /s msclus.dll
regsvr32 /s mstsmhst.dll
regsvr32 /s mstsmmc.dll
regsvr32 /s nntpadm.dll
regsvr32 /s nntpapi.dll
regsvr32 /s nntpsnap.dll
regsvr32 /s ntdsbsrv.dll
regsvr32 /s ntfrsapi.dll
regsvr32 /s rasuser.dll
regsvr32 /s rigpsnap.dll
regsvr32 /s rsadmin.dll
regsvr32 /s rscommon.dll
regsvr32 /s rsconn.dll
regsvr32 /s rsengps.dll
regsvr32 /s rsjob.dll
regsvr32 /s rsservps.dll
regsvr32 /s rsshell.dll
regsvr32 /s rssubps.dll
regsvr32 /s rtrfiltr.dll
regsvr32 /s schmmgmt.dll
regsvr32 /s tapisnap.dll
regsvr32 /s tsuserex.dll
regsvr32 /s uddi.mmc.dll
regsvr32 /s vsstskex.dll
regsvr32 /s w95inf16.dll
regsvr32 /s w95inf32.dll
regsvr32 /s winsevnt.dll
regsvr32 /s winsmon.dll
regsvr32 /s winsrpc.dll
regsvr32 /s winssnap.dll
regsvr32 /s ws03res.dll

REM Fim do arquivo

3 - Por último execute o arquivo "Adminpack.cmd" criado no passo anterior com a credencial de Administrador e pronto.

* GPMC

Para o GPMC não será necessária nenhuma ação, pois o mesmo já vem disponível de forma nativa no Windows Vista, bastando digitar em executar GPMC.MSC

Script - Compartilhamentos - Criar compartilhamento

2008-10-25T17:35:00.000-07:00

Cria um Compartilhamento local ou remoto

O script a seguir pode auxiliar na criação de um compartilhamento no Windows de forma simples e rápida, bastando somente algumas alterações no script conforme necessário. instruções para utilização do script.

Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo como .vbs

Edite o arquivo e altere as informações escritas em vermelho.

'**Inicio do Código***************************************************************

Const FILE_SHARE = 0

Const MAXIMUM_CONNECTIONS = 10
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _

("C:\Teste", "Nome_do_Compartilhamento", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Descrição do compartilhamento.")

"WScript.Echo "Concluído"

'**Fim do código**************************************************************** Ass.

'Marcelo Montezuma

Scripts - compartilhamento - Deletar compartilhamento

2008-10-25T17:34:00.001-07:00

Cria um Compartilhamento local ou remoto

O script a seguir pode auxiliar na criação exclusão de um compartilhamento no Windows de forma simples e rápida, bastando somente algumas alterações no script conforme necessário. instruções para utilização do script.
Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo como .vbs
Edite o arquivo e altere as informações escritas em vermelho.

'**Inicio do Código***************************************************************

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colShares = objWMIService.ExecQuery _

("Select * from Win32_Share Where Name = 'Nome_do_Compartilhamento'")
For Each objShare in colShares
objShare.DeleteNext

"WScript.Echo "Concluído"

'**Fim do código**************************************************************** Ass.

'Marcelo Montezuma

Reinstalando (Redefinindo) o TCP/IP no Windows XP

2008-10-25T17:33:00.001-07:00

Nas versões anteriores ao Windows XP, desinstalar o protocolo TCP/IP consistia mais ou menos em: acessar o ambiente de rede, selecionar as propriedades da conexão e no item referente ao protocolo TCP/IP clicar em desinstalar.

Hoje podemos ficar um pouco confusos na hora de executar essa tarefa no Windows XP, pois o botão desinstalar fica desabilitado não permitindo ao usuário proceder da forma anterior. O Windows XP possui um utilitário de linha de comando chamado NetShell (netsh) que permite, entre outras funcionalidades, o reset do TCP/IP. A seguir coloquei um exemplo da linha de comando que pode ser executada a fim de se obter um resultado similar ao da desinstalação do protocolo TCP/IP no Windows 2000.

NETSH INT IP RESET C:\LOG.TXT

onde "LOG.TXT" é o arquivo no qual serão armazenadas as informações obtidas durante a execução do comando.

Você pode obter mais informações e até um exemplo de arquivo de log acessando o artigo Microsoft abaixo.

http://support.microsoft.com/kb/299357

Postado por: Marcelo Montezuma

Instala Software ( MSI ) em computadores remotos

2008-10-25T17:31:00.001-07:00

Olá pessoal,
Esse script é o resultado de várias combinações de outros códigos(como quase todos os outros)que permite ao administrador instalar de forma remota um aplicativo ou pacote MSI para uma lista de máquinas.

Pontos positivos:
* Instalar por exemplo, o Windows Desktop Search(Ferramenta de busca da Microsoft) em 20 computadores é moleza (o Helpdesk pode executar rapidamente), mas se o número de máuqinas fosse algo em torno de 3.000 máquinas(o Helpdesk não executa rapidamente).
* Esse script não necessita de nenhum software cliente instalado nas máquinas destino.
* necessita somente do bloco de notas para ajustes no código.
*...

Pontos negativos

* Nenhum! (brincadeira)
* Necessita privilégio administrativo na máquina destino.
* Firewall ativado sem a devida configuração pode impedir a instalação.
* Pode necessitar de alguns ajustes dependendo do ambiente.
* problemas de acesso via WMI na máquina destino.

Bom, esse script sempre foi útil pra mim e "funcionou na grande maioria das máquinas" e espero que também possa ser útil para alguém de alguma forma.

instruções para utilização do script.

Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo como Deploy_MSI.vbs

'*** Inicio do código*************************************

'Título = Instala Software ( MSI ) em computadores remotos

'Autor = Marcelo Montezuma

'Pagina = SUPORTE & SCRIPTS - scriptonita.blogspot.com

'versão = Beta 1.0

'Contato = Marcelo Montezuma - marcelo.montezuma@gmail.com

'--------------------------------------------------------------------------------
'Nota:
'1 - O usuario deve possuir privilégios administrativos na estação remota

'2 - Para definir a lista das estações remotas, deve-se criar um arquivo com o nome e extensão "computadores.txt"
'na mesma pasta onde encontra-se o script e inserir um nome de maquina por linha sem deixar espaçõs em branco dentro desse arquivo.

'3 - O Resultado sera grava em um arquivo "Resultado.txt"

'Inicio
'--------------------------------------------------------------------------------

'Variaveis e Costantes
'--------------------------------------------------------------------------------

Const forReading = 1
Const forWriting = 2
Const forAppending = 8

Dim srcFile , logFile , strRetryFile
Dim Locator, strComputer, Command, service, instance , strParentServer
Dim strInstalaSW, strUserNameL, strPasswordL, strUserName , strPassword, srtAutentica
Dim strSWPackage , strSWPath
Dim Msg000 , Msg001 , Msg002 , Msg003

'Mensagem de saída

'Entrada de dados
'--------------------------------------------------------------------------------

strAutentica = InputBox ("Escolha uma das opções abaixo:" & vbCrLf &_
"----------------------------------------------------------------------------------------------------------------" & vbCrLf &_
" 1 - Utilizar credencial de rede com privilegio de administrador na estação remota (padrão):" & vbCrLf & vbCrLf &_
" 2 - Utilizar o usuario local com privilegio de administrador e um usuario de rede para acessar os recursos de redes durante o processo de instalação." & vbCrLf & vbCrLf &_
" 0 - Para sair do script " & vbCrLf & vbCrLf & vbCrLf & vbCrLf, "Define usuário para instalação do pacote MSI","1")

Select Case strAutentica

Case 2
Msg000 = MsgBox ("Você deve inserir primeiro o usuario local (administrador) no formato dominio\usuario EX. maquina01\Administrador e quando solicitada a credencial de rede, você deve inserir um usuário válido no formato dominio\usuario EX. Dominio01\bill" , 64 , "Atenção")
' WScript.Echo ("Você deve inserir primeiro o usuario local com privilegio de administrador no formato dominio\usuario EX. maquina01\administrador e quando solicitada a credencial de rede, você deve inserir um usuário válido na rede no formato dominio\usuario EX. dominio01\usuario01")
strUserNameL = inputbox( "Por favor digite o seu usuario *Local* no formato: Dominio\Usuario", "Inserir usuario" )
strPasswordL = inputbox( "Por favor digite sua senha *Local*", "Inserir senha" )
strUserName = inputbox( "Por favor digite o seu usuario *Rede* no formato: Dominio\Usuario", "Inserir usuario" )
strPassword = inputbox( "Por favor digite sua senha *Rede*", "Inserir senha" )

Case 1
Msg001 = MsgBox ("Você deve inserir um usuario de rede com privilégio de administrador no formato Domínio\usuário EX. Dominio\bill" , 64 , "Atenção")
strUserName = inputbox( "Por favor digite o seu usuario no formato: Dominio\Usuario", "Inserir usuario" )
strPassword = inputbox( "Por favor digite sua senha ", "Inserir senha" )
strUserNameL = strUserName
strPasswordL = strPassword

Case 0
Msg002 = MsgBox ("Esse Aplicativo sera fechado" , 64 , "Atenção")
WScript.Quit

Case Else
Msg003 = MsgBox ("Opção inválida, clique OK para fechar o aplicativo" , 64 , "Atenção")
WScript.Quit

End Select

strSWPath = InputBox ("Informe o caminho do pacote de instalação no formato: \\servidor" , "Definir o caminho do servidor","\\Nome_do_servidor\MSI$")
strSWPackage = InputBox ("Escolha uma das opções abaixo:" & vbCrLf &_
"----------------------------------------------------------------------------------------------------------------" & vbCrLf &_
" Pacote1.MSI: " & vbCrLf & vbCrLf &_
" Pacote otimizado (Padrão)" & vbCrLf & vbCrLf & vbCrLf & vbCrLf &_
" Pacote2.MSI: "& vbCrLf & vbCrLf &_
" Pacote padrao " & vbCrLf & vbCrLf & vbCrLf & vbCrLf &_
" pacote3.MSI..." & vbCrLf & vbCrLf &_
" Pacote completo" & vbCrLf & vbCrLf & vbCrLf & vbCrLf, "Define usuário para instalação do pacote MSI","Nome do pacote.MSI")

'Define a lista de computadores e o arquivo de log
'--------------------------------------------------------------------------------
srcFile = "computadores.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(srcFile, 1)

strRetryFile = "Computadores_nao_atingidos.txt"
Set oFsOutput = CreateObject("scripting.filesystemobject")
Set oTextRetryput = oFsOutput.OpenTextFile(strRetryFile,forAppending,True)

logFile = "Resultado.txt"
Set oFsOutput = CreateObject("scripting.filesystemobject")
Set oTextOutput = oFsOutput.OpenTextFile(logFile,forAppending,True)
oTextOutput.WriteLine ("Hostname;Status Conexao;Obs Conexao;Status Comando;Obs Comando;Status Instalacao;Obs instalaca;Hora")

'Abre o arquivo de texto e define o hostname
'--------------------------------------------------------------------------------
Do Until objTextFile.AtEndOfStream
Dim ObjComputer
intSize = 0
ObjComputer = objTextFile.ReadLine
strComputer = ObjComputer

'Classe WMI utilizada durante a conexão
'--------------------------------------------------------------------------------
NameSpace = "root\cimv2"

'Linha de comando executada no computador remoto
'--------------------------------------------------------------------------------
Command = "cmd.exe /c net use " & strSWPath & " /user:" & strUserName & " " & strPassword

'Conecta o WBEM (WMI) na estação remota
'--------------------------------------------------------------------------------

Err.Number = 0

On Error Resume Next

Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer (strComputer , NameSpace , strUserNameL , strPasswordL)

If Err.Number = 0 Then

oTextOutput.Write (strComputer & ";" & "Conexão OK" & ";" & "-" & ";")

Else
Err.Number = 0
strUsuarioTempLocal = "Inserir usuario local"
strPasswordTempLocal = "senha local"
Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer (strComputer , NameSpace , strComputer & "\" & strUsuarioTempLocal , strPasswordTempLocal)
If Err.Number = 0 Then
oTextOutput.Write (strComputer & ";" & "Conexão alternativa OK" & ";" & "-" & ";")
Else
oTextOutput.write (strComputer & ";" & "Falha de Conexão" & ";" & Err.Description & ";")

End If
End If

'Executa o comando no desktop remoto
'--------------------------------------------------------------------------------
Set Instance = Service.Get("Win32_Process")
intStatus = Instance.Create(Command, null, null, intProcessId)

If Err.Number = 0 Then
oTextOutput.Write ("Comando OK" & ";" & "-" & ";")
Else
oTextOutput.Write ("Falha no comando" & ";" & Err.Description & ";")
End If

'Executa a instalação do computador remoto
'--------------------------------------------------------------------------------

Set objSoftware = service.Get("Win32_Product")
strInstalaSW = objSoftware.Install (strSWPath & "\" & strSWPackage ,,True)

'Verifica o status final do processo de instalação
'--------------------------------------------------------------------------------

If Err.Number = 0 Then
oTextOutput.Write ("Envio do pacote OK" & ";" & "-" & ";" & Now )
oTextOutput.WriteLine
Else
oTextOutput.Write ("Falha ao enviar o pacote" & ";" & Err.Description & ";" & Now)
oTextOutput.WriteLine
oTextRetryput.WriteLine (strComputer)

End If
Err.Number = 0
strComputer = ""
intSize = intSize + 1

Loop

WScript.Echo("Fim")
WScript.Quit

'Fim
'--------------------------------------------------------------------------------
'*** Inicio do código*************************************

Postado por: Marcelo Montezuma

Buscar artigos na base da Microsoft

2008-10-10T06:38:00.001-07:00

O script a seguir efetua busca por artigos da base microsoft do tipo KB123456... de forma simples e rápida, bastando somente inserir os 06 dígitos contidos no nome do artigo.

EX.: Para o KB123456 devemos inserir somente os números 123456 conforme mostrado na figura a seguir .

Instruções para utilização do script.

Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo com a extensão .vbs e pronto.

'**Inicio do Código***************************************************************

Dim oShell, sKBArticle

Set oShell = CreateObject("WScript.Shell")
sKBArticle = InputBox("Insira os 6 digitos do número do artigo da Microsoft KnowledgeBase que deseja pesquisar:","Suporte & Scripts")
If NOT Len(sKBArticle) = 6 Then
MsgBox "Número do KB incorreto!", 16, "Falha"
Set oShell = Nothing
WScript.Quit
Else
oShell.Run "http://support.microsoft.com/?kbid=" & sKBArticle
End If

Set oShell = Nothing
WScript.Quit

'**Fim do Código***************************************************************

Postado por: Marcelo Montezuma

Comandos em ação

2008-10-10T06:37:00.001-07:00

Para aqueles que gostam de utilizar um pouco mais o teclado, segue alguns comandos interessantes que podem ajudar em nosso dia a dia.

Accessibility Controls = access.cpl
Accessibility Wizard = accwiz
Add Hardware Wizard = hdwwiz.cpl
Add/Remove Programs = appwiz.cpl
Administrative Tools = control admintools
Adobe Acrobat (if installed) = acrobat
Adobe Designer (if installed) = acrodist
Adobe Distiller (if installed) = acrodist
Adobe ImageReady (if installed) = imageready
Adobe Photoshop (if installed) = photoshop
Automatic Updates = wuaucpl.cpl
Bluetooth Transfer Wizard = fsquirt
Calculator = calc
Certificate Manager = certmgr.msc
Character Map = charmap
Check Disk Utility = chkdsk
Clipboard Viewer = clipbrd
Command Prompt = cmd
Component Services = dcomcnfg
Computer Management = compmgmt.msc
Control Panel = control
Date and Time Properties = timedate.cpl
DDE Shares = ddeshare
Device Manager = devmgmt.msc
Direct X Control Panel (If Installed)* = directx.cpl
Direct X Troubleshooter = dxdiag
Disk Cleanup Utility = cleanmgr
Disk Defragment = dfrg.msc
Disk Management = diskmgmt.msc
Disk Partition Manager = diskpart
Display Properties = control desktop
Display Properties = desk.cpl
Display Properties (w/Appearance Tab Preselected) = control color
Dr. Watson System Troubleshooting Utility = drwtsn32
Driver Verifier Utility = verifier
Event Viewer = eventvwr.msc
Files and Settings Transfer Tool = migwiz
File Signature Verification Tool = sigverif
Findfast = findfast.cpl
Firefox (if installed) = firefox
Folders Properties = control folders
Fonts = control fonts
Fonts Folder = fonts
Free Cell Card Game = freecell
Game Controllers = joy.cpl
Group Policy Editor (XP Prof) = gpedit.msc
Hearts Card Game = mshearts
Help and Support = helpctr
HyperTerminal = hypertrm
Iexpress Wizard = iexpress
Indexing Service = ciadv.msc
Internet Connection Wizard = icwconn1
Internet Explorer = iexplore
Internet Properties = inetcpl.cpl
Internet Setup Wizard = inetwiz
IP Configuration (Display Connection Configuration) = ipconfig /all
IP Configuration (Display DNS Cache Contents) = ipconfig /displaydns
IP Configuration (Delete DNS Cache Contents) = ipconfig /flushdns
IP Configuration (Release All Connections) = ipconfig /release
IP Configuration (Renew All Connections) = ipconfig /renew
IP Configuration (Refreshes DHCP & Re-Registers DNS) = ipconfig /registerdns
IP Configuration (Display DHCP Class ID) = ipconfig /showclassid
IP Configuration (Modifies DHCP Class ID) = ipconfig /setclassid
Java Control Panel (If Installed) = jpicpl32.cpl
Java Control Panel (If Installed) = javaws
Keyboard Properties = control keyboard
Local Security Settings = secpol.msc
Local Users and Groups = lusrmgr.msc
Logs You Out Of Windows = logoff
Malicious Software Removal Tool = mrt
Microsoft Access (if installed) = access.cpl
Microsoft Chat = winchat
Microsoft Excel (if installed) = excel
Microsoft Frontpage (if installed) = frontpg
Microsoft Movie Maker = moviemk
Microsoft Paint = mspaint
Microsoft Powerpoint (if installed) = powerpnt
Microsoft Word (if installed) = winword
Microsoft Syncronization Tool = mobsync
Minesweeper Game = winmine
Mouse Properties = control mouse
Mouse Properties = main.cpl
Nero (if installed) = nero
Netmeeting = conf
Network Connections = control netconnections
Network Connections = ncpa.cpl
Network Setup Wizard = netsetup.cpl
Notepad = notepad
Nview Desktop Manager (If Installed) = nvtuicpl.cpl
Object Packager = packager
ODBC Data Source Administrator = odbccp32.cpl
On Screen Keyboard = osk
Opens AC3 Filter (If Installed) = ac3filter.cpl
Outlook Express = msimn
Paint = pbrush
Performance Monitor = perfmon.msc
Performance Monitor = perfmon
Phone and Modem Options = telephon.cpl
Phone Dialer = dialer
Pinball Game = pinball
Power Configuration = powercfg.cpl
Printers and Faxes = control printers
Private Character Editor = eudcedit
Quicktime (If Installed) = QuickTime.cpl
Quicktime Player (if installed) = quicktimeplayer
Real Player (if installed) = realplay
Regional Settings = intl.cpl
Registry Editor = regedit
Registry Editor = regedit32
Remote Access Phonebook = rasphone
Remote Desktop = mstsc
Removable Storage = ntmsmgr.msc
Removable Storage Operator Requests = ntmsoprq.msc
Resultant Set of Policy (XP Prof) = rsop.msc
Scanners and Cameras = sticpl.cpl
Scheduled Tasks = control schedtasks
Security Center = wscui.cpl
Services = services.msc
Shared Folders = fsmgmt.msc
Shuts Down Windows = shutdown
Sounds and Audio = mmsys.cpl
Spider Solitare Card Game = spider
SQL Client Configuration = cliconfg
System Configuration Editor = sysedit
System Configuration Utility = msconfig
System File Checker Utility (Scan Immediately) = sfc /scannow
System File Checker Utility (Scan Once At Next Boot) = sfc /scanonce
System File Checker Utility (Scan On Every Boot) = sfc /scanboot
System File Checker Utility (Return to Default Setting) = sfc /revert
System File Checker Utility (Purge File Cache) = sfc /purgecache
System File Checker Utility (Set Cache Size to size x) = sfc /cachesize=x
System Information = msinfo32
System Properties = sysdm.cpl
Task Manager = taskmgr
TCP Tester = tcptest
Telnet Client = telnet
Tweak UI (if installed) = tweakui
User Account Management = nusrmgr.cpl
Utility Manager = utilman
Windows Address Book = wab
Windows Address Book Import Utility = wabmig
Windows Backup Utility (if installed) = ntbackup
Windows Explorer = explorer
Windows Firewall = firewall.cpl
Windows Magnifier = magnify
Windows Management Infrastructure = wmimgmt.msc
Windows Media Player = wmplayer
Windows Messenger = msmsgs
Windows Picture Import Wizard (need camera connected) = wiaacmgr
Windows System Security Tool = syskey
Windows Update Launches = wupdmgr
Windows Version (to show which version of windows) = winver
Windows XP Tour Wizard = tourstart
Wordpad = write

Postado por : Marcelo Montezuma

Regenera o ID do cliente do WSUS e registra a conta novamente no servidor

2008-10-10T06:36:00.001-07:00

Prezados,

Esse script é um dos mais interessantes que já tive a oportunidade de contruir junto com meu amigo Daniel Cordeiro. Inicialmente ele parece ser bem simples, mas na mão do administrador do WSUS ele se torna uma poderora ferramenta de apoio.
Quando tive a oportunidade de participar da implantação do WSUS em nosso ambiente, ficavamos sempre com a impressão que tinhamos mais máquinas na planta do que na realidade apresentada pelo console do servidor. Após vários dias pesquisando as documentações do produto, visitando vários foruns como por exemplo o excelente http://www.wsus.info/forums/ desenvolvemos o script a seguir.

1 - O script identifica os hostnames destino a partir de uma lista de máquinas que devem ser armazenadas no arquivo "computadores.txt.

2 - Conecta na estação destino e verifica o Sistema Operacional.

3 - Para o serviço do Automatic Updates e inicia o serviço de Registro Remoto.

4 - Deleta todo o conteúdo da pasta SoftwareDistrution e as chaves do registro referentes ao Id máquina no wsus

5 - Reinicia todos os serviços

6 - Força o registro da máquina no servidor WSUS e verifica se existe atualizações disponíveis para a estação.

7 - Por último ele coloca tudo isso em um arquivo de log chamado "Resultado.txt".

Conclusão: Com essa ferramenta conseguimos no perído de 02 a 03 dias aumentar em 1.000 a quantidade de máquinas cadastradas na console do WSUS.

'*** Inicio do código*************************************

'Título = Reseta o ID do client WSUS e Registra Novamente a conta.

'Autor = Marcelo Montezuma / Daniel Henrique Cordeiro

'Pagina = SUPORTE & SCRIPTS - scriptonita.blogspot.com

'versão = Beta 1.0

'Contato = Marcelo Montezuma - marcelo.montezuma@gmail.com

'Inicio -------------------------------------------------------------

Dim arrFolders()
Const HKEY_LOCAL_MACHINE = &H80000002
Const forReading = 1
Const forWriting = 2
Const forAppending = 8
Dim srcFile , logFile

'Define a lista de computadores e o arquivo de log------------------

srcFile = "computadores.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(srcFile, 1)

logFile = "Resultado.txt"
Set oFsOutput = CreateObject("scripting.filesystemobject")
Set oTextOutput = oFsOutput.OpenTextFile(logFile, forAppending, True)

'Abre o arquivo de texto e define o hostname-------------------------

Do Until objTextFile.AtEndOfStream
Dim ObjComputer
intSize = 0
ObjComputer = objTextFile.ReadLine
strComputer = ObjComputer

'Conecta a estação e verifica erro ------------------------------------
On Error Resume Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

If Err.Number = 0 Then
oTextOutput.writeLine
oTextOutput.writeLine (strComputer & ";" & "Reset do cliente wsus iniciado" & ";" & Now)

Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

'Verfica o SO da estação ------------------------------------------------------
For Each objOS In colOSes
Dim strOSType
strOSType = objOS.Caption

Select Case strOSType

Case "Microsoft Windows XP Professional"
strFolderName = "c:\Windows\SoftwareDistribution"
oTextOutput.writeLine (strComputer & ";" & "Sistema Operacional" & ";" & strOSType)

Case "Microsoft Windows 2000 Professional"
strFolderName = "c:\Winnt\SoftwareDistribution"
oTextOutput.writeLine (strComputer & ";" & "Sistema Operacional " & ";" & strOSType)

Case Else
oTextOutput.writeLine (strComputer & ";" &"Falha ao detectar o OS ")

End Select

Next

Else
strDescricao = Err.Description
strErroNumero = Err.Number
oTextOutput.writeLine
oTextOutput.writeLine (strComputer & ";" & "Erro nº:" & strErroNumero & ";" & strDescricao & ";" & Now)

End If

' Para o serviço do Windows update e altera o registro remoto -----------------------------------

If Err.Number = 0 Then

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='RemoteRegistry'")

For Each objService in colServiceList
errReturn = objService.Change (, , , , "Manual")
errReturn = objService.StartService()
Next

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='wuauserv'")
For Each objService In colServiceList
errReturn = objService.StopService()
On Error Resume Next
oTextOutput.writeLine (strComputer & ";" & "Serviço parado com sucesso ")
Next
End If

'-------------------Verifica se o serviço já está parado
If Err.Number = 0 Then
Dim SS
Dim statusS
dim strData1
dim srtData2
dim strResult

strdata1 = formatDateTime(now,shorttime)
SS = 0

While SS = 0
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='wuauserv'")
For Each objService In colServiceList
statusS = objService.State
Next
If statusS = "Stopped" Then
SS = 1
End If
strData2 = formatDateTime(now,shorttime)
strResult = datediff("s",strdata1,strData2)
if strresult= 120 then
SS=1
end if
Wend
End If

'Conecta o Registro e deleta as chaves do WSUS --------------------------------------------

On Error Resume Next

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

If Err.Number = 0 Then

oTextOutput.writeLine
oTextOutput.writeLine (strComputer & ";" & "Reset do registro wsus iniciado " & Now)

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate"
strDWORDValueName = "AccountDomainSid"
strStringValueName = "SusClientId"
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

Else
strDescricao = Err.Description
strErroNumero = Err.Number
oTextOutput.writeLine
oTextOutput.writeLine (strComputer & ";" & "Erro nº:" & strErroNumero & ";" & strDescricao & ";" & Now)

End If

'Deleta pastas e subpastas SoftwareDistribution
If Err.Number = 0 Then

Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")

ReDim Preserve arrFolders(intSize)
arrFolders(intSize) = strFolderName
intSize = intSize + 1

For Each objFolder In colSubfolders
GetSubFolders strFolderName
Next

For i = UBound(arrFolders) To 0 Step -1
strFolder = arrFolders(i)
strFolder = Replace(strFolder, "\", "\\")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where Name = '" & strFolder & "'")

For Each objFolder In colFolders
strCaminho = objFolder.Name
errResults = objFolder.Delete
Next
oTextOutput.writeLine (strComputer & ";" & "Pastas apagadas com sucesso: " & strCaminho & ";" & Now)
Next

'Para o serviço do registro remoto-----------------------------------------

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='RemoteRegistry'")

For Each objService in colServiceList
errReturn = objService.Change (, , , , "Desativado")
errReturn = objService.StopService()

Next

'Inicia o serviço do Windows update --------------------------------------

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='wuauserv'")
For Each objService In colServiceList
errReturn = objService.StartService()
oTextOutput.writeLine (strComputer & ";" & "Serviço iniciado com sucesso " & ";" & Now)
Next
End If

'Verifica se o serviço já está em execução -------------------------------
If Err.Number = 0 Then

strdata1 = formatDateTime(now,shorttime)

SS = 0

While SS = 0
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='wuauserv'")
For Each objService In colServiceList
statusS = objService.State
Next
If statusS = "Running" Then
SS = 1
End If
strData2 = formatDateTime(now,shorttime)
strResult = datediff("s",strdata1,strData2)
if strresult= 120 then
SS=1
end if
Wend
End If

'Força a erificação por novas atualizações --------------------------------------

If Err.Number = 0 Then

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")

If strOSType = "Microsoft Windows XP Professional" Then
Error = objWMIService.Create("C:\WINDOWS\System32\wuauclt.exe /resetauthorization /detectnow", Null, Null, intProcessID)
If Error = 0 Then
oTextOutput.writeLine (strComputer & ";" & "Novo update iniciado")
Else
oTextOutput.writeLine (strComputer & ";" & "Falha ao forçar o Windows Update")
End If
Else
If strOSType = "Microsoft Windows 2000 Professional" Then
Error = objWMIService.Create("C:\WINnt\System32\wuauclt.exe /resetauthorization /detectnow", Null, Null, intProcessID)
If Error = 0 Then
oTextOutput.writeLine (strComputer & ";" & "Novo update iniciado ")
Else
oTextOutput.writeLine (strComputer & ";" & "Falha ao forçar o Windows Update")
End If
End If

End If
End If

strOSType = ""
strComputer = ""
objFolder = ""

Loop

Sub GetSubFolders(strFolderName)
Set colSubfolders2 = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")

For Each objFolder2 In colSubfolders2
strFolderName = objFolder2.Name
ReDim Preserve arrFolders(intSize)
arrFolders(intSize) = strFolderName
intSize = intSize + 1
GetSubFolders strFolderName
Next

End Sub

WScript.Echo ("Fim")

'*** Fim do código*************************************

Habilitar e Desabilitar o USB

2008-10-10T06:35:00.001-07:00

Oi Pessoal,

Esse cógido é bem prático para contolar o acesso ao usb da estação.

Para utilização basta copiar e colar o código no bloco de notas e salvar com a extensão .vbs

'*** Inicio do código*************************************

'Título = Habilitar e Desabilitar o USB.

'Autor = Marcelo Montezuma

'Pagina = SUPORTE & SCRIPTS - http://scriptonita.blogspot.com

'versão = Beta 1.0

'Contato = Marcelo Montezuma - marcelo.montezuma@gmail.com

'Inicio -------------------------------------------------------------

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

'-----------------------------------------------------------------------------------------------
'Entrada de dados
'-----------------------------------------------------------------------------------------------

Do
strOpcao = InputBox ("INFORME O NUMERO DA OPCAO DESEJADA:" & vbCrLf &_
"----------------------------------------------------------------------------------------------------------------" & vbCrLf &_
" 1 - HABILITAR USB" & vbCrLf &_
" " & vbCrLf &_
" 2 - DESABILITAR USB" & vbCrLf &_
" " & vbCrLf &_
" 0 - SAIR" & vbCrLf & vbCrLf , "SUPORTE & SCRIPTS" ,"0")

If strOpcao = "0" Then WScript.Quit(1)
Loop Until strOpcao <> ""

Select Case strOpcao

Case "1"
dwValue = 3

Case "2"
dwValue = 4

Case Else
WScript.Quit
End Select

strKeyPath = "SYSTEM\CurrentControlSet\Services\USBSTOR"
strValueName = "Start"
dwValue = 3
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

'*** Fim do código*************************************

Reparar ou reinstalar o MDAC - no Windows XP SP2

2008-10-10T06:34:00.001-07:00

Para reparar ou reinstalar o MDAC - no Windows XP SP2.

1. Abra a pasta C:\Windows\inf e localize o arquivo mdac.inf,

onde C:\Windows referem-se ao drive e o nome da pasta onde o Windows foi instalado;

2. Clicar com o botão direito no arquivo mdac.inf e em seguida clique em Instalar para iniciar o reparo;

3. Quando for solicitado para indicar o um caminho, aponte para C:\Windows\servicepackfiles\i386;

4. Quando for solicitado o caminho do arquivo handler.reg, aponte para:

C:\Arquivos de Programa\Arquivos Comuns\System\msadc ou coloque o CD do Windows no drive de CD.

Postado por: Marcelo Montezuma

Duplicação e Distribuição de Desktops - Parte IV (Final)

2008-10-10T06:32:00.001-07:00

Instalação e customização do Windows XP

Daremos inicio ao proceso de instalação e configuração do Sistema Operacional respeitando as recomendações da área de segurança e também buscando atingir um bom desempenho do equipamento.

O CHECKLIST DEVE SER ELABORADO COM A PARTICIPAÇÃO DOS ANALISTAS MAIS EXPERIENTES E OBEDECENDO AS MELHORES PRÁTICAS RECOMENDADAS PELA MICROSOFT. APÓS A CONFECÇÃO DO CHECKLIST O MESMO DEVE SER SUBMETIDO À APROVAÇÃO DO CLIENTE (RECOMENDADO FUNCIONÁRIO DA ÁREA DE TI) E PELA ÁREA DE SEGURANÇA DA INFORMAÇÃO.

O modelo a seguir é meramente ilustrativo podendo ser aproveitado parcialmente caso o responsável do projeto desejar.

Checklist utilizado na criação de imagens Matriz para Desktops.

Responsável:
Nome do Arquivo:
Inicio: / / Conclusão: / / Atualização: / /
Versão atual:
Sistema Operacional
Modelos compatíveis:

Lista de Tarefas

Preparação do Disco.
- Particionar o Hard Disk utilizando 40% para a unidade C: e 60% para a unidade D:
- Formatar as partições criadas utilizando sistema de arquivos NTFS (Utilizar a opção Quick Format)

Instalação e configuração do Windows XP.

- Definir o “systemroot” como C:\WINDOWS

- Preencher o campo “Nome” e “Organização”

- Alterar o formato da data para o formato “dd/MM/aaaa”

- Alterar o Idioma e Layout para: Português Brasil (Brasil ABNT2) – Default ou Português Brasil (Estados Unidos Internacional)

- Inserir a chave do Produto: XXXXX – XXXXX – XXXXX – XXXXX - XXXXX

- Definir o nome da estação: DKTMATRIZXXXX

- Alterar o fuso para (GMT-03:00) Brasília e assinalar a opção “Ajustar automaticamente o relógio para o horário de verão”

- Quando solicitado um nome para criação de conta durante a instalação, preencher com o nome de conta “PROFILE”

- Após a conclusão da instalação, logar na estação com o usuário “PROFILE” e Verificar se o usuário “PROFILE” está no grupo de administradores.

- No painel de controle, na opção “Contas de Usurários”, em alterar a maneira como os usuários fazem logon, desabilitar a tela de boas-vindas

- Na barra de tarefas, clicar com o botão direito e selecionar “Propriedades”.
Desmarcar a opção “Agrupar botões semelhantes da barra de tarefas”
No campo “Menu Iniciar”, marque a opção “Menu Iniciar clássico”.
Clique em “Personalizar” e marque a opção “Exibir Logoff” e clique em “OK”, duas vezes.

- Nas propriedades de vídeo, configurar o tema como “Tema clássico do Windows”.
Definir o papel de parede como “Nenhum”
- Nas propriedades do “Meu Computador”, no campo “Avançado”, na caixa “Desempenho”, clique no botão “Configurações,” Selecione a opção “Ajustar para obter melhor desempenho” e clique em “OK”
- No gerenciador de dispositivos, verifique se todos os dispositivos de hardware estão instalados corretamente e com o driver mais recente disponível.
- Abra o “Windows Explorer”, Na barra de ferramentas, clique no botão “Modos de exibição” e selecione “Lista ou Detalhes”.

- No menu “Ferramentas”, em “Opções de pasta”, selecione a aba “Modo de exibição” e clique no botão “Aplicar a todas as pastas” e clique em “Sim”

- Em “Adicionar ou remover programas”, clicar em “Assistente de componentes do Windows”, selecionar “Detalhes” para “Acessórios e utilitários”, desmarque a opção “Jogos”, ainda nessa tela, selecionar “Detalhes” para “Acessórios”, desmarque as opções “Papel de parede para área de trabalho” e “Ponteiros de mouse”, clique em “OK”duas vezes e finalmente desmarque a opção “Windows Messenger”, e clique em “Avançar” até concluir.

- Desabilitar o firewall, na opção “Firewall do Windows”.

Importante! As alterações de menus, ferramentas, atalhos e demais ajustes como os sugeridos a seguir devem ser elaborados de acordo com as necessidades de cada ambiente.

- No painel de controle, selecionar “Central de segurança do Windows”, clicar na opção “Alterar o modo de alerta da Central de Segurança”, desmarcar somente a opção “Firewall” deixando as outras duas opções marcadas, em seguida clicar em “OK”

- Em “c:\documents and settings\all users\menu iniciar\programas”, exclua o ícone do “Windows Movie Maker” e o diretório “Jogos”; Em “c:\documents and settings\all users\menu iniciar\programas\acessórios”, exclua o diretório “Comunicações”;

- Em “c:\documents and settings\all users\menu iniciar\programas\acessórios”, exclua o diretório “Entretenimento”; Em “c:\documents and settings\all users\menu iniciar\programas\acessórios”, exclua o diretório “Ferramentas do sistema”;Em “c:\documents and settings\all users\menu iniciar”, exclua os icons “Catálogo do Windows”, “Definir acesso e padrões do programa” e “Windows Update”.

- Em “c:\documents and settings\Profile\menu iniciar\programas”, exclua o ícone “Assistência Remota”; Em “c:\documents and settings\Profile\menu iniciar\programas\acessórios”, exclua os ícones “Assistente de compatibilidade de programa”, “ Catálogo de endereços”, “Sincronizar” e “Tour do Windows XP”.

- Nas propriedades do “Meu Computador”, selecione a aba “Remoto”, clique no botão “Avançado”, desmarque a opção “Permitir que este computador seja controlado remotamente” e clique em “OK”
Desmarque a opção “Permitir o envio de convites...” e clique em “OK”.

- Caso exista algum modem instalado, desabilite-o no gerenciador de dispositivos. (Não desabilitar se o equipamento for um Notebook ou o usuário tenha sido autorização da área de segurança)

- Abra a ferramenta de pesquisa e em seguida clique em “Alterar preferências”, clique em “Sem um personagem animado” e clique em OK, Feche a ferramenta de pesquisa.

- Altere o nome do usuário “administrador” para “supervisor”, em seguida crie um usuário chamado “administrador” sem nenhuma permissão administrativa e sem fazer parte de nenhum grupo local; Definir uma senha forte para o usuário supervisor (Utilizar a padrão) e outra diferente para o administrador (Usuário sem nenhum privilégio)

- Configurar a Pagina inicial como http://intranet; Inserir nos Sites Confiáveis os endereços necessaries.

- Configurar a proteção de tela como padrão do Windows XP, tempo de espera de 5 minutos e solicitar senha para desbloqueio da estação.

- Configurar o visualizador de eventos do Windows para substituir o log quando necessário.
Feche todas as janelas.

- Parar os serviços “Configuração zero sem fio”, “Registro remoto”, ”Temas” em seguida configurá-los como “Desativado” (somente para desktop’s)

Registro do Windows

- Execute o “regedit”, verifique se o acesso anônimo ao registro está bloqueado navegando até HKLM\system\Currentcontrolset\control\SecurePiperServers\winreg, selecione a chave “winreg”, clique com o botão direito do mouse e selecione Permissões, verifique se o grupo de Administradores possui permissão de Full Control e garanta que não existam outros usuários listados com permissão Full Control

- Localize a chave HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, clique no menu “Edit”, clique em “novo” e selecione “Valor DWORD”, digite o nome do valor como “DisableCAD” e pressione “Enter”.

- Em HKLM\Software\Microsoft\Windows\CurrentVersion\Applets, crie uma chave chamada “Tour”, na chave Tour criar um valor Dword com nome “RunCount”.

- Criar uma chave de registro para identificação da versão da imagem, em HKLM/Software, criar uma chave denominada OA, Na chave OA criar um valor String denominado “ Image Version”, preencher com a versão e data em seguida Feche o regedit.

Atualização do Windows.

- Execute o Windows Update e em seguida verifique se os Hot Fixes a seguir estão instalados e instale as demais atualizações disponíveis e homologadas por TI, http://windowsupdate.microsoft.com

- Instalação de aplicativos e outras atualizações. (Adaptar essa lista de acordo com suas necessidades)

- Instalar o Antivírus

- Instalar o ADOBE ACROBAT READER (Português Brasil), após a instalação do Acrobat, remover o Acrobat launch do menu inicializar

- Instalar o ICEOWS (Português Brasil)

- Instalar o Macromedia Flash Player

- Instalar o Microsoft Office Pro (Imagem Full)

- No diretório de instalação de instalação do Office, execute o arquivo “PRO11.MSI “, selecione a instalação Personalizada, depois executar todas de Meu Computador, utilizar o serial Office =>
xxxxx - xxxxx – xxxxx – xxxxx– xxxxx

- Acesse o Site do “Windows Update” e selecione a “Família Office” ou clique no link: http://office.microsoft.com/pt-br/officeupdate/default.aspx , Instale o Office Update Engine e demais atualizações disponíveis.

- Menu iniciar, Executar, digite “drwtsn32 – i”

- Copiar os arquivos OEM.INF e OEMINFO.BMP para o %systemroot%\system32 e alterar suas propriedades.

- Ingressar a estação no Domínio

- Implementar política de segurança, conforme o padrão de segurança do cliente.

Preparação da Imagem e limpeza do ambiente.

- Executar os principais aplicativos do pacote office pelo menos uma vez para verificar a eventual necessidade de alguma configuração adicional, executar o Acrobat Reader e aceitar o contrato de licença

- Limpar o cache de senhas, histórico e cookies do Internet Explorer.

- Apagar arquivos criados nos diretórios temporários (*.TMP) e diretórios C:\Windows\Temp e c:\Documents and Settings\Administrador\Local Settings\Temp, apagar arquivos *.DMP e esvaziar Lixeira

- Limpar documentos Abertos Recentemente (Propriedades da Barra de tarefas), reorganizar os atalhos do “Desktop e Start menu”.

- Remover o Antivírus caso ocorra algum problema para atualização após a duplicação.

- Executar o desfragmentador de disco.

- Efetue logon com o usuário “supervisor/administrador”, Clique com o botão direito em “Meu Computador” e selecione “Propriedades”, na aba “Avançado”, no quadro “Perfis de usuário”, clique em “Configurações”, selecionar o usuário “profile” e clique em “Copiar para”, Clique em procurar e selecione o diretório “c:\documents and settings\default user Observação: Verifique se os arquivos ocultos estão configurados para serem visíveis, na caixa “Uso permitido”, clique em “Alterar” adicione o grupo “Todos” e clique em OK

- Exclua o usuário “profile” e o diretório “c:\documents and settings\profile”

- Remover o micro do Domínio, passar um anti-spyware.

- Verificar as configurações de redes está correto incluindo se o Sufixo DNS para esta conexão está correto

- Caso tenha sido utilizada alguma ferramenta para particionar discos , verificar se as letras das unidades estão corretas,se as unidades estão formatadas e se o aplicativo utilizado foi removido.

- Criar uma Imagem e efetuar upload da imagem para o servidor

Sysprep

- Efetuar um levantamento dos drivers utilizados

- Utilizar preferencialmente os arquivos *.INF e *.SYS para a configuração dos equipamentos.

- Copiar a pasta drivers para a raiz do C:\

- Copiar a pasta sysprep para a raiz do C:\

- Executar o Sysprep.bat localizado no diretório do sysprep

- Despejar a imagem no modelo destino e verificar os conflitos no gerenciador de dispositivos.

Testes

OBS O teste ideal seria eleger um chamado de solicitação de micro ou algum funcionário da área de TI e aplicar a imagem criada para acompanhamento e executar eventuais ajustes.

- Descarregar a imagem criada em uma máquina de teste

- Instalar os principais aplicativos da empresa xom SAP, Siebel, Extra, entre outros e em em seguida configurar e executá-los pelo menos uma vez..

- Testar as Ferramentas de suporte e acesso remoto.

- Testar o funcionamento de unidades de DVD ou CDRW e seus respectivos softwares caso o micro os tenha.

- Logar com um usuário comum e verificar a aparência do desktop do usuário default está como o esperado e deixar o script login rodar até o final (caso exista um configurado no ambiente).

- Instalar uma impressora corporativa e imprimir página de teste

- Testar as principais variáveis de ambientes estão corretas.

Não esqueça de documentar o processo registrando qualquer particularidade encontrada durante o processo e após a criação da imagem matriz efetuar o backup da mesma.

------- Fim ---------------------------------------------------------------------------

Espero que esse documento possa ajudar de alguma forma a quem interessar, lembrando que alguns ajustes devem ser revistos conforme as plolíticas do ambiente.

Postado por: Marcelo Montezuma

Duplicação e Distribuição de Desktops - Parte - III

2008-10-10T06:31:00.001-07:00

Duplicação e distribuição de desktop´s utilizando o
System Preparation Tool – SYSPREP

...

Levantando o estado do ambiente atual e definindo resultado esperado.

• Levantamento dos modelos existente no parque => Devemos efetuar um levantamento de todos os modelos existentes no parque e a quantidade de imagens existente para atender essa demanda. ( Esse levantamento deve ser o mais detalhado possível para podermos medir com eficiência as mellhorias implementadas )
• Efetuar um estudo de compatibilidade na arquitetura dos modelos => Devemos efetuar um estudo na compatibilidade dos arquivos HAL.DLL de cada modelo para podermos traçar um plano de criação de imagens e projetar a redução esperada na quantidade de imagens.
• Calcular o resultado esperado => Baseado nos levantamentos anteriores calcular o resultado esperado.

System Preparation Tool (SYSPREP).

A clonagem de disco consiste essencialmente em efetuar um snapshot da configuração do disco de um computador que contenha (preferencialmente) o Windows XP e aplicações como o Microsoft Office XP, gerando um arquivo de imagem que posteriormente pode ser distribuídos para os outros computadores da organização.

A clonagem de disco é a forma mais rápida para distribuição do Windows XP. A instalação via CDROM pode durar aproximadamente 45 minutos, a instalação via arquivo de imagem dura aproximadamente 10 minutos e se usarmos o recurso de multicasting podemos destribuir varias imagens ao mesmo tempo. Um fator negativo na utilização da clonagem de disco é o fato de não ser permitido upgrade de versões anteriores do sistema operacional, pois a clonagem substitui todo o conteúdo do disco sendo necessário utilizar uma ferramenta de migração para contornar essa dificuldade, em alguns casos como o de localidades distantes será necessário o envio da imagem em cdrom`s devido à sobrecarga na rede.

A imagem do disco utilizando o SYSPREP funciona bem melhor com Windows XP do que era com Microsoft Windows NT/ 2000, essas novas ferramentas reduzem significativamente o número das imagens da sua organização. O Site da Microsoft está cheio de estudos de casos das companhias que reduziram sua contagem da imagem em até 60%.
A ferramenta SYSPREP fica localizada no CD de instalação Windows XP dentro do arquivo Deploy.cab na pasta \Support\Tools. Durante o processo de prepararação para copia de um sistema, a ferramenta System Preparation executa algumas tarefas:
• Inclui um serviço de sistema para criar um único ID de segurança de domínio local (SID) antes da primeira inicialização do sistema.
• Inclui um assistente de mini-setup que rodará na primeira inicialização do sistema. O assistente de mini-setup pede ao usuário informações específicas como a Licença de Uso do Usuário Final, ID do produto, nome do usuário e nome da empresa. O mini-setup assistente pode ser colocado em forma de script para eliminar a interação com o usuário.
• Força o sistema a rodar detecção completa de dispositivo Plug and Play. Isto permite que o administrador crie uma imagem em um computador, e então a copie para outro computador com configuração de hardware similar.

Requisitos para executar a ferramenta Sysprep

Para poder utilizar a ferramenta Sysprep, o hardware do computador e os respectivos dispositivos terão de cumprir os seguintes requisitos:
• Os computadores de referência e de destino têm de ter HALs compatíveis. Por exemplo, os MPS (sistemas com vários processadores) baseados num controlador programável de interrupções avançado (APIC, Advanced Programmable Interrupt Controller) têm de ter a mesma HAL APIC. Um sistema baseado num controlador programável de interrupções (PIC, Programmable Interrupt Controller) de HAL padrão não é compatível com HAL APIC ou HAL MPS.
• Os computadores de referência e de destino têm de ter o mesmo suporte de interface avançada de configuração e energia (ACPI, Advanced Configuration and Power Interface).
• Os dispositivos Plug-and-Play nos computadores de referência, tais como modems, placas de som, placas de rede e placas gráficas, não têm de ser fornecidos pelo mesmo fabricante. No entanto, os controladores para estes dispositivos têm de estar disponíveis.
• É necessário software de criação de imagens de disco ou dispositivos de hardware de duplicação de discos.
• O disco rígido no computador de destino tem que ter, pelo menos, o mesmo tamanho do disco rígido do computador de referência. Se o computador de destino tiver um disco rígido maior, a diferença não será incluída na partição principal. No entanto, pode utilizar a chave ExtendOemPartition no arquivo Sysprep.inf para expandir a partição principal se esta tiver sido formatada através do sistema de ficheiros NTFS.

Passo a passo para a criação do Computador Matriz e preparação da imagem para Duplicação

1- Selecione os desktops que farão parte da imagem matriz através da verificação da compatibilidade das HAL’s e preferencialmente utilize o mais moderno como referência.
a. Para verificar qual a versão da Hal.dll navegue até a pasta SYSTEM32 localizada %systemroot% \system32 > clique com o botão direito do mouse sobre o arquivo e selecione “Propriedades” => selecione a guia versão e em seguida selecione “Nome original do Arquivo” => no campo valor aparecerá o nome verdadeiro do arquivo.

2- Efetue a instalação do Sistema operacional e demais aplicativos de acordo com o Cheklist para Instalação e customização do Windows XP

3- Após todas atualizações e configurações crie uma imagem do estado atual da maquina antes de rodar o Sysprep.exe

4- Após a criação das imagens, copie as pastas SYSPREP E DRIVERS localizadas em \\Driver de rede\sysprep para o diretório Raiz do equipamento “C:\”
a. Os drivers de terceiros que serão utilizados durante a instalação ficam dentro da pasta DRIVERS, devemos colocar numa estrutura não muito longa, pois faremos referencia a esse caminho no arquivo Sysprep.inf
b. Preferencialmente devemos utilizar somente os arquivos de driver *.inf e *.sys .

5- Montar um arquivo batch para executar sysprep.exe com os parâmetros desejados.
a. Crie um arquivo Sysprep.txt e insira a seguinte linha de comando:

b. Salve o arquivo dentro da pasta C:\SYSPREP copiada no passo anterior.

c. Feche as demais janelas abertas e execute o arquivo C:\SYSPREP\Sysprep.bat, em seguida clique em “Sim” e aguarde o final do processo (esse preocesso dura em média de 30 a 50 minutos).

6- Quando a máquina reiniciar não podemos permitir que ela carregue o sistema operacional novamente, pois nesse momento é que criaremos um arquivo de imagem (QUANDO A MAQUINA REINICIAR DEVEMOS DESLIGÁ-LA E LIGAR NOVAMENTE SOMENTE PARA A CRIAÇÃO DO ARQUIVO DE IMAGEM).

7- Após a criação da imagem, poderemos descarregá-la nos micros compatíveis. A primeira vez que o sitema operacional for carregado ela ira executar um mini-setup bastando ao analista aguardar o término do mesmo (no caso das instalações totalmente automatizadas) que leva em média 05 a 10 minutos.

Duplicação e Distribuição de Desktops - Parte - II

2008-10-10T06:30:00.000-07:00

Duplicação e distribuição de desktop´s utilizando o
System Preparation Tool – SYSPREP
...
Definindo o responsável pelo projeto
Seria interessante começarmos nosso projeto definindo um responsável e também detalhar suas atribuições:

• Criação de Cronograma contemplando todos os passos do projeto com data de inicio e data prevista para o término podendo utilizar como exemplo os subitens a seguir:
o Pesquisa => Deve ser reservado um período para analise desta documentação e estudos complementares sobre o assunto.
o Documentação => Não se pode deixar de calcular o tempo que será gasto com a documentação descrevendo os passos efetuados durante o projeto bem como do “Status Report”.
o Criação de Imagens => Construir planilha ou similar para controle dos modelos tratados e tempo gasto por imagem.
EX.

o Duração Geral do Projeto => Deve-se acompanhar de forma geral o andamento do projeto e deve estar sempre atualizada

• Importante! Qualquer alteração cronograma deve ser documentada e comunicada a todos os envolvidos no primeiro status report após a alteração.

• Criação padrão de comunicação entre os envolvidos (Status Report) que seja enviado pelo responsável do projeto

o Modelo => É recomendada à criação de um e-mail padrão para envio do “Status Report” contendo informações como data, versão, breve descrição das atividades efetuadas no decorrer da semana.
o Destinatários => É importante que o cliente seja copiado e possa estar envolvido com as atividades e decisões tomadas no projeto, outro destinatário indispensável é seu próprio gestor para que o mesmo possa ter uma visibilidade de todas as tarefas realizadas pela equipe e finalmente incluir os demais envolvidos.

• O Responsável do projeto também será o ponto focal na comunicação com outras áreas caso se depare com alguma dificuldade.
o Interação com outras áreas => Caso ocorra à necessidade de contatar outras áreas como: Fabricante de Drivers, suporte Microsoft entre outros.

Mapeando possíveis dificuldades e os requisitos para execução do Projeto.

Devemos criar uma lista com as principais dificuldades e requisitos de hardware e softwares de apoio para elaboração do projeto, colocarei alguns exemplos a seguir, porém o executor deve ficar a vontade para excluir ou incluir algum item que julgar necessário.

Requisitos de Hardware e Softwares de Apoio.

o Hardware => A tabela a seguir mostra o hardware recomendado para o funcionamento do Microsoft Windows XP Pro:

o Mídias de instalação do XP => Será necessário uma mídia de instalação do Windows XP Pro com um número de série que possa ser aplicados em várias máquinas sem problemas de licenciamento e possa posteriormente efetuar a atualização no Windows update sem bloqueio.
Existe um número de série disponível na Microsoft provisório para instalações em larga escala e que após um determinado período irá expirar sendo necessário o registro utilizando uma chave de ativação válida.
Uma outra opção é a configuração do arquivo de resposta do sysprep para que seja incluído no momento em que o Windows for carregado no computador destino.

o Mídias Adicionais => É importante listar todos os aplicativos adicionais como o Microsoft Office 2003 Pro, suas mídias e os locais de acesso (caso as mídias estejam armazenadas na rede ou na internet) e suas respectivas licenças.
Obs. De forma alguma devemos deixar para solicitar as mídias durante o projeto, elas devem ser solicitadas e testadas previamente.

o Laboratório => Será necessário montar um laboratório para criação da imagem Matriz e também para testes envolvendo os modelos de computador que as imagens serão aplicadas antes de serem colocadas em produção.

Infra-estrutura para montagem do laboratório:

• Micro completo a ser utilizado para instalação do Windows XP Pro e posterior cutomização para dar origem à imagem Matriz.
• Discos ou espaço para armazenar as imagens criadas durante o processo de preparação.
• Software de terceiro para criação das imagens (recomendado Norton Ghost)
• Micro para insalação do aplicativo que irá criar as imagens
• Disquete de 1.44 MB para criação de disco de boot via rede (Caso esse método seja o escolhido).
• HUB/SWICHT ou placa de rede adicional para utilização de cabo Crossover.
• Kit de ferramentas
• Gravador de CD/DVD
• Checklist para criação das imagens (incluindo testes).
• Outros...

Nos testes de laboratório devemos contemplar testes de compatibilidade do Windows XP com as aplicações mais utilizadas nas versões anteriores como: Windows 98 e Windows NT.
...

Duplicação e Distribuição de Desktops - Parte - I

2008-10-10T06:29:00.001-07:00

Duplicação e distribuição de desktop´s utilizando o
System Preparation Tool – SYSPREP

Por Marcelo Montezuma / Daniel Henrique Corderiro

Mais uma vez tive a oportunidade de desenvolver junto com meu camarada Daniel, um projeto muito interessante que resultou na utilização do SYSPREP da Microsoft em nossas imagens para duplicação de desktops. Só pra vocês terem idéia do poder dessa ferramenta, reduzimos inicialmente o nosso acervo de imagens que era de 22 duas imagens diferentes para apenas 02, isso mesmo! 02 imagens.

Como trata-se de um documento longo e cheio de detalhes, resolvi dividí-lo em partes.

Uma outra coisa muito importante é o fato de que essa publicação é destinada apenas como um apoio para consultas caso alguém deseje fazer essa implantação e provavelmente deverá ser alterado e ajustado as necessidades de seu ambiente.

Em nosso caso ele atendeu perfeitamente aos nosso objetivos e expectativas.

boa sorte!

Introdução.

Será necessário um bom planejamento para conseguirmos alcançar nossos objetivos, portanto, recomendo mais adiante alguns passos interessantes que podem servir como guia para o executor. Um dos fatores importantes que devemos observar é a necessidade de ter um membro da área de Tecnologia “cliente” ligado ao projeto e acompanhando as decisões tomadas, principalmente as que afetarão o usuário final Ex.: Lista de softwares instalados por default nas estações.

Neste documento abordaremos a duplicação de desktops utilizando o SYSPREP (descrevendo os principais passos para a instalação e configuração do Windows XP), aplicação da ferramenta System Preparation Tool, criação da Imagem Matriz para distribuição em larga escala.
A duplicação de imagens utilizando o Sysprep como ferramenta de preparação, apresenta inúmeras vantagens para a área de tecnologia podendo citar como Ex.: A redução no número de imagens criadas, redução quase que total de problemas relacionados à compatibilidade de Hardware, diminuição do tempo médio gasto para confecção de novas imagens, redução no custo com infra-estrutura para armazenamento, facilidade para o técnico de campo transportar um conjunto de mídias para aplicação em localidades remotas entre muitas outras. Como nada é perfeito, temos algumas limitações para a utilização desta ferramenta que abordaremos mais adiante.

Visão geral sobre o processo de distribuição

1. Instalar o Windows XP Pro em um computador matriz

2. Instalar outros sofwares que farão parte da Matriz como: Microsoft Office 2003 Pro, Adobe Acrobat Reader...

3. Executar o sysprep.exe para preparação da imagem Matriz com previa configuração do arquivo Sysprep.inf

4. Criar um arquivo de imagem utilizando software de terceiro (Recomendado Norton Ghost).

5. Copiar o arquivo de imagem para um servidor de distribuição.

6. Distribuir a imagem para os desktops destino.

Iniciando o planejamento e definição da estratégia.

Nesta fase iniciaremos o rascunho do projeto podendo utilizar como exemplo inicial alguns itens relacionados a seguir: Levantamento de responsabilidades (definição do responsável pelo projeto e suas atribuições); Possíveis dificuldades encontradas (compatibilidade com as aplicações existentes, requisitos de hardware); Levantar as necessidades diversas (equipe, laboratório, tempo gasto); Traçar o objetivo (Quantas imagens serão substituidas, ganho esperado) e também incluir no planejamento quantas outras necessidades o responsável do projeto julgar necessário para o sucesso do projeto como exemplo a elaboração de um bom projeto Piloto antes de aplicar em produção todas as imagens criadas

...

Seleciona e move conta de computador no AD

2008-10-10T06:28:00.001-07:00

'Esse script é interessane, pois toda vez que é executado o mesmo envia um email com
'o nome do usuário e da estação onde foi executado. Um outro ponto interessane é
'que
'também podemos controlar até quando o script será usado devido a verificação
'efetuada na linha de 'versão dentro do arquivo ID salvo dentro de um
'compartilhamento.

'Título= Seleciona e move conta de computador no AD
'Autor= Marcelo Montezuma
'versão Beta 1.0
'criada em 26/09/2007
'
'-----------------------------------------------------------------------------------------------
'Início
'-----------------------------------------------------------------------------------------------
On Error Resume Next

'-----------------------------------------------------------------------------------------------
'Constantes e variáveis
'-----------------------------------------------------------------------------------------------
Const ForAppending = 8
Const ForReading = 1
Const ADS_SCOPE_SUBTREE = 2
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing", _
cdoSendUsingPort = 2, _
cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objDialog = CreateObject("UserAccounts.CommonDialog")

objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

Set objWshNet = CreateObject("Wscript.Network")
Var_StrPC_Name = LCase(objWshNet.ComputerName)
Set objRootFile = strName

strPClocal = objShell.ExpandEnvironmentStrings("%computername%")
strUserLocal = objShell.ExpandEnvironmentStrings("%username%")
'Título que será exibido nas caixas de diálogo.
strLogoMarca = "Scriptonita"
strVersao = ""
'Servidor para amarzenar os logs e o arquivo de controle de versão.
strFileImport = "\\servidor\pasta_compartilhada\id"
strFileExport2 = "\\servidor\pasta_compartilhada\" & strPClocal & "_" & strUserLocal &".log"
strFileExport3 = "\\servidor\pasta_compartilhada\geral.log"

'e-mail
'remetente do e-mail
strMailFrom = "Administrador@scriptonita.com"
'lista de e-mail separados por(;) das pessoas que serão notificadas toda a vez que o script for executado.
strMailto = "email-1@teste.com;email-2@teste.com;email-3@teste.com"
strSubject = "Active Directory Info - " & strUserLocal
strMessage = "Scriptonita"
strSMTPServer = "Servidor_de_correio"
'logfile = "c:\logteste.txt"

'-----------------------------------------------------------------------------------------------
'Mensagens
'-----------------------------------------------------------------------------------------------
strMsg1 = ("Computador" & vbCrLf &_
"------------------------" & vbCrLf & vbCrLf &_
"Digite o NOME do Computador desejado:" & vbCrLf &_
"Para sair do aplicativo, digite 0 (zero) e confirme.")

'-----------------------------------------------------------------------------------------------
'Verifica versão do script
'-----------------------------------------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRootFileK = objFSO.OpenTextFile(strFileImport, 1)
Flag=0
strKey = objRootFilek.ReadLine
If strkey = "v1" Then 'If Verifica versão
Flag = 1
Else
wscript.Echo ("Versao desatualizada, entre em contato com o administrador")
Flag =0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile3 = objFSO.OpenTextFile(strFileExport3 , ForAppending,True)
objLogFile3.WriteLine strKey & ";" & strPClocal & ";" & strUserLocal & ";" & Now
'e-mail
strMessage = "Computador :....." & strPClocal & vbCrLf &_
"Usuário :............." & strUserlocal & vbCrLf &_
"Versão :............. " & strKey & vbCrLf &_
"Hora :................ "& now
Call SendMail(strFrom,strTo,strSubject & " " & strOutputComputerName,strMessage)
WScript.Quit
End If 'Fim do If Verifica versão

'-----------------------------------------------------------------------------------------------
'Verifica Hostname e Se a versão está OK
'-----------------------------------------------------------------------------------------------
If flag =1 then

Do
strName = InputBox(strMsg1,"Seleciona PC " & strLogoMarca & strVersao,Var_StrPC_Name)
If strName = "0" Then WScript.Quit(1)
Loop Until strName <> ""

'-----------------------------------------------------------------------------------------------
'Verifica e trata e exibe o nome da OU atual
'-----------------------------------------------------------------------------------------------

objCommand.CommandText = "Select * from 'LDAP://DC=SEU_DOMÍNIO,DC=Corp,DC=Net' " & "Where objectClass='computer' AND Name='" & strName & "'"
Set objRecordSet = objCommand.Execute

'OU Destino
Set objNewOU = GetObject(strDestinyLDAP)

'OU Origem
strSource = objRecordSet.Fields("ADSPath")

'Separa a OU do Path
Acum = split(strSource, ",")
strA1 = acum(0)
strA2 = acum(1)

'Trata o Nome da OU
Acum2 = split(strA2, "=")
strB1 = acum2(0)
strB2 = acum2(1)

strMsg = "Este PC está atualmente na OU:"& vbCrLf & strB2 & vbCrLf & vbCrLf&_
"Caminho completo: "& strSource & vbCrLf & vbCrLf &_
"Deseja continuar a operação?"

strMsgVal = MsgBox (strMsg,vbYesNo, "Validação da Operação " & strLogoMarca & strversao)

'log

Set objLogFile3 = objFSO.OpenTextFile(strFileExport3 , ForAppending,True)
objLogFile3.WriteLine strHost & ";" & strSource & ";" & strPClocal & ";" & strUserLocal & ";" & Now

'fim do log

If strMsgVal = "6" Then

'-----------------------------------------------------------------------------------------------
'Entrada de dados
'-----------------------------------------------------------------------------------------------
Do
strOpcao = InputBox ("INFORME O NUMERO DA OPCAO DESEJADA:" & vbCrLf &_
"----------------------------------------------------------------------------------------------------------------" & vbCrLf &_
" 1 - DESCRIÇÃO DA OU A" & vbCrLf & vbCrLf &_
" 2 - DESCRIÇÃO DA OU B " & vbCrLf & vbCrLf &_
" 3 - DESCRIÇÃO DA OU C" & vbCrLf & vbCrLf &_
" 4 - DESCRIÇÃO DA OU D " & vbCrLf & vbCrLf &_
" 5 - DESCRIÇÃO DA OU E" & vbCrLf & vbCrLf &_
" 6 - PADRAO (RJ) " & vbCrLf & vbCrLf &_
" 7 - NOTEBOOK (RJ)" & vbCrLf & vbCrLf &_
" 8 - VIP (RJ) " & vbCrLf & vbCrLf &_
" 9 - SUPORTE (RJ)" & vbCrLf & vbCrLf &_
" 0 - SAIR" & vbCrLf & vbCrLf ,"Seleciona OU Destino " & strLogoMarca & strversao,"0")

If strOpcao = "0" Then WScript.Quit(1)
Loop Until strOpcao <> ""

'-----------------------------------------------------------------------------------------------
'Seleciona a OU Correta
'-----------------------------------------------------------------------------------------------
srtCheckPoint = 0

Select Case strOpcao

Case "1"
srtCheckPoint = 1
strPerfil = "DESCRIÇÃO DA OU A"
strFil = "A"
strReg = "Regional A"
strDestinyLDAP = "LDAP://OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case "2"
srtCheckPoint = 1
strPerfil = "DESCRIÇÃO DA OU B"
strFil = "B"
strReg = "Regional B"
strDestinyLDAP = "LDAP://OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case "3"
srtCheckPoint = 1
strPerfil = "DESCRIÇÃO DA OU C"
strFil = "C"
strReg = "Regional C"
strDestinyLDAP = "LDAP://OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case "4"
srtCheckPoint = 1
strOUDest = "DESCRIÇÃO DA OU D"
strPerfil = "D"
strFil = "D"
strReg = "Regional D"
strDestinyLDAP = "LDAP://OU=" & strOUDest & ",OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case "5"
srtCheckPoint = 1
strOUDest = "DESCRIÇÃO DA OU E"
strPerfil = "E"
strFil = "E"
strReg = "Regional E"
strDestinyLDAP = "LDAP://OU=" & strOUDest & ",OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case "6"
srtCheckPoint = 1
strPerfil = "Padrao"
strFil = "RJ"
strReg = "Regional RJ"
strDestinyLDAP = "LDAP://OU="& strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case "7"
srtCheckPoint = 1
strPerfil = "Notebooks"
strFil = "RJ"
strReg = "Regional RJ"
strDestinyLDAP = "LDAP://OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case "8"
srtCheckPoint = 1
strPerfil = "Vip"
strFil = "RJ"
strReg = "Regional RJ"
strDestinyLDAP = "LDAP://OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case "9"
srtCheckPoint = 1
strPerfil = "Suporte"
strFil = "RJ"
strReg = "Regional RJ"
strDestinyLDAP = "LDAP://OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",OU=Estacoes,DC=SEU_DOMINIO,DC=corp,DC=net"

Case Else
WScript.Echo ("Opcao incorreta, o aplicativo será encerrado" )
WScript.Quit(1)

End Select

If srtCheckPoint = 1 then

objCommand.CommandText = "Select * from 'LDAP://DC=SEU_DOMINIO,DC=Corp,DC=Net' " & "Where objectClass='computer' AND Name='" & strName & "'"
Set objRecordSet = objCommand.Execute

'Destiny OU
Set objNewOU = GetObject(strDestinyLDAP)

'Source OU
strSource = objRecordSet.Fields("ADSPath")
strHostTemp = "CN=" & strName
Set objMoveComputer = objNewOU.MoveHere (strSource, strHostTemp)
objRootFile.Close

'Log
Set objLogFile2 = objFSO.OpenTextFile(strFileExport2 , ForAppending,True)
objLogFile2.WriteLine strHost & ";" & strSource & ";" & strDestinyLDAP & ";" & strPClocal & ";" & strUserLocal & ";" & Now
Set objLogFile3 = objFSO.OpenTextFile(strFileExport3 , ForAppending,True)
objLogFile3.WriteLine strHost & ";" & strSource & ";" & strDestinyLDAP & ";" & strPClocal & ";" & strUserLocal & ";" & Now
'e-mail
strMessage = "Computador :....." & strPClocal & vbCrLf &_
"Usuário :............." & strUserlocal & vbCrLf &_
"Versão :............. " & strKey & vbCrLf &_
"Hora :................" & Now & vbCrLf & vbCrLf &_
"OU de Origem:........." & strSource & vbCrLf & vbCrLf &_
"OU de Destino:........" & strDestinyLDAP & vbCrLf
Call SendMail(strFrom,strTo,strSubject & " " & strOutputComputerName,strMessage)

'Fim do Log

WScript.Echo "Fim do processo."

End If

Else

WScript.Echo "Processo finalizado pelo usuário"
End If
End If
objLogFile2.Close
objLogFile3.Close
objRootFile.Close

WScript.Quit(1)

'------------------------------------------------------------------------
'Function SendMail - email the warning file (RETIRADO DA INERNET)
'------------------------------------------------------------------------
Function SendMail(strFrom,strTo,strSubject,strMessage)
Dim iMsg, iConf, Flds

'// Create the CDO connections.
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

'// SMTP server configuration.
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
'// Set the SMTP server address here.
.Item(cdoSMTPServer) = strSMTPServer
.Update
End With

'l.close

'Dim r
'Set r = ws.OpenTextFile (logfile, ForReading, False, TristateUseDefault)
'strMessage = r.readall

'// Set the message properties.
With iMsg
Set .Configuration = iConf
.To = strMailTo
.From = strMailFrom
.Subject = strSubject
.TextBody = strMessage
End With

'iMsg.AddAttachment wsuslog
iMsg.HTMLBody = replace(strMessage,vbnewline,"
")
'// Send the message.
on error resume next

iMsg.Send ' send the message.
Set iMsg = nothing

End Function

Seleciona e move conta de computador baseado no IP,Localização, Sistema Operacional e Chassis

2008-10-10T06:25:00.000-07:00

'O script a seguir serve para ajudar na organização de seu AD,ele efetua uma série
'de filtros como:Sistema Operacional, Range de IP, Chassis etc. Em seguida ele
'ele move a estação para a OU desejada.
'Esse script pode ser otimizado retirando a parte da verificação Desktop/Notebook,
'pois neste caso é necessário conectar a máquina destino.

'ATENÇÃO! LEMBRE-SE QUE A UTILIZAÇÃO DESTE SCRIPT É POR SUA CONTA E RISCO, POIS O
'MESMO FOI DESENVOLVIDO PARA ATENDER AS MINHAS NECESSIDADES, PORTANTO RECOMENDO A
'HOMOLOGAÇÃO E EVENTUAIS AJUSTES SEJAM EFETUADOS EM UM AMBIENTE DE TESTES ANTES DE
'UTILIZÁ-LO EM PRODUÇÃO.

'Título= Seleciona e move conta de computador baseado no IP,Localização, Sistema Operacional e Chassis
'Autor= Marcelo Montezuma
'versão Beta 1.0
'criada em 25/06/2007

'===============================================================
' Inicio
'===============================================================

On Error Resume Next

'===============================================================
' Constantes e Variáveis
'===============================================================

Const ADS_SCOPE_BASE = 0
Const ADS_SCOPE_ONELEVEL = 1
Const ADS_SCOPE_SUBTREE = 2
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Dim FlagOs, FlagIP
Dim strIP, strIPRange, str1, str2, str3, Acum1
Dim strHost, strComputer
Dim strFil, strReg, strPerfil, strOSType, Casetype
Dim objFSO, oTextOutput, objConnection, objCommand, objRecordSet, IPConfigSet, objWMIService, colChassis
Dim strDestinyLDAP, strHostTemp

'===============================================================
' Conecta o AD e seleciona os computadores do container Computers
'===============================================================

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oTextOutput = objFSO.OpenTextFile("resultado.txt", ForAppending, True)

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name, operatingSystem from 'LDAP://CN=computers,DC=SEU_DOMINIO,DC=corp,DC=net'" _
& "Where objectClass='computer' order by Name ASC"

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_ONELEVEL
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

'===============================================================
'Inicio Looping
'===============================================================

Do Until objRecordSet.EOF
strHost = objRecordSet.Fields("Name").Value
strOSType = objRecordSet.Fields("operatingSystem").Value

'===============================================================
'Verifica o Sistema Operacional
'===============================================================

Select Case strOSType

Case "Windows XP Professional"
oTextOutput.writeLine (strHost & ";" & "Sistema Operacional" & ";" & strOSType)
FlagOS = True

Case "Windows 2000 Professional"
oTextOutput.writeLine (strHost & ";" & "Sistema Operacional " & ";" & strOSType)
FlagOS = True

Case Else
oTextOutput.writeLine (strHost & ";" & "Outros")
FlagOS = False

End Select

Select Case strHost

Case "Excecao01*"
oTextOutput.writeLine (strHost & ";" & "Excecao01" & ";" & strOSType)
FlagOS = False

Case Else

End Select
'===============================================================
'Filtra o Sistema Operacional e verifica o IP da estação
'===============================================================

If FlagOS = True Then
strComputer = strHost

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

If Err.Number = 0 Then

Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfig.IPAddress)Then

For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
strIP = IPConfig.IPAddress(i)
acum1 = split(strIP, ".")
str1 = acum1(0)
str2 = acum1(1)
'str3 = acum1(2)
'str4 = acum1(3)

If str1 = 169 Or str1 = 0 Or str1 = "" Then

Debug.WriteLine srtIP

Else

strIPRange = str1 & "." & str2

End If
Next

End If
Next

'===============================================================
'Filtra o endereço IP da estação.
'===============================================================

Select Case strIPRange

Case "10.20","10.21","10.22","10.24"
strFil = "RJ"
strReg = "Regional Rio de Janeiro"
FlagIP = True

Case "10.11"
strFil = "SP"
strReg = "Regional Sao Paulo"
FlagIP = True

Case Else
oTextOutput.writeLine (strHost & ";" & strIP & ";" & "Range não cadastrado")
Debug.WriteLine (strHost & ";" & strIP & ";" & "Range não cadastrado")
FlagIP = False
End Select

If FlagIP = True Then

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colChassis = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")

For Each objChassis in colChassis
For i = Lbound(objChassis.ChassisTypes) to Ubound(objChassis.ChassisTypes)
Casetype = objChassis.ChassisTypes(i)
Next
Next

'===============================================================
'Filtra o tipo chassis.
'===============================================================

Select case CaseType

Case "3", "4", "5", "6", "7", "15"
strPerfil = "Padrão"

Case "8", "10", "12", "14", "18", "21"
strPerfil = "Notebooks"

Case ELSE
'"Outros"

End Select

'===============================================================
' Seleciona e move a estação para a OU destino
'===============================================================

objCommand.CommandText = "Select * from 'LDAP://CN=computers,DC=SEU_DOMINIO,DC=corp,DC=net' " & "Where objectClass='computer' AND Name='" & strComputer & "'"
Set objRecordSet2 = objCommand.Execute

'Destiny OU
strDestinyLDAP = "LDAP://OU=" & strPerfil & ",OU=" & strFil & ",OU=" & strReg & ",DC=SEU_DOMINIO,DC=corp,DC=net"
Set objNewOU = GetObject(strDestinyLDAP)

'Source OU
strSource = objRecordSet2.Fields("ADSPath")
strHostTemp = "CN=" & strComputer
Set objMoveComputer = objNewOU.MoveHere (strSource, strHostTemp)
oTextOutput.writeLine (strComputer & ";" & strSource & ";" & strHostTemp)
Debug.WriteLine (strComputer & ";" & strSource & ";" & strHostTemp)
End If

Else
oTextOutput.writeLine (strComputer & ";" & Err.Description)
Debug.WriteLine (strComputer & ";" & Err.Description)

Err.Number = 0

End If

End If

'===============================================================
' Limpa valores
'===============================================================

FlagOS = False
FlagIP = False
strHost = ""
strComputer = ""
strOSType = ""
strPerfil = ""
strIP = ""

objRecordSet.MoveNext

Loop
oTextOutput.Close
objConnection.Open
'Fim

Ferramentas de busca Microsoft

2008-10-10T06:21:00.001-07:00

Além do Google é cláro, seguem algumas dicas de busca bastante interessantes para a galera do suporte.

Ops! Google?
Sim... esquecí de colocar o link http://www.google.com/microsoft

Como procurar uma mensagem de erro na base Microsoft

Como pesquisar artigos na base Microsoft

http://support.microsoft.com/search/?adv=1

Marcelo Montezuma.

Como executar um arquivo do tipo .SWF direto do Windows (sem utilizar o IE).

2008-10-09T18:34:00.001-07:00

Acreditem! vai funcionar.

Como executar um arquivo do tipo .SWF direto do Windows (sem utilizar o IE).

1 – Encontre uma apresentação em flash do tipo .EXE que já vem com o player incorporado e salve no micro.

2 – Clique com o botão direito do mouse sobre o .SWF e em seguida navegue até "Abrir com" > Escolher programa padrão...

3 – Clique em Procurar... e selecione o arquivo .EXE copiado anteriormente.

4 – Marque a opção Sempre usar esse Programa para abrir esse tipo de arquivo.

· Note que depois desse "recurso técnico" o Windows passa a incorporar a alteração.

Postado por Marcelo Montezuma

Como identificar se um determinado arquivo está infectado?

2008-10-02T13:38:00.000-07:00

A resposta para esta pergunta está no endereço:
http://www.virustotal.com.br/

VirusTotal é um serviço que analisa arquivos suspeitos e proporciona uma rápida detecção de vírus, worms, cavalos de tróia, e todos os tipos de arquivos maliciosos detectados por vários mecanismos de antivírus.

Achei o serviço interessante, pois não requer instalação e roda direto da web. Uma outra vantagem é a quantidade de mecanismos de antivirus envolvidos no processo conforme mostrado na imagem ao lado.

Tenha em mente que esse serviço não substitui o software de antivírus, mas é de grande utilidade quando a suspeita recai sobre algum arquivo que o antivírus padrão de sua estação.

Caso você disponha de algum tempo, verá que a própria microsoft recomenda a utilizaçao do site virustotal em seu guia de remoção de malware.

Bem, para verificar se um arquivo está infectado, faça o seguinte:

Acesse o site e em seguida clique em "Procurar";

Navegue até o arquivo suspeito e clique em "Enviar arquivo";

Aguarde o upload do arquivo.

Caso o arquivo já tenha sido analisado anteriormente você terá a oportunidade de olhar o relatório anterior (bem mais rápido) ou mandar reanalisar o arquivo.

Clique em "Reanalisar" e aguarde a conclusão do relatório conforme mostrado a seguir:

Você ainda tem a opção de analisar um outro arquivo e também alterar o formato do relatório.

Coloquei somente para ilustrar um executável contendo código malicioso e que foi detectado por vários laboratórios.

Conclusão:

Achei o site excelente e de grande utilidade, este site possui uma série de outros serviços que com certeza merecem ser comentados e divulgados para todos.

Créditos

VirusTotal é um serviço desenvolvido por Hispasec Sistemas, um laboratório independente de segurança em Tecnologia da Informação, que utiliza versões em linha de comando de vários antivírus, atualizados regularmente com assinaturas oficiais publicadas por seus respectivos desenvolvedores.

Essa é uma lista das companhias que fazem parte do VirusTotal com seus respectivos mecanismos de antivírus.
AhnLab (V3)
Aladdin (eSafe)
ALWIL (Avast! Antivirus)
Authentium (Command Antivirus)
AVG Technologies (AVG)
Avira (AntiVir)
Bit9 (FileAdvisor)
Cat Computer Services (Quick Heal)
ClamAV (ClamAV)
CA Inc. (Vet)
Doctor Web, Ltd. (DrWeb)
Eset Software (ESET NOD32)
ewido networks (ewido anti-malware)
Fortinet (Fortinet)
FRISK Software (F-Prot)
F-Secure (F-Secure)
G DATA Software (GData)
Hacksoft (The Hacker)
Hauri (ViRobot)
Ikarus Software (Ikarus)
K7 Computing (K7AntiVirus)
Kaspersky Lab (AVP)
McAfee (VirusScan)
Microsoft (Malware Protection)
Norman (Norman Antivirus)
Panda Security (Panda Platinum)
PC Tools (PCTools)
Prevx (Prevx1)
Rising Antivirus (Rising)
Secure Computing (SecureWeb)
BitDefender GmbH. (BitDefender)
Sophos (SAV)
Sunbelt Software (Antivirus)
Symantec (Norton Antivirus)
VirusBlokAda (VBA32)
Trend Micro (TrendMicro)
VirusBuster (VirusBuster)