Forumitbr.com.br

Gostaria de ver se alguém poderia me ajudar a corrigir meu script em vb, ele está funcionando deletando os arquivos e pastas, porém não está registrando no log de deletados e erros, como faço para que o script registre as informações no log. segue abaixo o script.
Option Explicit

Dim pasta_alvo, dias_para_deletar, caminho_logs, log_erros, log_deletados
Dim objFSO, objFolder, dateThreshold, logStream, errorStream

' Configurações
pasta_alvo = E:\Teste123\PastaX ' Substitua pelo caminho da pasta que deseja limpar
dias_para_deletar = 01 ' Número de dias para manter os arquivos antes de excluí-los

' Caminho dos logs
caminho_logs = C:\Log\Logs ' Substitua pelo caminho onde deseja armazenar os logs
log_erros = caminho_logs & \erros.log
log_deletados = caminho_logs & \deletados.log

' Cria o diretório de logs se não existir
Set objFSO = CreateObject( Scripting.FileSystemObject )
If Not objFSO.FolderExists(caminho_logs) Then
    objFSO.CreateFolder(caminho_logs)
End If

' Verifica se a...

Um script que irá criar automaticamente um arquivo de assinatura no Outlook dos usuários. Isso é útil para uma organização que quer garantir que eles tenham uma aparência consistente para seus usuários. O pacote zipado contem os arquivos necessários e um README para os passos. Lembrando que as informações de nome, telefone e tudo mais deve ser preenchidos no AD.

Escrito em VBScript e foi testado em uma combinação de

Windows XP
Windows 7
Office 2007
Office 2010

Quando o script é executado no momento do logon que coleta dados dos usuários propriedades do Active Directory atual conta (atributos), exemplo abaixo.

Uma vez que as propriedades da conta necessárias foram coletadas pelo script de alguma validação e formatação é aplicada para assegurar que a informação parece correto. Esta informação é combinada com arquivos de modelo para produzir a assinatura final Outlook.

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  ;)

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

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