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 reading
Filed under Scripts …
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 reading
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 reading
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 reading
Gustavo Valle 