Forumitbr.com.br

Script para programar a limpeza do Eventviewer , salve com a extensão .cmd e agende usando sempre um usuário Administrador

@echo off
setlocal
for /f tokens=1* %%i in ('wevtutil el') do (
if /i not %%i == System if %%j == (wevtutil cl %%i) else wevtutil cl %%i %%j
)
wevtutil cl System
endlocal

Era isso  ;)

Bom dia a todos.

Certa vez eu precisava atualizar um plugin do Citrix em todos computadores da empresa, mais de 400 estaçoes. Mas via GPO não estava dando certo.
Depois uma busca na internet encontrei o AutoHotkey.
Software free, na qual, podemos criar scripts e compilar em um arquivo .EXE

Vou demonstrar aqui como fiz o script de atualização do plugin para que todos possam ver o poder desta ferramenta.
Este software utiliza de comandos próprios, que no site voce pode encontrar sua descrição e exemplos.

Se você domina uma linguagem de programação vai ser facil o aprendizado. Não sou programador, mas tenho conhecimento básico.
Para que tudo funcione, primeiro instale o AutoHotkey (

Desenvolvimento do script

Objetivos:
1. O script, precisa remover o plugin antigo
2. Precisa reiniciar o computador após a remoção
3. Instalar a nova versão.

Para os três pontos criei o script abaixo que em seguida irei explicar cada trecho

FileGetVersion, version, C:\Program Files...

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...

Script em VBS para inventário de hardware e software, ao executar permite gerar HTML contendo tudo relacionado ao computador. Um dos mais completos disponivel na web. Ao executar é percebivel uma certa demora na coleta da informações, mas é normal.

Bom proveito  :D

PCeX Inventory System v.1.0.05 r.2405

Software de inventário escrito em VBScript unicamente com o intuito de facilitar o trabalho de Administradores de rede.

Desenvolvedores responsáveis
-------------------------------------
Artur Aragão - [email protected]
Gildo Soares - [email protected]
Vinicius Canto Xavier - [email protected]
Alexandre Teixeira - [email protected]
Flávio Bordignon - [email protected]
Rodrigo Andrade Araujo - [email protected]

Testadores
-------------
Jamal Ibrahim - [email protected]
Leandro Ribeiro da Silva - [email protected]

www.technetbrasil.com.br

Script útil para ambientes sem GPO, adicione as linhas referente ao bat no logon do usuário ou chame o script através do comando start

1 - Registro

Windows Registry Editor Version 5.00

TileWallpaper = 0
Wallpaper = C:\\Wallpaper\\Empresa.bmp

NoChangingWallpaper =dword:00000001

Salvar como wallpaper.reg no NETLOGON do seu servidor

2 - BAT

@ECHO OFF
IF EXIST C:\Wallpaper\Empresa.bmp (
GOTO END
) ELSE (
GOTO SETAWALLPAPER )
:SETAWALLPAPER
MKDIR C:\Wallpaper\
COPY \\SERVIDOR\NETLOGON\Empresa.bmp C:\Wallpaper\
REGEDIT.EXE /S \\SERVIDOR\NETLOGON\wallpaper.reg
GOTO END
:END

Salvar como APLICAWALLPAPER.BAT no NETLOGON do servidor ou adicionar as linhas ao script de logon atual

O uso do wallpaper em formato bmp é mais aconselhado por que não depende do recurso Active Desktop habilitado nas estações.

Buenas, peguei um servidor com Windows 2000 sem o ReskitNT2000 instalado e precisava agendar o shutdown do mesmo uma vez por semana, como sabemos nem o NT e nem o 2000 possuem o comando nativo. Não encontrei o Reskit na versão correta do servidor e tive que apelar para outra alternativa. Segue em anexo um substituto OpenSource ao shutdown.

Diferente do shutdown nativo do Windows este não possui GUI, ele é especifico para linha de comando mesmo.

Segue exemplo de como deixei:

1 - Copie o shutdown.exe para a pasta C:\windows\system32

2 - Crie um BAT com o conteúdo ( Ao executar aguarda 5 minutos e reinicia )

@ECHO OFF
C:\windows\system32\shutdown.exe -r +5

3 - Agende o BAT no Agendador de Tarefas do servidor

A partir da versão 2010 a Microsoft disponibilizou uma chave de registro muito útil que nos auxilia a limitar o tamanho dos anexos que podem ser inseridos no corpo do email pelo usuário.

Para Office 2010 com limite de 10mb

Windows Registry Editor Version 5.00
MaximumAttachmentSize =dword:00010240

Para Office 2013 com limite de 10mb

Windows Registry Editor Version 5.00
MaximumAttachmentSize =dword:00010240

Infelizmente não funciona com versões anteriores do Office, salve os scripts com extensão .reg e basta importar na máquina.

Segue dois scripts batch muito úteis para sincronização entre servidor ftp e cliente ou vice e versa. Ambos bem comentados  ;)

Baixando novos arquivos

@Echo Off

REM -- Define File Filter, i.e. files with extension .txt
Set FindStrArgs=/E /C: .txt

REM -- Extract Ftp Script to create List of Files
Set FtpCommand=ls
Call:extractFileSection - > %temp%\%~n0.ftp
Rem Notepad %temp%\%~n0.ftp

REM -- Execute Ftp Script, collect File Names
Set FileList=
For /F Delims= %%A In (' Ftp -v -i -s: %temp%\%~n0.ftp |Findstr %FindStrArgs% ') Do (
    Call Set FileList=%%FileList%% %%A
)

REM -- Extract Ftp Script to download files that don't exist in local folder
Set FtpCommand=mget
For %%A In (%FileList%) Do If Not Exist %%~A Call Set FtpCommand=%%FtpCommand%% %%~A
Call:extractFileSection - > %temp%\%~n0.ftp
Rem Notepad %temp%\%~n0.ftp

For %%A In (%FtpCommand%) Do Echo.%%A

REM -- Execute Ftp Script, download files
ftp -i -s: %temp%\%~n0.ftp
Del %temp%\%~n0.ftp
GOTO:EOF...

Para personalizar, edite as linhas de registro insira a imagem .bmp do anexo com tamanho máximo de 120x120 px em C:\Windows\System32\oemlogo.bmp . Após editado importe o arquivo de registro executando o mesmo.

Windows Registry Editor Version 5.00

Model = PC Empresarial modelo Luxo
Manufacturer = ETH1 Consultoria
Logo = C:\\windows\\system32\\oemlogo.bmp
SupportPhone = (51) 3030-6000 (51) 9999-4444
SupportURL = www.eth1.com.br
SupportHours = De segunda a sexta sem fechar ao meio dia

Resultado

Script para desabilitar a porta USB via registro. Abra o bloco de notas copie este código e salve com a extensão .vbs

Bloqueando

Dim WSHShell
Set WSHShell = WScript.CreateObject( WScript.Shell )

WSHShell.RegWrite HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start ,4 , REG_DWORD

Set WSHShell = nothing

Liberando

Dim WSHShell
Set WSHShell = WScript.CreateObject( WScript.Shell )

WSHShell.RegWrite HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start ,3 , REG_DWORD

Set WSHShell = nothing

Esse Script é muito útil para se você quiser divulgar um link na área de trabalho das estações do seu domínio, ele cria um atalho com a possibilidade de um ícone personalizado, que abre uma página na Internet, ou na Intranet no navegador padrão da máquina.

set WshShell = WScript.CreateObject( WScript.Shell )
strDesktop = WshShell.SpecialFolders( Desktop )

set oUrlLink = WshShell.CreateShortcut(strDesktop & \NOME DO LINK.lnk )
oUrlLink.TargetPath =
oUrlLink.IconLocation = CAMINHO PARA UM .ico
oUrlLink.Save

VBS para automatização desta tarefa.

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

Set colItems = objWMIService.ExecQuery( Select * From MicrosoftDNS_Cache )

For Each objItem in colItems
    objItem.ClearCache()
Next

Segue alguns exemplos para manipulação do firewall do windows. Lembrando que em ambientes com Windows Server todas estas opções podem ser feitas através de GPO. Samba4 também possui todos os recursos. O uso dos scripts seria voltado para máquinas fora do dominio ou auxilio na automação de alguma tarefa.

Liberando uma aplicação no perfil padrão

Set objFirewall = CreateObject( HNetCfg.FwMgr )
Set objPolicy = objFirewall.LocalPolicy
Set objProfile = objPolicy.GetProfileByType(1)

Set objApplication = CreateObject( HNetCfg.FwAuthorizedApplication )
objApplication.Name = Real VNC 4
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = C:\Program Files\RealVNC\winvnc4.exe
objApplication.RemoteAddresses = *
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objProfile.AuthorizedApplications
colApplications.Add(objApplication)

Removendo uma aplicação liberada

Set objFirewall = CreateObject( HNetCfg.FwMgr )
Set objPolicy =...

Esse script mapeia, de forma automática, unidades de rede nas estações de trabalho de acordo com o grupo do usuário.

Edite dentro do ‘Select Case’ de acordo com os grupos e compartilhamento de sua rede.

On Error Resume Next

set objNetwork= CreateObject( WScript.Network )
strDom = objNetwork.UserDomain
strUser = objNetwork.UserName
Set objUser = GetObject( WinNT:// & strDom & / & strUser &  ,user )

For Each objGroup In objUser.Groups

    Select Case objGroup.Name

        Case Grupo Financeiro
If Not FSODrive.DriveExists( Y: ) Then
objNetwork.MapNetworkDrive Y: , \\SERVIDOR\FINANCEIRO
End If

        Case Grupo Vendas
If Not FSODrive.DriveExists( Y: ) Then
objNetwork.MapNetworkDrive Y: , \\SERVIDOR\VENDASINTERNAS
End If

    End Select

Next

wscript.quit

Bom proveito  :D

Para quem ainda tem Windows Server 2003 rodando por ai, e uma unidade DAT ainda funcional, segue um script simples para fazer backup em unidade DDS através da aplicação nativa do Windows NTBackup. Funciona excepcionalmente, é uma pena a Microsoft ter descontinuado esta aplicação  :-[ , Vamos lá ?

Pré requisito:

Baixe os arquivos em anexo e crie uma pasta na unidade C do servidor chamada C:\BACKUP\ , dentro dela uma pasta com o nome LOGS, e copie os arquivos do anexo para a raiz da pasta BACKUP. O Arquivo BACKUP.BAT é quem faz a rotina acontecer, já o arquivo LISTA.BKS é os diretórios que devem ser levados em sua rotina de backup para a fita DDS. Após a rotina rodar, guardará um LOG com todas as ações realizadas em um arquivo separado por execução na pasta C:\BACKUP\LOGS\. Vá até o gerenciador de dispositivos do servidor e copie a label ou nome do disposito DDS por extenso, e insira no arquivo BACKUP.DAT no campo: LABEL DO SEU DISPOSITIVO AQUI , após ajuste os diretórios que deseja...

Cansado de receber reclamações da diretoria da empresa sobre os usuários deixarem suas máquinas ligadas após o expediente ou mesmo esquecerem ligadas durante finais de semana e feriados desperdiçando energia elétrica ? Muito bem, o script tem esta missão, desligar as máquinas do seu dominio em um horário programado. Seu funcionamento é simples, nada mais é do que um BAT emitindo o comando shutdown no nome das máquinas contidos em um arquivo TXT, você deve editar o arquivo txt inserindo o nome das estações de trabalho um por linha, ficando conforme o exemplo abaixo:

FINANCEIRO01
FINANCEIRO02
COMPRAS01
COMPRAS02
VENDAS01
VENDAS02
VENDAS03

E assim por diante

Ó código do arquivo BAT é o seguinte:

@ECHO OFF
FOR /F %%i IN (ESTACOES.TXT) DO SHUTDOWN /s /t 01 /m %%i

Salve o arquivo txt no mesmo diretório do bat e agende a execução no horário desejado através do Agendador de Tarefas do seu servidor. E era isso, simples não ?

Bom proveito  8)

Primeiramente deve-se criar e salvar em um compartilhamento (pode ser o netlogon) um script .vbs com o conteúdo abaixo:

strComputer = “.”
Set colAccounts = GetObject(“WinNT://” & strComputer & “,computer”)
Set objUser = GetObject(“WinNT://” & strComputer & “/Administrador, user”)
objUser.SetPassword “senha”
objUser.SetInfo

Depois seguir os passos:

1 - Criar uma nova Unidade organizacional chamada “estacoes”.

2 - Colocar os computadores cadastrados no dominio dentro dela.

3 - Criar uma nova policy vinculada a essa OU em: configurações do computador / configurações do windows / scripts / inicializar

4 -  Informar o local do arquivo de script vbs criado. ex.: \\SEUSERVIDOR\NETLOGON\RESETASENHA.VBS

5 -  Reiniciar as estações

6 -  Correr pro abraço… hehehe

Observações:

Obviamente deve-se observar se o idioma do sistema é ingles ou português. Adaptando o nome de usuário administrator, ou administrador no script, e escolhendo a senha desejada no campo objUser.SetPassword...

Não é obrigatório que a estação esteja ingressada no dominio para que receba atualizações vindas do WSUS. Máquinas fora do dominio ou mesmo versões Home Edition podem receber atualizações normalmente. Para isto basta importar as seguintes linhas de registro:

Windows Registry Editor Version 5.00

WUServer =
WUStatusServer =

UseWUServer =dword:00000001
NoAutoUpdate =dword:00000000
AUOptions =dword:00000004
ScheduledInstallDay =dword:00000000
ScheduledInstallTime =dword:0000000c
DetectionFrequencyEnabled =dword:00000001
DetectionFrequency =dword:00000002

Defina SERVIDORWSUS com o nome DNS ou IP do seu servidor onde se encontra rodando o serviço. Salve o código como .reg e basta importar nas máquinas. Após importar reinicie o computador. Para forçar a sincronização você ainda pode rodar o comando:

wuauclt.exe /detectnow /resetauthorization

Com isto obrigatoriamente a estação deve começar a se reportar ao WSUS.

O REG está com a politica de baixar updates todos os...

Segue um script muito util para adicionar ao final da rotina do NTBACKUP, após conclusão ele pega o log do backup e envia por email.

Código:

Option Explicit

‘ ***************************************************************
‘ * Notificação por E-mail para o NTBackup
‘ ***************************************************************

‘ Variavéis
Dim oFSO, oWshNetwork, oCDO, oFolder, oFiles, oFile
dim strFileName, strComputerName

‘ Cria Objetos
Set oFSO = CreateObject(“Scripting.FileSystemObject”)
Set oWshNetwork = WScript.CreateObject(“WScript.Network”)

‘ Seta Constantes
Const BACKUP_LOG_PATH = “DIRETORIO DE ARMAZENAMENTO DOS LOGS”
Const EMAIL_RECIPIENT = “EMAIL DE DESTINO”

‘ Seta variaveis Default
strFileName = “”
strComputerName = oWshNetwork.ComputerName

‘ Inicia o Script
Set oFolder = oFSO.GetFolder(BACKUP_LOG_PATH)

Set oFiles = oFolder.Files

For Each oFile in oFiles
If oFSO.GetExtensionName(oFile.Name) = “log” Then
If DateValue(oFile.DateLastModified) = Date() Then...

Sabe aquele momento tenso, em que você precisa do endereço MAC do usuário para criar uma reserva no DHCP ou mesmo uma regra no Firewall baseada em MAC e você tem uma enorme dificuldade para conseguir extrair esta informação do usuário ?

Então, é pra isto que serve este script em VBS, o usuário irá executar e você só precisa solicitar as informações que irão aparecer na tela. Lembrando que o script irá listar todos os dispositivos de rede da máquina em questão.

Segue o código

strComputer = .

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

Set colAdapters = objWMIService.ExecQuery _
    ( SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True )

n = 1

For Each objAdapter in colAdapters

  WScript.Echo         ADAPTADOR DE REDE ENCONTRADO
  WScript.Echo DISPOSITIVO =  & objAdapter.Description
  WScript.Echo ENDEREÇO MAC =  & objAdapter.MACAddress

  If Not IsNull(objAdapter.IPAddress) Then...