主页 / server / 问题 / 55893
Accepted
bugmagnet
Asked: 2009-08-19 18:21:08 +0800 CST

如何找出用户附加到其 Outlook 帐户的 PST 文件？

  • 772

我们有一些以前员工留下的相当大的 Outlook PST 文件。其中一些连接到企业中的 Outlook（2003 和 2007）帐户，并且似乎被标记为备份，即使内容没有改变（据我所知，无论如何。）

现在我可以询问网络上的每个用户他们是否正在这样做，或者我可以通过网络以某种方式找出答案。如果我想做后者，我将如何完成它？

outlook

3 个回答

  1. 您可以在他们所在的服务器上查看计算机管理（我假设他们在服务器上）并查看谁通过网络共享打开了文件。

    • 1

  2. 我从来没有真正需要这个，但你可以编写一个脚本，让 PST 在本地计算机上使用。获取该脚本并通过活动目录自动运行它以构建 PST/用户名列表

    • 0
  3. Best Answer

    尝试以下脚本作为登录脚本。

    它是来自以下页面的脚本的混合

    http://blogs.msdn.com/brijs/archive/2009/05/06/remove-all-pst-from-the-outlook-mailbox-using-vbscript.aspx

    http://www.visualbasicscript.com/m44947.aspx

    Set objOL = CreateObject("Outlook.Application")
Set objFolders = objOL.Session.Folders

For j = objFolders.Count To 1 Step -1
    Set objFolder = objFolders.Item(j)

    If (InStr(1, objFolder.Name, "Mailbox") = 0) And (InStr(1, objFolder.Name, "Public Folders") = 0) Then
    WScript.Echo objFolder.Name
    WScript.Echo GetPSTPath(objFolder.storeid)

End If
Next

Function GetPSTPath(input)
For i = 1 To Len(input) Step 2
    strSubString = Mid(input,i,2)
    If Not strSubString = "00" Then
        strPath = strPath & ChrW("&H" & strSubString)
    End If
Next

Select Case True
Case InStr(strPath,":\") > 0
    GetPSTPath = Mid(strPath,InStr(strPath,":\")-1)
Case InStr(strPath,"\\") > 0
    GetPSTPath = Mid(strPath,InStr(strPath,"\\"))
End Select
End Function
    • 0

相关问题