Jump to content
scott.hamilton

Find PST Locations

Recommended Posts

Hi guys, not sure if anyone is on this .. but I cant see the tab for some reason.. can anyone help? I imported the 2 XML and the SQL.  Thanks.

Share this post


Link to post
Share on other sites

Newer LT - hosted. 

 

Any other way way to view the data? We use LT for internal Pc management. 

 

Thx. 

Share this post


Link to post
Share on other sites

In the past we ran a script on every workstation that would put a txt file in temp and that file was then transferred to LT server.  It had every pst on the system location.

Can you remote into your LT hosted so you could get those files?

Share this post


Link to post
Share on other sites

Its been so long I may have just reverse engineered this POST to work with LT 11 and up.

This is what we did and the files are then transferred up to LT server, but they are also on each machine.

 

Set ws = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

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

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(ws.ExpandEnvironmentStrings("%windir%") & "\temp\pst.csv")

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

objTextFile.Close

if objfso.fileexists(ws.ExpandEnvironmentStrings("%windir%") & "\temp\pst.csv") then
  set f = objfso.OpenTextFile(ws.ExpandEnvironmentStrings("%windir%") & "\temp\pst.csv", 1)
  do while not f.atendofstream
    temp =  f.ReadLine()
    dim t
    t = split(temp,",")
    OutPut = OutPut & "(%clientid%,'" & t(0) & "','" &  t(1) & "','" &  t(2) & "','" & t(3) & "',@computerid@),"
  loop
  f.close
  objfso.deletefile ws.ExpandEnvironmentStrings("%windir%") & "\temp\pst.csv",true
  wscript.echo left(OutPut,len(output)-1)
end if

 

attached is a screen of our LT script that we ran on each workstation

BQw2iIU.png

 

You need to create the pst.vbs in C:\LTShare\Transfer\Scripts on your LT server if you can get into it.

 

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...