Merhaba;

OWA dan göremezsiniz ama aşağıdaki vbs script i kullanarak görebilirsiniz.

İyi Çalışmalar



'This script logs on to a server that is running Exchange Server and
'displays the current number of bytes that are used in the user's
'mailbox.


' USAGE: cscript MailboxSize.vbs SERVERNAME MAILBOXNAME USERNAME =
PASSWORD


' SERVERNAME: Name of your Exchange Server


' MAILBOXNAME: Your alias (Note: depending on your environment, you may =
need to use the portion of your=20
' SMTP address left of the '@' symbol instead of your alias.


' USERNAME: Your domainname\username '


' PASSWORD: Your domain password=20
' This script is provided AS IS. It is intended as a SAMPLE only.
' Microsoft offers no warranty or support for this script.=20
' Use at your own risk.=20


' Get command line arguments.


Dim obArgs
Dim cArgs
Dim iSum


Set obArgs =3D WScript.Arguments
cArgs =3D obArgs.Count


Main


Sub Main()
Dim sUrl
Dim sMsg


On Error Resume Next


iSum =3D 0


' Check argument count.
If cArgs <> 4 Then
sMsg =3D "Usage: cscript MailboxSize.vbs "
sMsg =3D sMsg & "SERVERNAME MAILBOXNAME USERNAME PASSWORD"
WScript.Echo sMsg=20
Exit Sub
End If


sUrl =3D "http://" & obArgs.Item(0) & "/exchange/" & obArgs.Item(1) & =
"/NON_IPM_SUBTREE"
wscript.echo sUrl


RecurseFolder(sUrl)


WScript.Echo "Mailbox Size: " & iSum
End Sub


Public Sub RecurseFolder(sUrl)
Dim oXMLHttp
Dim oXMLDoc
Dim oXMLSizeNodes
Dim oXMLHREFNodes
Dim oXMLHasSubsNodes
Dim sQuery


Set oXMLHttp =3D CreateObject("Microsoft.xmlhttp&quot
If Err.Number <> 0 Then
WScript.Echo "Error Creating XML object"
WScript.Echo Err.Number & ": " & Err.Description
Set oXMLHttp =3D Nothing
End If


' Open DAV connection.
oXMLHttp.open "SEARCH", sUrl, False, obArgs.Item(2), obArgs.Item(3)
If Err.Number <> 0 Then
WScript.Echo "Error opening DAV connection"
WScript.Echo Err.Number & ": " & Err.Description
Set oXMLHttp =3D Nothing
End If


' Set up query.
sQuery =3D "<?xml version=3D""1.0""?>"
sQuery =3D sQuery & "<g:searchrequest xmlns:g=3D""DAV:"">"
sQuery =3D sQuery & "<g:sql>SELECT ""http://schemas.microsoft.com/"
sQuery =3D sQuery & "mapi/proptag/x0e080003"", ""DAV:hassubs"" FROM =
SCOPE "
sQuery =3D sQuery & "('SHALLOW TRAVERSAL OF """ & sUrl & """&#039 "
sQuery =3D sQuery & "WHERE ""DAV:isfolder"" =3D true"
sQuery =3D sQuery & "</g:sql>"
sQuery =3D sQuery & "</g:searchrequest>"


' Set request headers.
oXMLHttp.setRequestHeader "Content-Type", "text/xml"
oXMLHttp.setRequestHeader "Translate", "f"
oXMLHttp.setRequestHeader "Depth", "0"
oXMLHttp.setRequestHeader "Content-Length", "" & Len(sQuery)


' Send request.
oXMLHttp.send sQuery
If Err.Number <> 0 Then
WScript.Echo "Error Sending Query"
WScript.Echo Err.Number & ": " & Err.Description
Set oXMLHttp =3D Nothing
End If=20


' Load XML.
Set oXMLDoc =3D oXMLHttp.responseXML


' Get the XML nodes that contain the individual sizes.
Set oXMLSizeNodes =3D oXMLDoc.getElementsByTagName("d:x0e080003&quo t


' Get the XML nodes that contain the individual HREFs.
Set oXMLHREFNodes =3D oXMLDoc.getElementsByTagName("a:href&quot


' Get the XML nodes that contain the individual HasSubs.
Set oXMLHasSubsNodes =3D oXMLDoc.getElementsByTagName("a:hassubs&quot


' Loop through the nodes, and then add all of the sizes.
For i =3D 0 to oXMLSizeNodes.length - 1
WScript.Echo oXMLHREFNodes.Item(i).nodeTypedValue
WScript.Echo "Size: " & oXMLSizeNodes.Item(i).nodeTypedValue
iSum =3D iSum + oXMLSizeNodes.Item(i).nodeTypedValue


' If the folder has subfolders, call your recursive function to=20
' process subfolders.
If oXMLHasSubsNodes.Item(i).nodeTypedValue =3D True Then
RecurseFolder oXMLHREFNodes.Item(i).nodeTypedValue
End If
Next


' Clean up.
Set oXMLSizeNodes =3D Nothing
Set oXMLDoc =3D Nothing
Set oXMLHttp =3D Nothing
End Sub