[Script] VBS para varredura atrás de PST com saida em TXT

Scripts diversos para automatizar tarefas em servidores ou auxilio com tarefas administrativas.
Avatar do usuário
marceloleaes
Administrator
Administrator
Mensagens: 1497
Registrado em: 10 Jun 2013 12:45
Localização: Novo Hamburgo
Idade: 38
Contato:
Status: Offline

[Script] VBS para varredura atrás de PST com saida em TXT

Mensagem por marceloleaes »

Segue script para varrer a unidade C das máquinas em busca de arquivos do tipo PST, o resultado com o caminho e o tamanho respectivo de cada pst encontrado ( tamanho em MB ) será salvo em um arquivo txt com o caminho configurado no script e cada txt com o HOSTNAME do computador coletado. Agende para executar na inicialização das máquinas através de GPO e salve o script em seu NETLOGON para executar. Depois é acompanhar os dados levantados ;)

Código: Selecionar todos

' Script para inventário de PST
' Ajuste o caminho em que os txts com o nome de cada computador será salvo
' Insira na sua GPO do tipo Computer para inicializar junto com o Windows
' Comando:  wscript.exe \\seuservidor\netlogon\coletapst.vbs
' Retirado do Fórum ITBR.ORG - Por Marcelo Leães - [email protected]


strComputer = "."

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile Where Extension = 'pst' AND Drive = 'C:'")

If colFiles.Count = 0 Then
    Wscript.Quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

' AJUSTE AQUI O CAMINHO ONDE SERÃO SALVOS OS ARQUIVOS DE SAIDA
Set objTextFile = objFSO.CreateTextFile("\\SEUSERVIDOR\NETLOGON\PSTS\"& strComputer &".txt")

For Each objFile in colFiles
    objTextFile.Write(objFile.Drive & objFile.Path & "")
    objTextFile.Write(objFile.FileName & "." & objFile.Extension & " - ")
objTextFile.Write "Tamanho: " & Round(objFile.FileSize/1024^2) & " MB" & vbCrLf

Next

objTextFile.Close
Você não está autorizado a ver ou baixar esse anexo.



Thiago Azevedo
Newbie
Newbie
Mensagens: 1
Registrado em: 07 Fev 2017 21:40
Status: Offline

Re: [Script] VBS para varredura atrás de PST com saida em TXT

Mensagem por Thiago Azevedo »

É justamente isto que preciso! Vou salvar aqui e estudar o código depois!
Agradeço muito o auxilio!
Obrigado!

Avatar do usuário
marceloleaes
Administrator
Administrator
Mensagens: 1497
Registrado em: 10 Jun 2013 12:45
Localização: Novo Hamburgo
Idade: 38
Contato:
Status: Offline

Re: [Script] VBS para varredura atrás de PST com saida em TXT

Mensagem por marceloleaes »

Que é isso man, espero que seja útil. Abraço !

cleber.vicentini
Newbie
Newbie
Mensagens: 1
Registrado em: 11 Mai 2021 08:04
Status: Offline

Re: [Script] VBS para varredura atrás de PST com saida em TXT

Mensagem por cleber.vicentini »

Bom dia, ótimo script. Existe uma variação para pesquisa de termos dentro de arquivos texto?

Responder

Voltar para “Scripts”