Hi

I need to output a list of pst files from a server into a text file. I have
found this script which will show on screen the files but unable to find out
how to export the list to a txt file. Can this be done?

Thanks

----------------------------------------------------
Option Explicit

Dim fso, objF, d, dc
Dim objWMIService, colFiles, objFile
Dim FileSizeKB, FileSizeMB, FileSizeGB

Set objWMIService = _
GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")

Set fso = CreateObject("Scripting.FileSystemObject")

Set dc = fso.Drives

For Each d in dc

if d.DriveType = 2 then 'fixed drives only

Set colFiles = objWMIService.ExecQuery("Select * from " & _
"CIM_DataFile where (Drive='" & d.DriveLetter & ":') " & _
"and (Extension = 'pst')")
For Each objFile in colFiles

'1KB = 1024 bytes
FileSizeKB = objFile.FileSize \ 1024
'1MB = 1024 * 1024 bytes (1KB * 1024)
FileSizeMB = objFile.FileSize \ 1024 \ 1024
'1GB = 1024 * 1024 * 1024 bytes (1MB * 1024)
FileSizeGB = objFile.FileSize \ 1024 \ 1024 \ 1024
If FileSizeGB >= 1 Then
Wscript.Echo objFile.Name & " " & FileSizeGB & " GBytes"
ElseIf FileSizeMB >= 1 Then
Wscript.Echo objFile.Name & " " & FileSizeMB & " MBytes"
ElseIf FileSizeKB >= 1 Then
Wscript.Echo objFile.Name & " " & FileSizeKB & " KBytes"
Else
Wscript.Echo objFile.Name & " " & objFile.FileSize & " Bytes"
End If

Next

end if

Next

Run the script at a command prompt with the cscript host and redirect the
output to a text file. For example if the script is called FindPst.vbs:

cscript //nologo FindPst.vbs > report.txt

This assumes you are in the directory where the file FindPst.vbs is saved.
Otherwise specify the full path. The //nologo option suppresses logo
information. The file report.txt is created in the current directory.

--
Richard Mueller
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net
--

"LMac" <LMac@discussions.microsoft.com> wrote in message
news:0C2F0A09-DD34-43CA-B632-C9E7C5933E08@microsoft.com...
> Hi
>
> I need to output a list of pst files from a server into a text file. I
> have
> found this script which will show on screen the files but unable to find
> out
> how to export the list to a txt file. Can this be done?
>
> Thanks
>
> ----------------------------------------------------
> Option Explicit
>
> Dim fso, objF, d, dc
> Dim objWMIService, colFiles, objFile
> Dim FileSizeKB, FileSizeMB, FileSizeGB
>
> Set objWMIService = _
> GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")
>
> Set fso = CreateObject("Scripting.FileSystemObject")
>
> Set dc = fso.Drives
>
> For Each d in dc
>
> if d.DriveType = 2 then 'fixed drives only
>
> Set colFiles = objWMIService.ExecQuery("Select * from " & _
> "CIM_DataFile where (Drive='" & d.DriveLetter & ":') " & _
> "and (Extension = 'pst')")
> For Each objFile in colFiles
>
> '1KB = 1024 bytes
> FileSizeKB = objFile.FileSize \ 1024
> '1MB = 1024 * 1024 bytes (1KB * 1024)
> FileSizeMB = objFile.FileSize \ 1024 \ 1024
> '1GB = 1024 * 1024 * 1024 bytes (1MB * 1024)
> FileSizeGB = objFile.FileSize \ 1024 \ 1024 \ 1024
> If FileSizeGB >= 1 Then
> Wscript.Echo objFile.Name & " " & FileSizeGB & " GBytes"
> ElseIf FileSizeMB >= 1 Then
> Wscript.Echo objFile.Name & " " & FileSizeMB & " MBytes"
> ElseIf FileSizeKB >= 1 Then
> Wscript.Echo objFile.Name & " " & FileSizeKB & " KBytes"
> Else
> Wscript.Echo objFile.Name & " " & objFile.FileSize & " Bytes"
> End If
>
> Next
>
> end if
>
> Next
>

Thanks for the info.

Also, Is it possible to run this script for a number of servers and output
the info into one file run through a scheduled task. I would be looking to
search a specific location for each server e.g.
\\servera\users
\\serverb\users
\\serverc\users
Or would it be better running a different scheduled task on each server
outputting to a different file each time?

"Richard Mueller [MVP]" wrote:

> Run the script at a command prompt with the cscript host and redirect the
> output to a text file. For example if the script is called FindPst.vbs:
>
> cscript //nologo FindPst.vbs > report.txt
>
> This assumes you are in the directory where the file FindPst.vbs is saved.
> Otherwise specify the full path. The //nologo option suppresses logo
> information. The file report.txt is created in the current directory.
>
> --
> Richard Mueller
> Microsoft MVP Scripting and ADSI
> Hilltop Lab - http://www.rlmueller.net
> --
>
> "LMac" <LMac@discussions.microsoft.com> wrote in message
> news:0C2F0A09-DD34-43CA-B632-C9E7C5933E08@microsoft.com...
> > Hi
> >
> > I need to output a list of pst files from a server into a text file. I
> > have
> > found this script which will show on screen the files but unable to find
> > out
> > how to export the list to a txt file. Can this be done?
> >
> > Thanks
> >
> > ----------------------------------------------------
> > Option Explicit
> >
> > Dim fso, objF, d, dc
> > Dim objWMIService, colFiles, objFile
> > Dim FileSizeKB, FileSizeMB, FileSizeGB
> >
> > Set objWMIService = _
> > GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")
> >
> > Set fso = CreateObject("Scripting.FileSystemObject")
> >
> > Set dc = fso.Drives
> >
> > For Each d in dc
> >
> > if d.DriveType = 2 then 'fixed drives only
> >
> > Set colFiles = objWMIService.ExecQuery("Select * from " & _
> > "CIM_DataFile where (Drive='" & d.DriveLetter & ":') " & _
> > "and (Extension = 'pst')")
> > For Each objFile in colFiles
> >
> > '1KB = 1024 bytes
> > FileSizeKB = objFile.FileSize \ 1024
> > '1MB = 1024 * 1024 bytes (1KB * 1024)
> > FileSizeMB = objFile.FileSize \ 1024 \ 1024
> > '1GB = 1024 * 1024 * 1024 bytes (1MB * 1024)
> > FileSizeGB = objFile.FileSize \ 1024 \ 1024 \ 1024
> > If FileSizeGB >= 1 Then
> > Wscript.Echo objFile.Name & " " & FileSizeGB & " GBytes"
> > ElseIf FileSizeMB >= 1 Then
> > Wscript.Echo objFile.Name & " " & FileSizeMB & " MBytes"
> > ElseIf FileSizeKB >= 1 Then
> > Wscript.Echo objFile.Name & " " & FileSizeKB & " KBytes"
> > Else
> > Wscript.Echo objFile.Name & " " & objFile.FileSize & " Bytes"
> > End If
> >
> > Next
> >
> > end if
> >
> > Next
> >
>
>
>

The script you posted is designed to be run on the local computer. The
statement:

Set objWMIService = _
GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")

connects to the local computer. The "\\." in the path means to default to
the local computer. If you substitute the NetBIOS name of a computer (local
or remote) for the".", the script will connect to that computer (if you have
permissions and connectivity). You can run your script in a loop, once for
each computer in an array. Something similar to (watch line wrappting):
============
arrServers = Array("servera", "serverb", "serverc")

For Each strServer In arrServers
' code for each server.
' ...
Set objWMIService = _
GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & strServer
& "\root\cimv2")
' ...
Next
===========
However, the code in your script that retrieves drives will only work on the
local computer. The FileSystemObject cannot retrieve drives on the remote
computer. Instead you can use the WMI Win32_LogicalDisk class. See the link
for details and examples:

http://www.microsoft.com/technet/scr..._fsd_zinq.mspx

You can navigate in the TOC at the left for examples. You will need to use
the Win32_LogicalDisk class to enumerate all drives (of DriveType=3, which
is local hard disks), then for each drive use your code to look just at
files with the specified extension. The same objWMIService object reference
is used to retrieve the drives and also the files.

--
Richard Mueller
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net
--

"LMac" <LMac@discussions.microsoft.com> wrote in message
news:70A0565B-F96F-462E-8394-28D447EFCC96@microsoft.com...
> Thanks for the info.
>
> Also, Is it possible to run this script for a number of servers and output
> the info into one file run through a scheduled task. I would be looking
> to
> search a specific location for each server e.g.
> \\servera\users
> \\serverb\users
> \\serverc\users
> Or would it be better running a different scheduled task on each server
> outputting to a different file each time?
>
> "Richard Mueller [MVP]" wrote:
>
>> Run the script at a command prompt with the cscript host and redirect the
>> output to a text file. For example if the script is called FindPst.vbs:
>>
>> cscript //nologo FindPst.vbs > report.txt
>>
>> This assumes you are in the directory where the file FindPst.vbs is
>> saved.
>> Otherwise specify the full path. The //nologo option suppresses logo
>> information. The file report.txt is created in the current directory.
>>
>> --
>> Richard Mueller
>> Microsoft MVP Scripting and ADSI
>> Hilltop Lab - http://www.rlmueller.net
>> --
>>
>> "LMac" <LMac@discussions.microsoft.com> wrote in message
>> news:0C2F0A09-DD34-43CA-B632-C9E7C5933E08@microsoft.com...
>> > Hi
>> >
>> > I need to output a list of pst files from a server into a text file. I
>> > have
>> > found this script which will show on screen the files but unable to
>> > find
>> > out
>> > how to export the list to a txt file. Can this be done?
>> >
>> > Thanks
>> >
>> > ----------------------------------------------------
>> > Option Explicit
>> >
>> > Dim fso, objF, d, dc
>> > Dim objWMIService, colFiles, objFile
>> > Dim FileSizeKB, FileSizeMB, FileSizeGB
>> >
>> > Set objWMIService = _
>> > GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")
>> >
>> > Set fso = CreateObject("Scripting.FileSystemObject")
>> >
>> > Set dc = fso.Drives
>> >
>> > For Each d in dc
>> >
>> > if d.DriveType = 2 then 'fixed drives only
>> >
>> > Set colFiles = objWMIService.ExecQuery("Select * from " & _
>> > "CIM_DataFile where (Drive='" & d.DriveLetter & ":') " & _
>> > "and (Extension = 'pst')")
>> > For Each objFile in colFiles
>> >
>> > '1KB = 1024 bytes
>> > FileSizeKB = objFile.FileSize \ 1024
>> > '1MB = 1024 * 1024 bytes (1KB * 1024)
>> > FileSizeMB = objFile.FileSize \ 1024 \ 1024
>> > '1GB = 1024 * 1024 * 1024 bytes (1MB * 1024)
>> > FileSizeGB = objFile.FileSize \ 1024 \ 1024 \ 1024
>> > If FileSizeGB >= 1 Then
>> > Wscript.Echo objFile.Name & " " & FileSizeGB & " GBytes"
>> > ElseIf FileSizeMB >= 1 Then
>> > Wscript.Echo objFile.Name & " " & FileSizeMB & " MBytes"
>> > ElseIf FileSizeKB >= 1 Then
>> > Wscript.Echo objFile.Name & " " & FileSizeKB & " KBytes"
>> > Else
>> > Wscript.Echo objFile.Name & " " & objFile.FileSize & " Bytes"
>> > End If
>> >
>> > Next
>> >
>> > end if
>> >
>> > Next
>> >
>>
>>
>>

How would I run this as a scheduled task?

cscript //nologo FindPst.vbs > report.txt


"LMac" wrote:

> Thanks for the info.
>
> Also, Is it possible to run this script for a number of servers and output
> the info into one file run through a scheduled task. I would be looking to
> search a specific location for each server e.g.
> \\servera\users
> \\serverb\users
> \\serverc\users
> Or would it be better running a different scheduled task on each server
> outputting to a different file each time?
>
> "Richard Mueller [MVP]" wrote:
>
> > Run the script at a command prompt with the cscript host and redirect the
> > output to a text file. For example if the script is called FindPst.vbs:
> >
> > cscript //nologo FindPst.vbs > report.txt
> >
> > This assumes you are in the directory where the file FindPst.vbs is saved.
> > Otherwise specify the full path. The //nologo option suppresses logo
> > information. The file report.txt is created in the current directory.
> >
> > --
> > Richard Mueller
> > Microsoft MVP Scripting and ADSI
> > Hilltop Lab - http://www.rlmueller.net
> > --
> >
> > "LMac" <LMac@discussions.microsoft.com> wrote in message
> > news:0C2F0A09-DD34-43CA-B632-C9E7C5933E08@microsoft.com...
> > > Hi
> > >
> > > I need to output a list of pst files from a server into a text file. I
> > > have
> > > found this script which will show on screen the files but unable to find
> > > out
> > > how to export the list to a txt file. Can this be done?
> > >
> > > Thanks
> > >
> > > ----------------------------------------------------
> > > Option Explicit
> > >
> > > Dim fso, objF, d, dc
> > > Dim objWMIService, colFiles, objFile
> > > Dim FileSizeKB, FileSizeMB, FileSizeGB
> > >
> > > Set objWMIService = _
> > > GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")
> > >
> > > Set fso = CreateObject("Scripting.FileSystemObject")
> > >
> > > Set dc = fso.Drives
> > >
> > > For Each d in dc
> > >
> > > if d.DriveType = 2 then 'fixed drives only
> > >
> > > Set colFiles = objWMIService.ExecQuery("Select * from " & _
> > > "CIM_DataFile where (Drive='" & d.DriveLetter & ":') " & _
> > > "and (Extension = 'pst')")
> > > For Each objFile in colFiles
> > >
> > > '1KB = 1024 bytes
> > > FileSizeKB = objFile.FileSize \ 1024
> > > '1MB = 1024 * 1024 bytes (1KB * 1024)
> > > FileSizeMB = objFile.FileSize \ 1024 \ 1024
> > > '1GB = 1024 * 1024 * 1024 bytes (1MB * 1024)
> > > FileSizeGB = objFile.FileSize \ 1024 \ 1024 \ 1024
> > > If FileSizeGB >= 1 Then
> > > Wscript.Echo objFile.Name & " " & FileSizeGB & " GBytes"
> > > ElseIf FileSizeMB >= 1 Then
> > > Wscript.Echo objFile.Name & " " & FileSizeMB & " MBytes"
> > > ElseIf FileSizeKB >= 1 Then
> > > Wscript.Echo objFile.Name & " " & FileSizeKB & " KBytes"
> > > Else
> > > Wscript.Echo objFile.Name & " " & objFile.FileSize & " Bytes"
> > > End If
> > >
> > > Next
> > >
> > > end if
> > >
> > > Next
> > >
> >
> >
> >

One way would be to schedule a batch file (or CMD script ;-) that contains
the command you want to run.

/Al

"LMac" <LMac@discussions.microsoft.com> wrote in message
news:01956639-573D-4A27-8C45-086393F9D3EF@microsoft.com...
> How would I run this as a scheduled task?
>
> cscript //nologo FindPst.vbs > report.txt
>
>
> "LMac" wrote:
>
>> Thanks for the info.
>>
>> Also, Is it possible to run this script for a number of servers and
>> output
>> the info into one file run through a scheduled task. I would be looking
>> to
>> search a specific location for each server e.g.
>> \\servera\users
>> \\serverb\users
>> \\serverc\users
>> Or would it be better running a different scheduled task on each server
>> outputting to a different file each time?
>>
>> "Richard Mueller [MVP]" wrote:
>>
>> > Run the script at a command prompt with the cscript host and redirect
>> > the
>> > output to a text file. For example if the script is called FindPst.vbs:
>> >
>> > cscript //nologo FindPst.vbs > report.txt
>> >
>> > This assumes you are in the directory where the file FindPst.vbs is
>> > saved.
>> > Otherwise specify the full path. The //nologo option suppresses logo
>> > information. The file report.txt is created in the current directory.
>> >
>> > --
>> > Richard Mueller
>> > Microsoft MVP Scripting and ADSI
>> > Hilltop Lab - http://www.rlmueller.net
>> > --
>> >
>> > "LMac" <LMac@discussions.microsoft.com> wrote in message
>> > news:0C2F0A09-DD34-43CA-B632-C9E7C5933E08@microsoft.com...
>> > > Hi
>> > >
>> > > I need to output a list of pst files from a server into a text file.
>> > > I
>> > > have
>> > > found this script which will show on screen the files but unable to
>> > > find
>> > > out
>> > > how to export the list to a txt file. Can this be done?
>> > >
>> > > Thanks
>> > >
>> > > ----------------------------------------------------
>> > > Option Explicit
>> > >
>> > > Dim fso, objF, d, dc
>> > > Dim objWMIService, colFiles, objFile
>> > > Dim FileSizeKB, FileSizeMB, FileSizeGB
>> > >
>> > > Set objWMIService = _
>> > > GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")
>> > >
>> > > Set fso = CreateObject("Scripting.FileSystemObject")
>> > >
>> > > Set dc = fso.Drives
>> > >
>> > > For Each d in dc
>> > >
>> > > if d.DriveType = 2 then 'fixed drives only
>> > >
>> > > Set colFiles = objWMIService.ExecQuery("Select * from " & _
>> > > "CIM_DataFile where (Drive='" & d.DriveLetter & ":') " & _
>> > > "and (Extension = 'pst')")
>> > > For Each objFile in colFiles
>> > >
>> > > '1KB = 1024 bytes
>> > > FileSizeKB = objFile.FileSize \ 1024
>> > > '1MB = 1024 * 1024 bytes (1KB * 1024)
>> > > FileSizeMB = objFile.FileSize \ 1024 \ 1024
>> > > '1GB = 1024 * 1024 * 1024 bytes (1MB * 1024)
>> > > FileSizeGB = objFile.FileSize \ 1024 \ 1024 \ 1024
>> > > If FileSizeGB >= 1 Then
>> > > Wscript.Echo objFile.Name & " " & FileSizeGB & " GBytes"
>> > > ElseIf FileSizeMB >= 1 Then
>> > > Wscript.Echo objFile.Name & " " & FileSizeMB & " MBytes"
>> > > ElseIf FileSizeKB >= 1 Then
>> > > Wscript.Echo objFile.Name & " " & FileSizeKB & " KBytes"
>> > > Else
>> > > Wscript.Echo objFile.Name & " " & objFile.FileSize & " Bytes"
>> > > End If
>> > >
>> > > Next
>> > >
>> > > end if
>> > >
>> > > Next
>> > >
>> >
>> >
>> >