Forumitbr.com.br

Olá,

Segue abaixo o vbscript definitivo para automatizar o processo de atribuição do wallpaper para as estações Windows XP / 7 / 8.

Esse vbscript atende todas as resoluções de tela, (incluindo as resoluções das conexões via TS que sempre foge do padrão como por exemplo 1364X768 - 1280X960)

VBScript em três etapas:

1. Detectar a resolução de tela atual.
2. Copia o papel de parede para a máquina local.
3. Definir o papel de parede como padrão.

IMPORTANTE:

Apenas os campos em vermelho deverão ser preenchido com suas informações, no exemplo abaixo usarei as informações a seguir como padrão:

C:\MeuSistema\Wallpaper
Local onde será guardado o papel de parede (máquina local).

\\SERVIDOR\DIVERSOS\WALLPAPER
Local onde está armazenados todos os papéis de parede disponíveis e com suas respectivas resoluções.

Blue_ (resolução) .bmp
Nome do meu papel de parede;

Obs.: Todos os wallpapers deverão ter o mesmo padrão de nome mudando apenas a resolução.

Ex: Blue_1366x768.bmp...

Segue VBS para desligamento automático dos computadores do domínio contidos em uma OU especifíca do AD.

Salvar como .vbs , Edite o campo mencionado antes de executar.

'Script para Massshutdown - shutdown.Vbs
'Por Marcelo Leães - [email protected]
'Retirado do fórum Itbr.org

dim objPing 
dim objStatus 
dim strComputer 

'Aqui você deve definir o servidor AD com o nome qualificado e a OU onde serão localizados os computadores do domínio.
'Exemplo: LDAP://servidor.contoso.local/ou=Computers,dc=test,dc=local

Set ou = GetObject( LDAP://servidor.contoso.local/ou=Computers,dc=contoso,dc=local )
 
For Each obj in ou

If obj.class = computer Then
    name = mid(obj.Name,4)
    Shutdown(name)
End If
   
Next 

Function Shutdown(strComp) 
Set objPing = GetObject( winmgmts:{impersonationLevel=impersonate} )._ 
ExecQuery( select Replysize from Win32_PingStatus where address = ' & strComp & ' )

For Each objStatus in objPing 
If  IsNull(objStatus.ReplySize) Then
 ...

Segue batch para deploy automatizado do LibreOffice. Para ter sempre a versão mais atual visite:

Efetue download dos instaladores Programa principal e Ajuda interna do LibreOffice em português (Brasil)

Crie um compartilhamento de rede onde todos os usuários tenham acesso somente leitura e os Domain Admins com escrita.

Agende o seguinte script para executar na GPO de inicialização dos computadores:

@ECHO OFF

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Script para deploy do LibreOffice
:: Por Marcelo Leães - [email protected]
:: Retirado do Fórum Itbr.org - Mantenha os créditos ;)
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

SETLOCAL
:: Localiza o nome do usuário e nome da empresa que foram informados na instalação do Windows
FOR /F tokens=* %%A IN ('WMIC.EXE OS Get Organization^,RegisteredUser /Format:List') DO (
SET %%A>NUL
)
PUSHD %~dp0
:: Modo...

Segue batch para deploy do Adobe Flash. Para ter sempre a versão mais atual visite:

Efetue download dos instaladores na versão .msi , lembrando que o Windows 8 em diante não necessita mais da versão IE.

Salve em um compartilhamento da rede e agende o seguinte script para executar na inicialização dos computadores:

@ECHO OFF
SET MSIArgs=/qn /norestart REBOOT=ReallySuppress
MSIEXEC.EXE /I \\servidor\share\flash_ie.msi %MSIArgs% /l \\servidor\share\flash_ie_%computername%.log
MSIEXEC.EXE /I \\servidor\share\flash_outros.msi %MSIArgs% /l \\servidor\share\flash_outros_%computername%.log

Bom proveito  ;)

Segue batch para inserir apontamentos fixos no arquivo hosts do Windows. Lembrando que o mesmo deve ser rodado na GPO do tipo computers para ter permissão de escrita neste arquivo. Se for somente executar, execute com permissões de Administrador.

Personalize a gosto.

@ECHO off
setLocal EnableDelayedExpansion
cd C:\Windows\system32\drivers\etc
find /i “www.exemplo.com.br” nul
if errorlevel 1 (echo 127.0.0.1 www.exemplo.com.br >> hosts && echo 127.0.0.1 www2.exemplo.com.br >> hosts && echo 127.0.0.1 servidor.exemplo.com.br >> hosts)
exit

Seguem dois scripts para manipulação dos parâmetros de configuração da rede local. Conforme os nomes sugerem, a função deles é de setar as informações no Seta-FIXO.vbs e retornar a configuração por DHCP no Seta-DHCP.vbs . Ambos devem ser executados do Administrador no Windows 7/8 ou ter o UAC desabilitado, no XP pode ser executado pelo próprio usuário. Seguem códigos:

Seta-FIXO.vbs

' =================================================================================================
' Script para setar IP fixo na estação de trabalho
' Por Marcelo Leães - [email protected]
' =================================================================================================

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

Set colNetAdapters = objWMIService.ExecQuery _
    ( Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE )

' Defina aqui IP, máscara, gateway e servidores DNS...

Bom dia,

Segue dois scripts para automatizar o deploy do Spark em seus computadores do domínio. O primeiro executa na GPO do tipo Computers, instalando o Spark e o segundo executa no tipo Users coletando o usuário logado e inserindo as informações de conexão no arquivo de configuração do Spark restando apenas o usuário informar a sua senha para começar a utilizar.

Bastante atenção aos caminhos, altere conforme seu ambiente e depois é só adicionar na GPO de inicialização de usuários e computadores  ;)

** No arquivo Spark_GPOUsers.cmd é possível personalizar diversos campos incluindo autenticação SSO, teste a vontade !

Spark_GPOComputers.bat

@ECHO OFF

set spark_installer=\\seuservidor\compartilhamento\spark270.exe
set spark_exe=%ProgramFiles%\Spark\Spark.exe

if exist %spark_exe% (
goto END
) else (
goto INSTALL )

:INSTALL

start /wait Instalando o Spark... %spark_installer% -q -console -dir %ProgramFiles%\Spark

:END

Spark_GPOUsers.cmd

@ECHO OFF

setlocal...

Segue VBS para teste da conexão local e coleta dos testes em arquivo txt. O segundo script é um opcional para validar a conexão com a internet, ambos passando informações ao usuário para facilitar um pouco a tarefa de suporte. Bom proveito !  ;)

** Para ambos, salvar com a extensão .vbs e depois é só rodar

Teste de Conectividade Local

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' Teste de conexão e coleta de resultados em VBScript
' Autor James Wright -
' Traduzido por Marcelo Leães - [email protected]
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

On Error Resume Next

  Dim objFSO : Set objFSO = CreateObject( Scripting.FileSystemObject )
  Dim WSHShell : Set WSHShell = wscript.CreateObject( wscript.shell )
  Dim strLogFile
  strLogFile  = Teste_de_Conectividade_Resultados.txt
  Const ForReading = 1
  Const ForWriting = 2
 ...

Segue batch para executar em estações clonadas que rodam em ambientes virtuais. Após rodar o batch adicione novamente a máquina em seu grupo na console do Wsus que as atualizações começarão a ser enviadas normalmente  ;)

Basta editar o caminho do servidor Wsus , caso use a porta 80 não precisa informar a porta.

@ECHO OFF
REG Delete HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate /v SusClientId  /f
REG Delete HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate /v SusClientIdValidation  /f
REG Add HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate /v WUServer /t REG_SZ /d
/F
REG Add HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate /v WUStatusServer /t REG_SZ /d /F
gpupdate
net stop wuauserv /y
net stop BITS /y
rd C:\WINDOWS\SoftwareDistribution /s /Q
del c:\windows\windowsupdate.log
regsvr32 WUAPI.DLL /s
regsvr32 WUAUENG.DLL /s
regsvr32 WUAUENG1.DLL /s
regsvr32 ATL.DLL /s
regsvr32 WUCLTUI.DLL /s
regsvr32 WUPS.DLL /s
regsvr32 WUPS2.DLL /s
regsvr32...

Segue script para instalação automatizada de fontes no Windows XP e Windows 7/8. Informe o caminho onde se encontram as fontes que serão instaladas. A extensão das mesmas deve ser .otf ou .ttf , segue script:

' Instalador automatizado de fontes do Windows
' Suporta fontes .otf e .ttf
' Retirado do fórum ITBR.ORG
'

Option Explicit

Dim objShell, objFSO, wshShell
Dim strFontSourcePath, objFolder, objFont, objNameSpace, objFile

Set objShell = CreateObject( Shell.Application )
Set wshShell = CreateObject( WScript.Shell )
Set objFSO = createobject( Scripting.Filesystemobject )

' Informe o caminho das fontes
strFontSourcePath = \\FILESERVER\SHARE\Fontes\
If objFSO.FolderExists(strFontSourcePath) Then
    If objFSO.FolderExists( C:\Users\ ) Then
        ' Inicia Windows 7/8
        Set objNameSpace = objShell.Namespace(strFontSourcePath)
        Set objFolder = objFSO.getFolder(strFontSourcePath)
            For Each objFile In objFolder.files
                If...

Script para gerenciar máquinas ingressadas no seu domínio movendo diretamente para a OU definitiva e onde estão organizadas suas instalações.

Levando em consideração que você tem  OU's com os nomes das filiais PORTO_ALEGRE, SAO_PAULO e BELO_HORIZONTE e dentro de cada uma delas tem uma OU chamada COMPUTADORES e que você tenha criado um padrão para os nomes de máquinas de cada filial exemplificado abaixo:

Máquinas de São Paulo = SP-PC01, SP-PC02, etc...
Máquinas de Porto Alegre = PA-PC01, SP-PC02, etc...
Máquinas de Belo Horizonte = BH-PC01, BH-PC02, etc...

Começamos criando um .BAT inserindo as linhas de código selecionáveis abaixo, uma em cada linha do seu .BAT::

Para mover máquinas da pasta Computers para a OU Computadores que está dentro da OU SAO_PAULO :
dsquery computer cn=computers,dc=dominio,dc=local -name SP-PC* | dsmove -newparent ou=COMPUTADORES,ou=SAO_ PAULO,dc=dominio,dc=com

Para mover máquinas da pasta Computers para a OU Computadores que está dentro da OU...

Para quem ainda não conhece, existe um utilitário muito útil chamado BgInfo, desenvolvido por Bryce Cogswell.
Este app aplica papel de parede e informações no desktop do usuário para facilitar a identificação das máquinas da rede.

Você pode baixar o aplicativo em: e personalizar a vontade.

Em anexo, disponibilizo um exemplo de uso, com um wallpaper e informações necessárias na hora de prestar suporte ao usuário.

Para editar as informações basta abrir o utilitário e editar a vontade, depois clicar em aplicar.

Para utilizar, descompacte o arquivo do anexo, e copie a pasta útil e o script vbs para o NETLOGON de seu servidor.

\\CONTOSO.LOCAL\NETLOGON\INFO
\\CONTOSO.LOCAL\NETLOGON\logondesktopinfo.vbs

Após crie uma GPO em para que o aplicativo execute no logon do usuário

Diretiva de inicialização:

Configurações do Usuário -> Diretivas -> Configurações do Windows -> Scripts (Logon/Logoff)

Inserir em Logon:

\\SEUSERVIDOR\NETLOGON\logondesktopinfo.vbs

Bom proveito  ;)

VNC é uma das melhores ferramentas já inventadas não é ? Além de ser gratuito nos oferece uma gama enorme de recursos e facilidades. Mas... e quando um parque de estações ultrapassa 200, 300, 400, 500, 1000 máquinas ? Instalar uma a uma manualmente se torna uma tarefa chata e muito cansativa. Para resolver este problema existe a ferramenta VNCed , que gera pacotes MSI totalmente personalizados com configurações pré definidas pelo Administrador que podem ser aplicados e instalados através de GPO ! Que maravilha né ? Bom, vou explicar agora como utilizar esta ótima ferramenta e disponibilizarei um script de minha autoria para deixar esta tarefa um pouco mais inteligente no momento de fazer o deploy das aplicação em suas estações de trabalho. Vamos lá ?

Vamos começar pelo VNCed , sem ele não teremos os arquivos instaladores necessários.

Efetue o download da ferramenta através do link:

Descompacte em um local de sua preferência, e vamos entender a estrutura de arquivos contidos no...

Script muito util para quem não dispoem de GPO para carregar automaticamente as configurações de proxy nos navegadores.

Como alternativa é possivel deixar uma excessão para o Usuário Administrador, para que ele não utilize proxy. Para isto vamos utilizar dois scritps de registro um que importa as configurações e o outro para quando o Administrador logar limpe as mesmas.

Ele habilita o proxy para todos os protocolos e deixa a rede local como excessão de proxy

Salvar como PROXY-ON.REG na pasta NETLOGON

Windows Registry Editor Version 5.00

ProxyEnable =dword:00000001
ProxyServer = firewall.empresa.local:8080
ProxyOverride =

Salvar como PROXY-OFF.REG na pasta NETLOGON

Windows Registry Editor Version 5.00

ProxyEnable =dword:00000000

No script de logon do usuário atual, adicione as seguintes linhas:

IF %USERNAME% == Administrator GOTO MAPADMIN
REGEDIT.EXE /S \\SEUSERVIDOR\NETLOGON\PROXY-ON.REG
GOTO TZEND
:MAPADMIN
REGEDIT.EXE /S...

Segue script bat para adicionar um usuário do dominio no recurso de autologon do Windows
O mesmo pode ser utilizado em máquinas do grupo de trabalho, basta remover o DOMINIO\ no campo DefaultUsername

@ECHO OFF
REG ADD  HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon /f /v DefaultUserName /t REG_SZ /d DOMINIO\usuario
REG ADD  HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon /f /v DefaultPassword /t REG_SZ /d senhadousuario
REG ADD  HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon /f /v AutoAdminLogon /t REG_SZ /d 1

Buenas

Segue um script que eu estava trabalhando a algum tempo e hoje consegui finalizar. Ao executar ele irá exibir uma janela em HTA e iniciar um timer para o auto desligamento da estação de trabalho do usuário, caso não haja nenhuma interação desligará no tempo de 5 minutos, caso o usuário precise ficar mais um tempo na estação trabalhando poderá escolher + 15,30,60 minutos para efetuar suas tarefas. Após a estação desligará  ;)

Segue código ( salvar com a extensão .hta ), bom proveito !

Auto-desligamento

html, body {
    font-family: Verdana,Arial,Helvetica,sans-serif;
    font-size: 87%;
    line-height: 1.5em;
    margin: 0;
    padding: 0;
}
#top_body {
    clear: both;
    margin: 20px 0 0;
    text-align: center;
}
#top_body p {
    font-style: italic;
    margin: 20px 0 0;
}
#countdown {
    color: #FF0000;
    font-size: 1.4em;
    font-weight: bold;
}
h1 {
    color: #345A8B;
    font-weight: bold;
    text-transform: uppercase;
}
h2 {
    color: #FF0000;
   ...

Segue bat para auto instalar os pacotes de atualização necessários para o Windows 8.1 de forma offline.

Claro, primeiro você deve baixar os mesmos e colocar no mesmo diretório do bat  ;)

@ECHO OFF
ECHO: Instalando KB2919442
START /WAIT Windows8.1-KB2919442-x64.msu
ECHO: Instalando KB2919355
START /WAIT Windows8.1-KB2919355-x64.msu
ECHO: Instalando KB2932046
START /WAIT Windows8.1-KB2932046-x64.msu
ECHO: Instalando KB2959977
START /WAIT Windows8.1-KB2959977-x64.msu
ECHO: Instalando KB2937592
START /WAIT Windows8.1-KB2937592-x64.msu
ECHO: Instalando KB2938439
START /WAIT Windows8.1-KB2938439-x64.msu
ECHO: Instalando KB2934018
START /WAIT Windows8.1-KB2934018-x64.msu
ECHO: Processo finalizado – pressione qualquer tecla para continuar.
Pause
shutdown.exe /r /t 00
exit

Este script tem a função de coletar e enviar o status dos discos de seus servidores e enviar um email com o resumo da coleta.

Funcionamento:

Descompacte o conteúdo do arquivo zipado no diretório C:\SCRIPTS , e agende o arquivo EXECUTA.BAT no agendador de tarefas.

COLETA.VBS = Coleta as informações de disco e gera HTML para envio do email
SERVIDORES.TXT = Lista com os servidores que deseja que apareçam no relatório, adicionar os hostnames um por linha
SENDEMAIL.EXE = Software para envio de emails através do console
DISCO = Diretório de saida do HTML gerado, formato: RELATORIO-17-07-2013.HTML
EXECUTA.BAT = Responsavel por executar a rotina de coleta, anexar o arquivo de saida e disparar o email

Para o envio de email altere as linhas necessárias no arquivo EXECUTA.BAT e informe os dados de seu provedor ou servidor

SENDEMAIL.EXE -f [email protected] -t [email protected] -u Status dos Discos -o message-file= C:\SCRIPTS\DISCO\RELATORIO-%E%-%F%-%G%.HTML -s...

Segue comandos para executar as funções  ;)

Shutdown / Desligar

C:\Windows\System32\shutdown.exe -s -t 00

Restart / Reiniciar

C:\Windows\System32\shutdown.exe -r -t 00

Lock Workstation / Bloquear estação

Rundll32.exe User32.dll,LockWorkStation

Hibernate Computer / Hibernar Computador

rundll32.exe PowrProf.dll,SetSuspendState

Sleep Computer / Colocar em modo sleep

rundll32.exe powrprof.dll,SetSuspendState 0,1,0

Esse script montei com o intuito de facilitar a integração do AD com o SAMBA, onde testei em 3 Distros, entre elas são:

- Red Hat;
- Debian;
- Centos;

Link de Download:

Bara utilizar, basta baixar o arquivo, descompactar dentro do Sistema Linux, dar permissão de execução no script com nome setup.sh, e responder as perguntas referentes a ingressão. O sistema foi feito em Dialog para facilitar o entendimento das configurações e alterar apenas o que precisa, efetuando o backup dos arquivos .conf originais.

Qualquer dúvida, só ir postando.