[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: 1383
Registrado em: 10 Jun 2013 12:45
Localização: Novo Hamburgo
Sexo: Masculino - Masculino
Idade: 34
Contato:
Status: Offline

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

Mensagem por marceloleaes » 07 Fev 2017 20:48

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
Anexos
Arquivo de saída do script.PNG
Arquivo de saída do script.PNG (8.09 KiB) Exibido 798 vezes
Arquivo de saída do script.PNG
Arquivo de saída do script.PNG (8.09 KiB) Exibido 798 vezes



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

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

Mensagem por Thiago Azevedo » 07 Fev 2017 21:46

É 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: 1383
Registrado em: 10 Jun 2013 12:45
Localização: Novo Hamburgo
Sexo: Masculino - Masculino
Idade: 34
Contato:
Status: Offline

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

Mensagem por marceloleaes » 09 Fev 2017 02:31

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

Responder

Voltar para “Scripts”

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante