Solved

Shared folder Audit with a script. Record the Shared folder size in an csv or excel.

Posted on 2008-09-29
7
653 Views
Last Modified: 2012-05-05
Hi,

Shared folder Audit with a script. Record the Shared folder size in an csv or excel.
Attached is a sample sheet.
I want a script that i can schedule when run checks all shared folders and records the size in the colum.

So i know which folder when has taken up space. To monitor the shares this would be an excellent help...

Any excel, Batch or vbs script has can do this.
Regards
Sharath
Sample.xls
0
Comment
Question by:bsharath
  • 3
  • 3
7 Comments
 
LVL 58

Expert Comment

by:tigermatt
Comment Utility
Try this. It doesn't write to an Excel file - it simply outputs to a text logfile at a path you specify.

You need to enter the shares to be monitored on each line in a text file. Specify the path to this file in the Const rootFolders entry. The logging path is then the Const logFile entry.

Matthew
'Variables

Const rootFolders = "C:\rootFolders.txt"

Const logFile = "C:\logfile.txt"

 

' *****
 

Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
 

If fso.FileExists(rootFolders) = 0 Then

	MsgBox("No list of root folders")

	WScript.Quit

End If

Dim objrootFolders: Set objrootFolders = fso.OpenTextFile(rootFolders, 1)

Dim logFileObj: Set logFileObj = fso.CreateTextFile(logFile, True)
 

Do while not objrootFolders.AtEndOfStream

	strFolder = objrootFolders.ReadLine

	'MsgBox(strFolder)

	If fso.FolderExists(strFolder) = True Then

		logFileObj.WriteLine(strFolder & " -- " & (fso.GetFolder(strFolder).Size/1000/1000) & " MB")

	Else

		logFileObj.WriteLine (strFolder & " -- Does not exist!")

	End If

Loop

 

MsgBox("Complete")

Open in new window

0
 
LVL 11

Author Comment

by:bsharath
Comment Utility
Thanks mathew

But the size appears as this for a 2.37 MB i get this (2.488644 MB) Can this be changed.
When i run the 2nd time i get the old data erased and new data is inserted.

As this is going to have a log file.
Can this create new files every time i run the script with the date and time. So later i can move all to an excel to compare.

It would be good if the script can find the shares automatically....
0
 
LVL 11

Author Comment

by:bsharath
Comment Utility
Thanks mathew

But the size appears as this for a 2.37 MB i get this (2.488644 MB) Can this be changed.
When i run the 2nd time i get the old data erased and new data is inserted.

As this is going to have a log file.
Can this create new files every time i run the script with the date and time. So later i can move all to an excel to compare.

It would be good if the script can find the shares automatically....
0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 
LVL 58

Accepted Solution

by:
tigermatt earned 500 total points
Comment Utility
Here you go.

MB is now rounded to 2 DP. Log Files made by Date. And Shares found automatically.

:)
'Variables

Const logFileRoot = "C:\CanoScan\" 'Logfiles will be made here WITH trailing \

 

' *****

 

Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")

 

Dim logFileObj: Set logFileObj = fso.CreateTextFile(logFileRoot & Year(Date()) & "-" & MonthName(Month(Date()),3) & "-" & Day(Date()) & " " & Hour(Time()) & "." & Minute(Time()) & "." & Second(Time()) & ".log", True)
 

strComputer = "."

Dim objWMIService: Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Dim pcShares: Set pcShares = objWMIService.ExecQuery("Select * from Win32_Share")
 

For each objShare in pcShares

	If not Right(objShare.Name, 1) = "$" Then

        	strFolder = objShare.Path

        	'MsgBox(strFolder)

                logFileObj.WriteLine(strFolder & " -- " & Round((fso.GetFolder(strFolder).Size/1000/1000),2) & " MB")

   

	End If

Next

 

MsgBox("Complete")

Open in new window

0
 
LVL 11

Author Comment

by:bsharath
Comment Utility
Thanks Matthew works great...
0
 
LVL 58

Expert Comment

by:tigermatt
Comment Utility
Good :)
0
 

Expert Comment

by:wdedeaux
Comment Utility
Thank you for the script post this would be very helpful. I am however getting a script error of object not found  line 18 ch17 after the script has written just 3 entries.  Is it the log file not being found or the pc share?
0

Featured Post

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

This article is meant to give a basic understanding of how to use R Sweave as a way to merge LaTeX and R code seamlessly into one presentable document.
Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
The viewer will learn how to user default arguments when defining functions. This method of defining functions will be contrasted with the non-default-argument of defining functions.
The viewer will learn how to clear a vector as well as how to detect empty vectors in C++.

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now