RE: Pst file detection

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

RE: Pst file detection

Logged in as: Guest

arrSession:exec spGetSession 2,2,1811

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> RE: Pst file detection
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

RE: Pst file detection - 1/10/2005 8:49:39 AM

xploit

Posts: 1
Score: 0
Joined: 1/10/2005
From:
Status: offline

I am trying to develop prevention of users *.pst files from getting too big and thus possibly corrupting. I found a tool called "PSTSize", but it doesn't seem to work.

Since all of the relevant users have their pst files in the same directory, I wanted to see if you could make a vbs script that could detect the file size of any pst file in a given directory.

After that point I will call a shell command to send a "postie" email to the helpdesk.

If anyone could help with this I would be very appreciative.

Thanks,

Xploit

Post #: 1

Re: RE: Pst file detection - 1/10/2005 10:02:41 PM

Zifter

Posts: 318
Score: 0
Joined: 1/5/2005
From: Belgium
Status: offline

Try something like this:

Dim objEmail
Dim objWMIService
Dim FileList

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "AddressFrom @domain.com"
objEmail.To = "AddressTo @domain.com"
objEmail.Subject = "Filesize to large"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "name of the smtp"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set FileList = objWMIService.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='C:\Folder'} Where ResultClass = CIM_DataFile")

For Each objFile In FileList
If Right(objFile.Name,4) = ".pst" Then
If objFile.FileSize >= 100000 Then
objEmail.Textbody = "The size of file " & objFile.Name & " (" & objFile.FileSize & " bytes) is to large"
objEmail.Send
End If
End If
Next

Don't forget to change:

the email address from
the email address to
the name of the smtp server
the computername (strComputer)
the foldername
the filesize

HTH

(in reply to xploit)

Post #: 2

Re: RE: Pst file detection - 1/10/2005 11:27:43 PM

drbelden

Posts: 109
Score: 0
Joined: 12/21/2004
From: USA
Status: offline

I know in your post you stated that all of your users had their PST files in the same location. Unless you have a controlled environment where they cannot have these files any other place, you may find that they have them in other locations too. If there is any possibliity of this you may want to consider a script like this one http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1014.mspx.
Change the MP3 to PST and enumerate your list from there.

Just a thought, because I know I have found that my users put things in unusual places sometimes.

(in reply to xploit)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> RE: Pst file detection

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts