Filed under Scripts

Criando eventos no Event Viewer

Olá pessoall! Neste post irei demonstrar, como criar um evento no Visualizador de Eventos do Windows (Event Viewer). Este recurso é muito útil para registrar o status de uma tarefa. Pode ser usado em N casos. Para criar este evento, usamos o comando EVENTCREATE nativo do DOS. Fica da seguinte forma: Comando que costumo usar: … Continue lendo

Script “despromoção forçada” de DCs

Script “despromoção forçada” de DCs

Script para automatização da tarefa de remover dados do Active Directory após rebaixamento sem êxito de Controlador de Domínio. Usando quando o comando dcrpomo /forceremoval não resolve ou quando o DC é inexistente (offline). Procedimento Manual: http://support.microsoft.com/kb/216498 Script VBS: REM    ========================================================== REM                GUI Metadata Cleanup Utility REM             Written By Clay Perrine REM                          Version 2.5 REM    … Continue lendo

Script – listar todos computadores do domínio

Script gera um TXT com todas as contas de computadores   Const adVarChar = 200 Const MaxCharacters = 255 Const ForReading = 1 Const ForWriting = 2 Const ADS_SCOPE_SUBTREE = 2 Const FOR_WRITING = 2 ‘************************ Create Server List **************************** set objFSO = CreateObject(“Scripting.FileSystemObject”) If objFSO.FileExists(“Serverlist.txt”) Then objFSO.DeleteFile(“Serverlist.txt”) End IF Set objFile = objFSO.CreateTextFile(“Serverlist.txt”, FOR_WRITING) … Continue lendo

Script – Limpar diretório Público

strPasta=”D:\Publica” set FSo = CreateObject(“Scripting.FileSystemObject”) Apagar_Arquivos(strPasta) Sub Apagar_Arquivos(Pasta) set folder = FSO.getFolder (Pasta) ‘Verifica se tem subpastas if folder.Subfolders.count > 0 then for each SubFolder in folder.Subfolders Apagar_Arquivos SubFolder next end if for each file in folder.files File.delete next if folder.Subfolders.count = 0 and folder.files.count=0 and Folder.Path<>strPasta then Folder.delete true end if end sub * … Continue lendo