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