Script de Backup em VBS e excluir backup antigos

Para criar um arquivo, usaremos RAR archiver. Ele pode ser baixado a partir de http://www.rarlab.com/download.htm. Depois de instalar este aplicativo, copie o arquivo rar.exe (encontrado em C: \ Program Files \ WinRAR) para C: \ Windows. Desta forma, você pode executar rar.exe de qualquer lugar no sistema e ele vai encontrá-lo.

Para o propósito deste tutorial, usaremos:

Data de validade: 15 dias (para que manter os backups por 2 semanas)

Caminho de backup (Destination): D:\Pessoal

Os arquivos que estão sendo armazenados em backup (Fonte): C:\Drivers e C:\Users\Fabio\Pictures

------------------------------------------------------------------------------------------------------------

Dim Fso

Dim Directory

Dim Modified

Dim Files

Dim MyDate

Dim OutputFile

Dim OutputFile1

MyDate = Replace(Date, "/", "-")

OutputFile = "backup-" & mydate & ".rar"

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "C:\windows\rar.exe a D:\Pessoal\" & OutputFile & " C:\Drivers" 

OutputFile1 = "backup-" & mydate & ".rar"

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "C:\windows\rar.exe a D:\Pessoal\" & OutputFile & " C:\Users\Fabio\Pictures" 

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Directory = Fso.GetFolder("D:\Pessoal")

Set Files = Directory.Files

For Each Modified in Files

    If DateDiff("D", Modified.DateLastModified, Now) > 15 Then Modified.Delete

Next

------------------------------------------------------------------------------------------------------------

Em primeiro lugar, o script criará um arquivo com uma data incorporado (por isso vai ser no formato: de backup-28-9-2015.rar para um backup que foi criado no dia 28 de setembro de 2015)

Em seguida, ele executa a ferramenta externa, rar.exe, onde ele adiciona arquivos para o arquivo recém-criado

Finalmente, ele verifica no diretório de backup para arquivos mais antigos que 15 dias e exclui-los.

Editor de VBS

VBSedit que reduz drasticamente o tempo gasto escrevendo roteiros VBS. Possui incluem coloração de sintaxe, debugger embutido, auto-capitalizar, características auto-conclusão (lista de membros do objeto, info parâmetros de exibição, palavras completas), ajuda dinâmica (Se você pressionar F1, o apoio é prestado para a palavra sob o cursor) , trechos de código, toneladas de scripts de amostras, navegador objeto, WMI classes de navegador, e WMI gerador de código.

Fonte: Site

Script de adicionar Usuário local como administrador

Esse script adiciona um usuário especificado ao grupo de administradores local. Isso pode ser executado como um script de inicialização via GPO.


SCRIPT
---------------------------------------------------------------------------------------------------------------

Set objNet = CreateObject("WScript.Network" ) 

' Set the user you want to make local administrator here 
strUser = "<nome do usuário>"

strNetBIOSDomain = objNet.UserDomain 
strComputer = objNet.ComputerName 

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

' ignore error if user is already a member of the group
On Error Resume Next 
objGroup.Add(objUser.ADsPath) 
On Error Goto 0 

Script para Padronizar a assinatura do outlook em VBS

Padronizar a assinatura do outlook em sua empresa.
Mas para isso as informações do Usuário no AD, devem estar preenchidas.

Modelo:
————————————————————————————————————

Nome do Usuário
Departamento de TI
Nome da EmpresaEndereço da empresa, XXXX – 3° andar
04000-100 – São Paulo – Brazil
Tel. + 55 11 2222.3333
Fax. + 55 11 4444.5555
Email user@dominio.com.br
Site http://www.empresa.com.br

AQUI APARECE O LOGO DA EMPRESA

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o e-mail, e em seguida apague-o.Agradecemos sua cooperação.
This message may contain confidential and/or privileged information. If you are not the address or authorized to receive this for the address, you must not use, copy, disclose or take any action base on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thankyou for your cooperation

—————————————————————————————————————————————-
‘ O Script:
On Error Resume Next
Set objSysInfo = CreateObject(“ADSystemInfo”)
strUser = objSysInfo.UserName
Set objUser = GetObject(“LDAP://” & strUser)
With objUser
strName = .FullName
strTitle = .Description
End With
strCompany = objUser.Company
strAddress = objUser.streetAddress
strpostalCode = objUser.postalCode
strl = objUser.l
strco = objUser.co
strPhone = objUser.TelephoneNumber
strFax = objUser.facsimileTelephoneNumber
strMail = objuser.mail
strWeb = objuser.wWWHomePage
Set objword = CreateObject(“Word.Application”)
With objword
Set objDoc = .Documents.Add()
Set objSelection = .Selection
Set objEmailOptions = .EmailOptions
End With
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
With objSelection
.ParagraphFormat.Alignment = wdAlignParagraphRight
.TypeParagraph
With .Font
.Name = “Verdana”
.Size = 10
.Bold = false
End With
.TypeText strName & Chr(11)
With .Font
.Name = “Verdana”
.Size = 8
.Bold = False
.Italic = False
End With
.TypeText strTitle & Chr(11)
.TypeText Chr(11)
objSelection.Font.Size = “10”
objSelection.Font.Name = “verdana”
objSelection.Font.Bold = True
objSelection.TypeText strCompany
objSelection.Font.Bold = True
.TypeText Chr(11)
With .Font
.Name = “Verdana”
.Size = 8
.Bold = false
End With
.Font.Italic = False
.TypeText strAddress & Chr(11) & strpostalCode & ” – ” & strl & ” – ” & strco & Chr(11) & “Tel. + ” & strPhone & Chr(11) & “Fax. + ” & strFax & Chr(11) & “Email ” & strMail & Chr(11) & “Site ” & strWeb & Chr(11)
.TypeText Chr(11)
.InlineShapes.AddPicture “\\Server\LogoDaEmpresa.jpg“, True, True
.TypeText Chr(11)
.TypeText Chr(11)
objSelection.Font.Size = “8”
objSelection.Font.italic = true
objSelection.Font.Color = 8421504
objSelection.Font.Bold = False
objSelection.TypeText “Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o e-mail, e em seguida apague-o. Agradecemos sua cooperação.”
.TypeText Chr(11)
.TypeText Chr(11)
objSelection.Font.Size = “8”
objSelection.Font.italic = true
objSelection.Font.Color = 8421504
objSelection.Font.Bold = False
objSelection.TypeText “This message may contain confidential and/or privileged information. If you are not the address or authorized to receive this for the address, you must not use, copy, disclose or take any action base on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation”
End With
Set objSelection = objDoc.Range()
objSignatureEntries.Add “AD Signature”, objSelection
objSignatureObject.NewMessageSignature = “AD Signature”
objSignatureObject.ReplyMessageSignature = “AD Signature”
objDoc.Saved = True

objword.Quit

Script de Vbs para mapeamento

Script para mapeamento Unidade de Rede

set net = createobject("wscript.network")
Set FSODrive= CreateObject("Scripting.FileSystemObject")
If not FSODrive.DriveExists("H:") Then
Set NW = CreateObject("WScript.Network")
NW.MapNetworkDrive "H:", "\\fileserver\novadapasta", False
End If
wscript.quit

Script para mapeamento de impressora com configuração deixar padrão

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\computer\print"
WshNetwork.SetDefaultPrinter "\\computer\print"

SANS Information Security Training

O SANS Institute foi fundado em 1989 como uma organização de pesquisa e educação cooperativa. Seus programas agora chegam a mais de 165.000 profissionais de segurança de todo o mundo. Uma gama de indivíduos de auditores e administradores de rede, a oficiais de segurança da informação principais estão compartilhando as lições que eles aprendem e estão encontrando conjuntamente soluções para os desafios que enfrentam. No coração do SANS são os muitos praticantes de segurança em organizações globais variados de corporações para as universidades a trabalhar em conjunto para ajudar toda a comunidade de segurança da informação.
SANS é a mais confiável e, de longe, a maior fonte de formação de segurança da informação e certificação de segurança no mundo. Também desenvolve, mantém e disponibiliza sem nenhum custo, a maior coleção de documentos de pesquisa sobre vários aspectos da segurança da informação, e opera sistema de alerta precoce da Internet - o Internet Storm Center.

Como a organização líder em treinamento de segurança de computador, o Instituto SANS é conhecida por fornecer, treinamento de imersão intensivo projetado para ajudar você e seu mestre pessoal, os passos práticos necessários para os sistemas e redes de defesa.

Nós também desenvolver, manter e colocar à disposição, sem qualquer custo a maior coleção de documentos de pesquisa de segurança da informação e whitepapers sobre vários aspectos da segurança da informação e operar o sistema de alerta precoce da Internet - o Internet Storm Center.

No coração do SANS são os muitos praticantes de segurança em agências do governo, empresas e universidades ao redor do mundo que investem centenas de horas por ano em pesquisa e ensino para ajudar toda a comunidade de segurança da informação.

Perda da permissão NTFS

Se você estiver usando o sistema Windows e você perdeu um acesso a seus arquivos ou pastas (por exemplo, após a reinstalação do sistema), utilize o Access NTFS para recuperá-la. O programa define permissões de forma recursiva, para que você não tem que repetir o processo para cada arquivo ou pasta separadamente.

• ·         conjunto proprietário da pasta / arquivo,
• ·         definir direitos de acesso completo para uma pasta dada / arquivo,
• ·         dar permissões de forma recursiva.  

Com  o NTFS ACCESS consegue resetar as permissões do servidor de File Server .
 

Download