Forumitbr.com.br

Segue script para varrer a unidade C das máquinas em busca de arquivos do tipo PST, o resultado com o caminho e o tamanho respectivo de cada pst encontrado ( tamanho em MB ) será salvo em um arquivo txt com o caminho configurado no script e cada txt com o HOSTNAME do computador coletado. Agende para executar na inicialização das máquinas através de GPO e salve o script em seu NETLOGON para executar. Depois é acompanhar os dados levantados ;)

' Script para inventário de PST
' Ajuste o caminho em que os txts com o nome de cada computador será salvo
' Insira na sua GPO do tipo Computer para inicializar junto com o Windows
' Comando:  wscript.exe \\seuservidor\netlogon\coletapst.vbs
' Retirado do Fórum ITBR.ORG - Por Marcelo Leães - [email protected]

strComputer = .

Dim WshShell
Set WshShell = CreateObject( WScript.Shell )
Set WshNetwork = CreateObject( WScript.Network )
strComputer = WshNetwork.ComputerName

Set objWMIService = GetObject( winmgmts:\\ & strComputer & \root\cimv2...

Segue script comentado. Finalidade backup de um diretório raiz e todos os seus sub diretórios
Compactando com o ZIP nativo do Windows disponível desde o Windows XP. Edite conforme necessidade  ;)

' Backup de diretório e sub-diretórios compactados
' Não necessita nenhum software adicional pois utiliza o recurso ZIP nativo do Windows
' Retirado do fórum itbr.org
' Por Marcelo Leães - [email protected]

Option Explicit
Dim arrResult

' Edite os caminhos conforme necessidade, primeiro é ORIGEM, segundo é DESTINO
' Mantenha a função GetFormattedDate para que o arquivo de saída possua Data. Atenção para não remover aspas.

arrResult = ZipFolder( C:\Dell\ , D:\Backup-compactado- & GetFormattedDate & .zip )

' Descomente este campo para receber telas de confirmação ao concluir a tarefa
' Para modo automatizado por agendador de tarefas, manter comentado.

'If arrResult(0) = 0 Then
' If arrResult(1) = 1 Then
' WScript.Echo Sucesso!!! 1 diretorio vazio foi ignorado.
' Else
' WScript.Echo...

Segue script em PS que lista todas as conexões feitas a um servidor de TS no respectivo dia.
O script coleta a informação do eventviewer, obviamente execute ele no servidor de TS logado como Administrador.

Get-EventLog -LogName Security -after (Get-date -hour 0 -minute 0 -second 0)| ?{(4624,4778) -contains $_.EventID -and $_.Message -match 'logon type:\s+(10)\s'}| %{
(new-object -Type PSObject -Property @{
TimeGenerated = $_.TimeGenerated
ClientIP = $_.Message -replace '(?smi).*Source Network Address:\s+( +)\s+.*','$1'
UserName = $_.Message -replace '(?smi).*Account Name:\s+( +)\s+.*','$1'
UserDomain = $_.Message -replace '(?smi).*Account Domain:\s+( +)\s+.*','$1'
LogonType = $_.Message -replace '(?smi).*Logon Type:\s+( +)\s+.*','$1'
})
} | sort TimeGenerated -Descending | Select TimeGenerated, ClientIP `
, @{N='Username';E={'{0}\{1}' -f $_.UserDomain,$_.UserName}} `
, @{N='LogType';E={
switch ($_.LogonType) {
2 {'Interactive - local logon'}
3 {'Network connection to shared...

Segue script bat para executar a limpeza de hosts que ficam cache no cliente da área de trabalho remota.

@echo off
reg delete HKEY_CURRENT_USER\Software\Microsoft\Terminal Server Client\Default /va /f
reg delete HKEY_CURRENT_USER\Software\Microsoft\Terminal Server Client\Servers /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Terminal Server Client\Servers
cd %userprofile%\documents\
attrib Default.rdp -s -h
del Default.rdp

Pessoal boa tarde, passei a tarde de hoje TODA tentando encontrara a solução para um problema. Em um cliente várias aplicações precisavam do RunAS para executar em ambiente de domínio, porém o parâmetro /sevecred estava me quebrando as pernas, pois os usuários descobriram que se usasse: C:\Windows\System32\runas.exe /savecred /user:dominio\aplicacoes aplicação ele rodaria qualquer aplicação ou instalador como administrador. =(
Então estava atrás de uma forma de não utilizar o savecred e de não deixar a senha disponível em texto plano para os usuários e após MUITOS testes consegui fazer isso. Pra isso dai tive que fazer uso de 2 programas diferentes:
1 - runasspc.exe -
2 - Bat2Exe -
Para resolver isso fiz o seguinte:
1 - Copiei o runasspc para C:\Windows\System32\
2 - Criei um arquivo .bat no bloco de notas com o seguinte conteúdo:
runasspc.exe /domain:dominio /user:usuario /password: Senha /program: Programa que deseja executar como administrador
3 - Usei o Bat2Exe para criar uma...

São dois scripts, um para ser executado por GPO ( altere caminho para o servidor ) e o outro a mensagem em si ( altere conforme necessidade ).  Configure o startupboasvindas.vbs para inicializar junto ao computador através de GPO. O script boasvindas.vbs quando roda emite 2 beeps para chamar a atenção do usuário e após exibe o texto personalizado. No primeiro popup informa a variavel de nome do usuário e computador, no segundo popup uma breve explicação ao usuário sobre os termos de uso da empresa.

Bom proveito  ;)

A dica vale tanto para pendrives como para hds removíveis e também para unidades locais.
Uma vez que manipularemos o ID de ponto de montagem, qualquer dispositivo pode ser montado e desmontado via script.

Para listar o ID dos dispositivos, no prompt rode:

mountvol

A saída do comando será como a imagem em anexo
Saída do comando mountvol.PNG

Com o ID do dispositivo em mãos, vamos criar os scripts necessários para montar e desmontar o mesmo

1 - Montando o dispositivo

@echo off

### Ajuste aqui o ID do volume e a letra de unidade desejada

set drive=G
set volume=\\?\Volume{cd6dd2e8-0000-0000-0000-100000000000}\

echo Mountando...
mountvol %drive%: %volume%
echo Drive Montado!

exit

2 - Desmontando o dispositivo

@echo off

### Ajuste aqui a letra de unidade desejada

set drive=G:

echo Desmontando...
mountvol %drive% /p
echo Drive Desmontado!

exit

Script para deploy e atualização automatizada do Java ou remoção também automatizada.

Escrito por Kevin Denham ( [email protected] )

Ajuste o parâmetro FileStore= para um caminho UNC onde os usuários tenham permissão de acesso.
Um arquivo de texto será criado neste diretório para controle de versão, não remova ele. Assim o download
só será feito uma única vez cada vez que existir uma versão nova do Java disponível no site da Oracle  ;)

' JRE_Updater
' Updates and optionally deploys or removes Java Runtime
' Last Update: 02/13/2016
' By Kevin Denham ([email protected])
'
'Download=0 if this is a client that is 'not' downloading
Download=1
'ModifyJRE=0 if this is a host that is 'only' downloading
Modify=1

'Location for downloaded files.  Example: FileStore= \\Server\SharedFolder\
'Leaving FileStore as uses the script's working directory
FileStore= C:\Java\  
exe32 = JRE_32.exe
exe64 = JRE_64.exe

'0 = Remove JRE, 1 = Update Existing JRE, 2 = Deploy and/or...

Segue código  ;)

Altere o notepad.exe para qualquer outra aplicação que precisar.

' Cria atalhos no Desktop com interação do Usuário
' Retirado do fórum itbr.org
' Por Marcelo Leães - [email protected]

dim r
r = msgbox( Deseja criar um atalho para o Bloco de Notas? , 36, Criar atalho... )
if r = 7 then
  wscript.quit
else
  Dim oshell, fso
  Set oshell = WScript.CreateObject( WScript.Shell )
  Set fso = CreateObject( Scripting.FileSystemObject )
  Dim shcut, d, dpath, wpath
 
      dpath = oshell.SpecialFolders( Desktop )
      wpath = fso.GetSpecialFolder(0)
  Set shcut = oshell.CreateShortcut(dpath & \Notepad.lnk )
  shcut.TargetPath = oshell.ExpandEnvironmentStrings(wpath & \Notepad.exe )
  shcut.WorkingDirectory = oshell.ExpandEnvironmentStrings(wpath)
  shcut.WindowStyle = 4
  shcut.IconLocation = oshell.ExpandEnvironmentStrings(wpath & \Notepad.exe, 0 )
  shcut.Save
end if

Segue código  ;)

' Adiciona favoritos no IE
' Retirado do fórum itbr.org
' Por Marcelo Leães - [email protected]

Const Helpdesk = 6
Set objShell = CreateObject( Shell.Application )
Set objFolder = objShell.Namespace(Helpdesk)
Set objFolderItem = objFolder.Self   
Set objShell = WScript.CreateObject( WScript.Shell )
strDesktopFld = objFolderItem.Path

' Personalize aqui conforme suas necessidades

Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & \Sistema de Chamados.url )
objURLShortcut.TargetPath =
objURLShortcut.Save

Segue código  ;)

' Lista propriedades do sistema operacional
' Retirado do fórum itbr.org
' Por Marcelo Leães - [email protected]

Set dtmConvertedDate = CreateObject( WbemScripting.SWbemDateTime )

strComputer = .

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

Set colOperatingSystems = objWMIService.ExecQuery _
    ( Select * from Win32_OperatingSystem )

For Each objOperatingSystem in colOperatingSystems
    Wscript.Echo Versão: & objOperatingSystem.Caption
    Wscript.Echo Build: & objOperatingSystem.BuildNumber
    Wscript.Echo Tipo: & objOperatingSystem.BuildType
    Wscript.Echo Boot: & objOperatingSystem.BootDevice
    Wscript.Echo Código de País: & objOperatingSystem.CountryCode
    Wscript.Echo Debug: & objOperatingSystem.Debug
    dtmConvertedDate.Value = objOperatingSystem.InstallDate
    dtmInstallDate = dtmConvertedDate.GetVarDate
    Wscript.Echo Instalado em: & dtmInstallDate
    Wscript.Echo...

Segue código comentado, ajuste conforme sua necessidade  ;)

' Script de mapeamento de Unidades
' Retirado do Fórum itbr.org
' www.itbr.org/forum
' Edite somente no campo informado no final do Script
' Para mais mapeamentos basta adicionar mais linhas com respectivas unidades e caminhos UNC

on error resume next

set network = CreateObject( WScript.Network )
set shell = CreateObject( WScript.Shell )
domainname = network.UserDomain
username = network.UserName
computername = network.ComputerName
set user = GetObject( WinNT:// & domainname & / & username)
redim groups(0)

For Each groupobj in user.Groups
        redim preserve groups(ubound(groups) + 1)
        groups(ubound(groups)) = groupobj.name
Next

Function getNextLetter()

set drivelist = network.enumNetworkDrives()
letters = ZYXWVUTSRQPONMLKJIHGFE

For i = 1 To 22
driveexists = false
drive = Mid(letters,i,1) & :

For j = 0 To drivelist.count() -1 Step 2
If drivelist.item(j) = drive Then
driveexists = true
End If...

Salve galera !

Tive uma necessidade recente para buscar arquivos duplicados no meu FileServer e tinha que apresentar em forma de relatório para cada gestor do departamento. Existem vários softwares gratuitos para tal finalidade mas procurei fazer em powershell :D

O script faz a comparação do Hash MD5 dos arquivos e imprime apenas quando houver duplicidade. Na saída ele vai armazenar o nome do arquivo, localização, data da criação, data da modificação, tamanho e o Hash do MD5.

Edite a linha 3 para inserir o path de entrada e a linha 4 para saída do arquivo.

function get-md5hash { ::ToString((new-object -TypeName System.Security.Cryptography.MD5CryptoServiceProvider).ComputeHash( ::ReadAllBytes($args)))}

$procurar = d:\dados
$resultado = c:\temp\teste.csv
Get-ChildItem $procurar -Recurse|`
?{!$_.psiscontainer}|`
Select-Object Name,Fullname,CreationTime,LastWriteTime,Length,@{Name= MD5 ;Expression={Get-md5hash $_.fullname}}|`
group MD5|?{$_.Count -gt 1}|%{$_.Group}|sort MD5|`...

Segue codigo, salvar como .vbs e rodar na estacao de trabalho que necessita fazer a descoberta da licenca.

' Coleta LicenseKey
' Script para coleta da chave de licenca do Microsoft Office versoes 2003,XP,2007 e 2010

If err.number 0 Then
    WScript.Echo ( Ocorreu um erro )
    Wscript.Quit 1001
Else
    Set WshShell = CreateObject( WScript.Shell )
    CONST HKEY_LOCAL_MACHINE = &H80000002
    CONST SEARCH_KEY = DigitalProductID
    Dim arrSubKeys(6,1)
    Dim foundKeys
    Dim iValues, arrDPID
    foundKeys = Array()
    iValues = Array()
    strComputer = .
    Set objWMIService = GetObject( winmgmts: _
    & {impersonationLevel=impersonate}!\\ & strComputer & \root\cimv2 )
    Set colProcessors = objWMIService.ExecQuery( Select * from Win32_Processor )
    For Each objProcessor in colProcessors
      Select Case objProcessor.AddressWidth
                        Case 32
                            arrSubKeys(2,0) = Microsoft Office XP
                           ...

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

Efetue download dos instaladores offline e salve em um compartilhamento de rede em que todos tenham acesso leitura.

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

@ECHO OFF
SET Prefs=WEB_JAVA=1 WEB_JAVA_SECURITY_LEVEL=M
START /WAIT \\servidor\share\jre-8u45-windows-x64.exe /s %Prefs% /L \\servidor\share\javainstall_%computername%_x64.txt
START /WAIT \\servidor\share\jre-8u45-windows-x86.exe /s %Prefs% /L \\servidor\share\javainstall_%computername%_x86.txt

Bom proveito  ;)

De boas pessoal ? Este script que compartilharei agora atende uma demanda muito necessária em estações do dominio que é setar as configurações de proxy no Mozilla Firefox e impedir que os usuários alterem estes campos ou mesmo desmarquem. Pelo mesmo arquivo de configuração também é possivel definir a página inicial do navegador e também com opção de não deixar o usuário alterar.

O Script depende de duas GPO's para poder funcionar. A primeira GPO altera a permissão na pasta C:\Arquivos de programas\Mozilla para que o script consiga copiar os arquivos necessários para dentro desta pasta durante o processo de LOGON do usuário. A segunda GPO é responsável por executar o script durante o LOGON na inicialização do Windows. O script é composto de 3 arquivos, vou explicar o funcionamento de cada um agora:

FIREFOX.BAT = Responsável pela cópia dos arquivos para a máquina do usuário, primeiro ele identifica se o sistema é 32 ou 64 bits e copia os outros dois arquivos para pasta correta....

Segue script para remover o OneDrive que vem instalado por padrão com o Windows 10.
Não existe opção disponível para remover o mesmo através do painel de controle ou outros meios.

Salve o conteúdo como .cmd e execute como Administrador

@echo off
cls

set x86= %SYSTEMROOT%\System32\OneDriveSetup.exe
set x64= %SYSTEMROOT%\SysWOW64\OneDriveSetup.exe

echo Encerrando processos do OneDrive...
echo.
taskkill /f /im OneDrive.exe > NUL 2>&1
ping 127.0.0.1 -n 5 > NUL 2>&1

echo Desinstalando o OneDrive...
echo.
if exist %x64% (
%x64% /uninstall
) else (
%x86% /uninstall
)
ping 127.0.0.1 -n 5 > NUL 2>&1

echo Removendo perfis do OneDrive...
echo.
rd %USERPROFILE%\OneDrive /Q /S > NUL 2>&1
rd C:\OneDriveTemp /Q /S > NUL 2>&1
rd %LOCALAPPDATA%\Microsoft\OneDrive /Q /S > NUL 2>&1
rd %PROGRAMDATA%\Microsoft OneDrive /Q /S > NUL 2>&1

echo Removendo o OneDrive dos paineis do Explorer...
echo.
REG DELETE HKEY_CLASSES_ROOT\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6} /f > NUL 2>&1
REG DELETE...

Segue script para auto instalar fontes do tipo True Type no Windows. Basta ter as fontes em um compartilhamento da rede e ajustar o Instala_Fontes.bat para inicializar por GPO do tipo Computers. O Instala_Fontes.vbs deve estar no mesmo diretório. Como controle é criado um arquivo na pasta do Windows chamado fontes_instaladas.txt para que o script não reinstale as fontes a cada inicialização do Windows.

Segue código de ambos:

1 - Instala_Fontes.bat

@ECHO OFF

IF EXIST c:\windows\fontes_instaladas.txt (
GOTO END
) ELSE (
GOTO FONTES )

:FONTES

C:\windows\System32\cscript.exe Instala_Fontes.vbs

:END

2 - Instala_Fontes.vbs

'===================================================================
' Deploy de fontes true type em VBScript
' Por Marcelo Leães - [email protected]
' Retirado do fórum Itbr.org
'===================================================================

Const FONTS = &H14&
Const ForAppending = 8
Dim fso
doexist = 0
dontexist = 0
Set objShell =...

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