Exchange Server DB size

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Exchange Server DB size

Logged in as: Guest

arrSession:exec spGetSession 2,16,49860

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

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Exchange Server DB size
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Exchange Server DB size - 7/23/2007 7:22:51 PM

4scriptmoni

Posts: 184
Score: 0
Joined: 5/3/2007
Status: offline

This script gets Exchange Servers DB (.edb and .stm) file sizes.
I have ran it for about 23 servers in 30 seconds. Outputs into a text file csv format.

'Script to get all EVS DBs sizes
'Atuhor: Felipe Ferreira date:19/07/2007
'Version: 5.0
'USAGE: Be sure to create a text file called serverlist.txt on the same folder of this script and it should be formated like:
'Servername,D,E  (Servername, disks where .edb and .stm are stored) 
'Special Thanks to CondoPC and all people from  [link=http://www.visualbasicscript.com]www.visualbasicscript.com[/link]

Dim fso, f, filespec, ar(22,14)
Dim intFileSize, RunTime, t1
Dim strLine,strDriveLetter,strServer
Dim k,i,x,y
Dim arrServers,strLineP
t1 = Timer  'time the script

strScriptFile = WScript.ScriptFullname
strScriptPath = Left(strScriptFile, Len(strScriptFile) - Len(WScript.Scriptname)) 'used to define the path from where the script file is located
strServerList = strScriptPath & "serverlist.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
filename = strScriptPath & "DBSizeLog_" & day(now) & "_" & Month(now) & "_" & year(now) & "_" & time() & ".txt"
set oFile= fso.CreateTextFile(filename)

oFile.Writeline "EVS, Path, Filename, Size(GB)"

'**** Main Script *****
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strServerList) Then
 Set objServerList = objFSO.OpenTextFile(strServerList, 1)
 Do Until objServerList.AtEndOfStream
   strLine = objServerList.ReadLine
   BuildMyArray strLine
 Loop
 objServerList.Close
End If
Set objServerList = Nothing
Set objFSO = Nothing

'*** Processes *****
Sub BuildMyArray(strLineP)
arrServers = split(strLineP,",")
ParseServerDrives(arrServers(0)) 'first item of array always the servername
End Sub

Sub ParseServerDrives(strServer)
 For Each strDriveLetter in arrServers
    If strDriveLetter <> strServer Then
       GetEx strServer, strDriveLetter, "edb" 
       GetEx strServer, strDriveLetter, "stm"
    End If
 Next
End Sub

RunTime = Timer  - t1
RunTime = Left(RunTime, 4)
wscript.echo "Command Completed in: " & RunTime & " seconds"
oFile.WriteLine "Command Completed in: " & RunTime & " seconds"
oFile.Writeline "Command executed in " & Date & " at " & Time & VbCrLf 
Wscript.Quit

'######################SUBS and FUNCTIONS####################################
Function GetEx(strServerP,DiskD,strExt)
  Dim vQuery, strExt1, strFileName,varPath, intSize
  Dim objWMIService, colItems
  'Adds : to DISK Letter only if does not have it.
  if not inStr(DiskD, ":") > 0 then
      DiskD = DiskD & ":"  
  end if    
  'Wscript.Echo "Server: " & strServerP & "  Disk: " & DiskD & "  Extension: " & strExt
  vQuery = "SELECT * FROM CIM_DataFile WHERE Extension = '" & strExt & "' AND Drive = '" & DiskD & "' "
     Set objWMIService = GetObject("winmgmts:\\" & strServerP & "\root\CIMV2")
     Set colItems = objWMIService. _
              ExecQuery(vQuery)
For Each objItem In colItems
      'reset values:
      intSize = 0
      strFileName = "" 
      varPath = ""
        if instr(objItem.Path, "sg") > 0 and inStr(objItem.FileName, "db") > 0  then
          strFileName = objItem.FileName & "." & objItem.Extension
          varPath = DiskD & objItem.Path
          if objItem.FileSize > 524288000 then  'Only if more then 500megas
              intSize = toGigaBytes(objItem.FileSize)
              'intSize = FormatNumber(intSize,2)
              oFile.writeline strServerP & ", " & varPath & ", " & strFileName & ", " & intSize 
          end if                      
        end if
Next
end function
Function toGigaBytes(bytes) 
              toGigabytes = int (((bytes / 1024) /1024) / 1024) 
End Function

_____________________________

Enterprise Microsoft Scripts
Exchange, Login/Logout Monitor,TS, Monitoring, Security, AD, etc...
http://www.xoroz.com