Forumitbr.com.br

Script em VBS que ao rodar varre o diretório especificado buscando por arquivos com a extensão definida e remove os mesmos se forem mais antigos do que os dias informados no script. Útil para limpeza em pastas de log ou semelhantes. Ajuste conforme necessidade.

Set fso = CreateObject( Scripting.FileSystemObject )

fs = D:\BACKUPS\MYSQL\                
ShowFiles(fs)

Sub ShowFiles(Fld)
  Set k = fso.GetFolder(Fld)
  Set s = k.SubFolders
  Set kf = k.Files
 
  For Each objFile In kf
      If fso.GetExtensionName(objFile) = gzip then
        If objFile.DateCreated < date - 15 Then
            fso.DeleteFile objfile
        End If
      End if
  Next
End Sub

Neste exemplo ele remove arquivos anteriores a 15 dias com a extensão .gzip do diretório D:\BACKUPS\MYSQL\

Script em VBS que retorna o usuário logado em uma estação remota. Só pode ser utilizado em ambientes com dominio , e a estação deve ser membro do dominio em questão. Salvar com extensão .vbs e executar. Informar o nome DNS da estação na dialog e ver o resultado.

'
'Script para identificar quem está logado na estação remota
'
strComputer = InputBox( Informe o nome do micro que deseja saber quem está logado a este. & vbcrlf & Por Exemplo: SRRS227 )
Set objWMIService = GetObject( winmgmts:{impersonationLevel=impersonate}!\\ & strComputer & \root\cimv2 )

Set colComputer = objWMIService.ExecQuery ( Select * from Win32_ComputerSystem )
For Each objComputer in colComputer
    Wscript.Echo O usuário logado na & strComputer & é & objComputer.UserName
Next

Script escrito em VBS muito util para manter pastas do Fileserver em dia evitando copias de arquivos de usuários em locais não desejados. Ideal para agendar sua execução antes da rotina de backup.

Ele varre o diretório definido, ignora as pastas definidas e gera um arquivo de log de todas as ações tomadas.

Lembre-se de nunca executar em ambiente de produção sem testar !

' --------------------------------------------------------------------------------------------------------------------------------------
' Script para limpeza de diretório e subdiretórios mantendo uma ou mais pastas caso necessário
' Ajuste os campos comentados conforme sua necessidade
' --------------------------------------------------------------------------------------------------------------------------------------

Set objNetwork = CreateObject( Wscript.Network )
strComputer = .
Set objWMIService = GetObject( winmgmts:\\ & strComputer & \root\cimv2 )
Set objFSO = CreateObject( Scripting.FileSystemObject...