Forumitbr.com.br

Muitas vezes nos deparamos com a necessidade de alertar usuários do dominio sobre algo importante para a empresa, ou mesmo agendar treinamentos ou coisas do tipo. A Microsoft desde a versão 98 do Windows disponibiliza o Hypertext Application que vem auxiliar bastante neste caso. A extensão .hta tem suporte a textos, imagens e muitos outros recursos do HTML.

No exemplo abaixo, fiz uma dialog padrão com imagem e texto, com um pouco de criatividade dá para fazer muita coisa com ele.

Segue o código fonte da dialog:

Exemplo Futurama

Bender(Dormindo): Matar os humados, eu devo matar todos os humanos.
Fry: Acorde Bender. Por favor acorde...
Bender: Ahn, o que? Eu estava tendo um sonho maravilhoso e você estava nele...

Depois de criar, basta agendar para executar na inicialização através de GPO  ;)

Script útil para consultar as roles fsmo durante processo de migração de dominios ou mesmo para ter a relação atual de sua floresta do AD quanto a quem é responsável por qual role.

Option Explicit
Dim WSHNetwork, objArgs, ADOconnObj, bstrADOQueryString, RootDom, RSObj
Dim FSMOobj,CompNTDS, Computer, Path, HelpText

Set WSHNetwork = CreateObject( WScript.Network )
Set objArgs = WScript.Arguments

Select Case objArgs.Count
    Case 0
        Path = InputBox( Informe o netbios de seu dominio &_
                        conforme exemplo: 'DC=contoso,DC=local': , Ação do usuário requerida ,WSHNetwork.ComputerName)
End Select

Set ADOconnObj = CreateObject( ADODB.Connection )

ADOconnObj.Provider = ADSDSOObject
ADOconnObj.Open ADs Provider

bstrADOQueryString = ;(&(objectClass=domainDNS)(fSMORoleOwner=*));adspath;subtree
Set RootDom = GetObject( LDAP://RootDSE )
Set RSObj = ADOconnObj.Execute(bstrADOQueryString)
Set FSMOobj = GetObject(RSObj.Fields(0).Value)
Set CompNTDS = GetObject(...

Ola...Muchachos

A pedido do diretor da empresa....que o modulo do ERP CRM fosse sempre aberto no logon do usuários para forçarem os mesmos a verificarem suas ações diárias...

Copie o codigo abaixo cole no bloco de notas altere de acordo com sua necessidade e salve com a extensão .vbs
no caso usei o script como uma GPO de logon...

*as ' (aspas) no inicio da linha indicam que estão comentada.

On error Resume Next
Err.clear 0
'============================================================================
'Executa .exe
Dim WshShell
Set WshShell = WScript.CreateObject( WScript.Shell )
Dim results
Set results=WshShell.Exec( Aqui, defina o caminho onde se encontra o .exe )

As vezes você se depara com algumas situações onde você precisa atualizar as policies de suas estações, mas não quer intervenção do usuário. Segue script em VBS para utilizar na inicialização do computador automatizando esta tarefa  ;)

' ==============================================================================
' Script para aplicar GPUPDATE /sync /force sem a intervenção do usuário
' Script retirado do fórum Itbr.org - www.itbr.org
' ==============================================================================

Set objFSO = CreateObject( Scripting.FileSystemObject )
Set objShell = CreateObject( WScript.Shell )
strInputFile = Replace(WScript.ScriptFullName, WScript.ScriptName, ) & input.txt

Set objInputFile = objFSO.CreateTextFile(strInputFile, True)
objInputFile.WriteLine n
objInputFile.WriteLine n
objInputFile.Close
Set objInputFile = Nothing

' Para testar utilize /k e 1, após relizar os testes use /c e 0
strInputFile = objFSO.GetFile(strInputFile).ShortPath
strCommand...

Basta executar ou agendar para executar e pronto. Bom proveito !  ;D

' Script para ingressar uma estação no AD de maneira automatizada
' Created by Sole Viktor - [email protected]
' Retirado do Fórum Itbr.org - www.itbr.org

On Error Resume Next

strDomain = contoso.local
strPassword = senhadoadmin
strUser = Administrador
strOU = OU=Computadores,OU=Empresa,DC=contoso,DC=local

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

Set objNetwork = CreateObject( WScript.Network )
strComputer = objNetwork.ComputerName

Set objComputer = GetObject( winmgmts:{impersonationLevel=Impersonate}!\\ & _
strComputer & \root\cimv2:Win32_ComputerSystem.Name=' & _
strComputer & ' )
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & \ & strUser, strOU, _
JOIN_DOMAIN +...

Crie um .REG no seu NETLOGON com o seguinte código editando os campos para seu ambiente:

Windows Registry Editor Version 5.00

ProxyEnable =dword:00000001
ProxyServer = servidor-proxy.dominio.local:porta
ProxyOverride = *.exceção.com.br

DefaultConnectionSettings =hex:46,00,00,00,40,00,00,00,0b,00,00,00,17,00,00,\
  00,65,74,61,62,2d,67,77,2e,65,74,61,62,2e,6c,6f,63,61,6c,3a,33,31,32,38,35,\
  00,00,00,65,2d,76,69,73,69,2e,6c,6f,63,61,6c,3b,70,6f,72,74,61,6c,2e,65,2d,\
  76,69,73,69,2e,6c,6f,63,61,6c,3b,2a,2e,65,74,61,62,2e,6c,6f,63,61,6c,3b,3c,\
  6c,6f,63,61,6c,3e,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00

Crie um .BAT no seu NETLOGON com o seguinte código editando os campos para seu ambiente:

@ECHO OFF
cmd.exe /c reg import \\servidor\netlogon\proxy.reg

Obs: Esse .BAT executa o .REG sem visibilidade do seu usuário final.

Crie uma GPO para executar o .BAT na OU dos seu usuários em:

User...

Segue uma lista de scripts úteis para manipulação de impressoras, ações como mapear, renomear, excluir e setar padrão. Basta copiar o código, editar e salvar com a extensão .vbs, depois agende a execução automática da maneira que achar melhor.

Mapeia e seta como padrão

Set WshNetwork = CreateObject( WScript.Network )

WshNetwork.AddWindowsPrinterConnection \\SERVIDORIMPRESSAO\IMPRESSORAXYZ
WshNetwork.SetDefaultPrinter \\SERVIDORIMPRESSAO\IMPRESSORAXYZ

Define uma impressora como padrão

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

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ( Select * from Win32_Printer Where Name = 'NOMEDAIMPRESSORAAQUI' )

For Each objPrinter in colInstalledPrinters
    objPrinter.SetDefaultPrinter()
Next

Remove uma impressora local

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

Tive a necessidade de inserir diversos atalhos e arquivos pdf em todas as areas de trabalho do dominio. Para não cansar passando de máquina em máquina escrevi o seguinte script:

@ECHO OFF

SET REGQRY=HKLM\Hardware\Description\System\CentralProcessor\0
REG.EXE QUERY %RegQry%  | FIND /i x86
If %ERRORLEVEL% == 0 (
    GOTO WINXP
) ELSE (
    GOTO WIN7
)

:WINXP
COPY \\SERVIDOR\Share\*.* C:\Documents and Settings\All Users\Desktop
GOTO END

:WIN7
COPY \\SERVIDOR\Share\*.* C:\Users\Public\Desktop
GOTO END

:END

Ele identifica se é WindowsXP ou Windows7/8 e copia tudo que estiver no compartilhamento definido para dentro do desktop do AllUsers, assim quando cada usuário logar em sua estação será disponibilizado os atalhos e arquivos desejados.

Segue uma solução simples para dar take ownership ( tornar-se proprietário ) de um diretório inteiro e seus arquivos e sub-pastas interiores.
Importando o registro Instala.reg um novo campo na aba do explorer do Windows será criado ao pedir as propriedades do diretório ou arquivo.

Basta clicar sobre o texto selecionado no exemplo para quem um lote rode no cmd e permissione para o seu usuário logado tudo dentro do diretório.

Após rodar:

Simples não ?  ;)

Se quiser desinstalar, rode o Desinstala.reg para remover a opção da estação de trabalho.

Segue fontes, e prontos no anexo do post.

Instala.reg

Windows Registry Editor Version 5.00

; Automatizador do calcs para Take Ownership em diretórios selecionados
; Por Marcelo Leães - [email protected]
; Retirado do Fórum ITBR - www.itbr.org - 2013

@= Tornar-me Dono
HasLUAShield =
NoWorkingDirectory =

@= cmd.exe /c takeown /f \ %1\ && icacls \ %1\ /grant administrators:F
IsolatedCommand = cmd.exe /c takeown /f \...

TeamViewer Manager versão 1.0

Disponibilizo código fonte da aplicação TeamViewer Manager, um simples gerenciador de credenciais usando linguagem Hypertext Application e VBScript, com ele você poderá manter salvo os IDS e senhas utilizados para conexão com seus parceiros ou clientes.

A aplicação salva as informações em um DB e mantém log de todas as ações realizadas pelos utilizadores.

Screenshots

Código fonte

TeamViewer Manager - Versão 1.0

body{
background-color: #FFFFFF;
}
a{
background-color: #FFFFFF;
}
.input {
font-weight: bold;
border: solid #000000 1px;
color: #000000;
width: 300px;
}
.showpass {
font-weight: bold;
border: dotted #000000 1px;
color: #000000;
width: 50px;
}
.input-submit {
font-weight: bold;
border: solid #000000 1px;
color: #000000;
width: 200px;
}
.input-newid {
font-weight: bold;
border: solid #000000 1px;
color: #000000;
width: 150px;
}
.input-delete {
font-weight: bold;
color: #FF0000;
border:...

Este script é um simples utilitário que permite aos usuários restaurar bancos de dados SQL Server. É mais fácil de usar para não-DBAs e fornece um método de restore dos bancos de dados quando as ferramentas de gerenciamento não estão instaladas. É uma boa demonstração de um aplicativo HTA, mas não é a intenção de ser um substituto para o SQL Server Management Studio. Você só pode usar este utilitário para cenários de restauração simples. Segue código fonte:

BODY {font-family: Verdana, Arial, Helvetica, sans-serif ;
font-size:x-small;
background-color:#dfe0e5;
}

table {font-family: Verdana, Arial, Helvetica, sans-serif ;
font-size:x-small;}

#RestoreCompleted {
font-weight:bold;
color:green;
}

#RestoreInProgress {
font-weight:bold;
color:blue;
}

#RestoreError {
font-weight:bold;
color:red;
}
#Footer {
font-weight:bold;
font-size:10px;
}

option explicit
Const HKEY_LOCAL_MACHINE = &H80000002
Const adVarChar = 200
Const adParamInput = 1
Const...

Script para adicionar um usuário especifico no grupo de Administradores locais da estação de trabalho. Pode ser usado com GPO.

Set objNet = CreateObject( WScript.Network )

' Usuário que vai receber
strUser = fulano.beltrano

strNetBIOSDomain = objNet.UserDomain
strComputer = objNet.ComputerName

Set objGroup = GetObject( WinNT:// & strComputer & /Administrators,group )
Set objUser = GetObject( WinNT:// & strNetBIOSDomain & / & strUser & ,user )

' Ignora se o usuário já pertencer ao grupo
On Error Resume Next
objGroup.Add(objUser.ADsPath)
On Error Goto 0

O xcopy e os comandos xcopy32 têm as mesmas opções. Este artigo descreve as opções disponíveis quando você executa os comandos fora do Windows (no modo de MS-DOS), e quando você executar os comandos em uma janela do MS-DOS.

A seguinte linha de comando que inclui a sintaxe e as opções que você pode usar com o xcopy e os comandos xcopy32 no modo MS-DOS:

xcopy source

Observação: os colchetes ([]) indicam chaves opcionais. Os colchetes não fazem parte do comando.

A tabela a seguir descreve as opções opcionais que você pode usar com xcopy e xcopy32:

Para copiar pastas e subpastas em um script executado com intuito de fazer backup de um diretório inteiro execute:

XCOPY C:\DADOS\*.* D:\DADOS\ /E /I /R /H /F /K /Y

Onde:

/E COPIA PASTA E SUBPASTA
/I SE O DESTINO NAO EXISTE, ASSUME COMO PASTA
/R SUBSTITUI OS SOMENTE LEITURA
/H COPIA OCULTOS E DE SISTEMA também
/F EXIBE OS NOMES AO COPIAR
/K COPIAR também OS ATRIBUTOS
/Y NAO PERGUNTA SE QUER SUBSTITUIR

Enviar e-mails usando CDO é uma tarefa simples. Primeiro vamos criar uma referência para o componente CDO

Set objMessage = CreateObject( CDO.Message )

Agora vamos as possibilidades ?

1 - Email simples

Set objMessage = CreateObject( CDO.Message )
objMessage.Subject = Exemplo CDO
objMessage.From = [email protected]
objMessage.To = [email protected]
objMessage.TextBody = Mensagem no corpo do email
objMessage.Send

2 - Com conteúdo HTML

Set objMessage = CreateObject( CDO.Message )
objMessage.Subject = Exemplo CDO
objMessage.From = [email protected]
objMessage.To = [email protected]

objMessage.HTMLBody = Exemplo CDO

' Usar um html remoto
'objMessage.CreateMHTMLBody

Usar um html local
'objMessage.CreateMHTMLBody file://c|/temp/mensagem.html

objMessage.Send

3 - Inserindo um anexo

Set objMessage = CreateObject( CDO.Message )
objMessage.Subject = Exemplo CDO
objMessage.From = [email protected]
objMessage.To =...

Este script tem como finalidade verificar os arquivos pst configurados nos Outlooks dos usuários e enviar um email para o Administrador avisando quando os mesmos excederem o tamanho aceitavel máximo permitido. Para aumentar o tamanho, caso deseje ajuste maxFileSize = 1843 pelo valor em MB correspondente. Ajuste os campos responsaveis pelo envio de email personalizando a gosto, copie para o NETLOGON de seu servidor e após crie uma GPO deixando o script na inicialização dos computadores dos usuários. No logon, será verificado as psts e enviado email quando o tamanho exceder. Segue código do script:

' =================================================================================================
' Script para monitoramento do tamanho dos arquivos PST dos usuários
' Por Marcelo Leães - [email protected]
' Use a vontade, mas mantenha os créditos ;)
' =================================================================================================

Dim maxFileSize
Dim OutputStr
Dim...

Script com a função de esconder unidades do sistema operacional, muito util para que os usuários não acessem unidades de system restore ou mesmo OEM disponibilizados pelos fabricantes de desktop ou notebooks. Execute e informe quais unidades deseja ocultar.

Script

' =================================================================================================
' Script para ocultar partições do sistema operacional
' Por Marcelo Leães - [email protected]
' =================================================================================================

Option Explicit

Sub Main()
On Error Resume Next 
Dim objShell, PATH, bits,Drive,substr
Dim fso, d, drives,s,count
Dim exitcode
Dim x, i , j
exitcode = 0
bits = 0
Set objShell = CreateObject( WScript.Shell )
PATH = HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives
Drive = inputbox( Informe as unidades que deseja ocultar separadas por virgula, exemplo: D,E,F ou somente D E ou F )
Set fso =...

Script com a função de alterar o grupo de trabalho da estação do usuário. Reinicia o PC automaticamente após alterar.

' =================================================================================================
' Script para setar o grupo de trabalho na estação do usuário
' Por Marcelo Leães - [email protected]
' =================================================================================================

strComputer = .

' Defina aqui o novo grupo de trabalho que será utilizado
strWorkGroup = ETH1

Set objNetwork = CreateObject( WScript.Network )
strComputer = objNetwork.ComputerName

Set objComputer = GetObject( winmgmts:{impersonationLevel=Impersonate}!\\ & strComputer & \root\cimv2:Win32_ComputerSystem.Name=' & strComputer & ' )
errEnable = objComputer.JoinDomainOrWorkGroup(strWorkgroup, NULL, NULL, NULL, 0)

if errEnable = 0 then
  Wscript.Echo Grupo de trabalho alterado com sucesso.
else
  Wscript.Echo Precisa ser Administrador.
  badstate = 1
End if

'...

Este script tem a função de avisar o Administrador quando existirem novos updates para serem aplicados no servidor.

Funcionamento:

CONFEREUPDATES.VBS = Verifica os updates e grava em log txt se existem ou não, assim como erros
WUPDATES.TXT = Arquivo de Log
SENDEMAIL.EXE = Software para envio de emails através do console
CORPOEMAIL.HTML = Mensagem do corpo do email
WINDOWSUPDATE.BAT = Responsavel por executar a rotina e ler o arquivo de log, se encontra updates dispara o email

Agende o WINDOWSUPDATE.BAT através do agendador de tarefas para executar conforme sua necessidade. Para o envio de email altere as linhas necessárias neste arquivo e informe os dados de seu provedor ou servidor SMTP.

SENDEMAIL.EXE -f [email protected] -t [email protected] -u Novos Updates disponiveis em %computername% -o message-file= CORPOEMAIL.HTML -s smtp.seudominio.com.br:587 -xu [email protected] -xp senhadousuario

Exemplo do email disparado:

Bom proveito  ;)

Este script tem a finalidade de manter um registro dos logons efetuados pelos usuários em um arquivo txt no NETLOGON do servidor.
Ele pode ser adicionado ao script atual de logon com o comando: START \\DOMINIO\NETLOGON\LOGONS.BAT

Código:

@ECHO OFF
echo O usuário: %username% fez logon no computador: %computername% no dia: %date% - %time% >> \\DOMINIO\NETLOGON\REGISTROS\%username%.txt

Depois é só conferir os arquivos na pasta REGISTROS em seu NETLOGON os arquivos txt com os nomes dos usuários.

Este script ajuda os administradores de rede com clientes Widows 7 e servidores Windows 2008 a usar o utilitário MSG como o velho comando NET SEND . Você pode enviar uma mensagem para um computador específico, para uma lista de computadores ou até mesmo a rede inteira, se ela for baseada em domínio do Active Directory.  Autoria de Pedro Lima.

Download no anexo e instruções de uso em: