'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 and the number of messages.

' USAGE: cscript MailboxSize.vbs SERVERNAME MAILBOXNAME

' This requires that CDO 1.21 is installed on the computer.
' This script is provided AS IS. It is intended as a SAMPLE only.
' Microsoft offers no warranty OR support For this script.
' Use at your own risk.

' Get command line arguments.

Dim obArgs
Dim cArgs

Set obArgs = WScript.Arguments
cArgs = obArgs.Count

Main

Sub Main()
   Dim oSession
   Dim oInfoStores
   Dim oInfoStore
   Dim StorageUsed
   Dim NumMessages
   Dim strProfileInfo
   Dim sMsg

   On Error Resume Next

   If cArgs <> 2 Then
      WScript.Echo "Usage: cscript MailboxSize.vbs SERVERNAME MAILBOXNAME"
      Exit Sub
   End If

   'Create Session object.
   Set oSession = CreateObject("MAPI.Session")
   If Err.Number <> 0 Then
      sMsg = "Error creating MAPI.Session."
      sMsg = sMsg & "Make sure CDO 1.21 is installed. "
      sMsg = sMsg & Err.Number & " " & Err.Description
      WScript.Echo sMsg
      Exit Sub
   End If

   strProfileInfo = obArgs.Item(0) & vbLf & obArgs.Item(1)

   'Log on.
   oSession.Logon , , False, True, , True, strProfileInfo
   If Err.Number <> 0 Then
      sMsg = "Error logging on: "
      sMsg = sMsg & Err.Number & " " & Err.Description
      WScript.Echo sMsg
      WScript.Echo "Server: " & obArgs.Item(0)
      WScript.Echo "Mailbox: " & obArgs.Item(1)
      Set oSession = Nothing
      Exit Sub
   End If

   'Grab the information stores.
   Set oInfoStores = oSession.InfoStores
   If Err.Number <> 0 Then

      sMsg = "Error retrieving InfoStores Collection: "
      sMsg = sMsg & Err.Number & " " & Err.Description
      WScript.Echo sMsg
      WScript.Echo "Server: " & obArgs.Item(0)
      WScript.Echo "Mailbox: " & obArgs.Item(1)
      Set oInfoStores = Nothing
      Set oSession = Nothing
      Exit Sub
   End If

   'Loop through information stores to find the user's mailbox.
   For Each oInfoStore In oInfoStores
      If InStr(1, oInfoStore.Name, "Mailbox - ", 1) <> 0 Then
         '&HE080003 = PR_MESSAGE_SIZE
         StorageUsed = oInfoStore.Fields(&HE080003)
         If Err.Number <> 0 Then
            sMsg = "Error retrieving PR_MESSAGE_SIZE: "
            sMsg = sMsg & Err.Number & " " & Err.Description
            WScript.Echo sMsg
            WScript.Echo "Server: " & obArgs.Item(0)
            WScript.Echo "Mailbox: " & obArgs.Item(1)
            Set oInfoStore = Nothing
            Set oInfoStores = Nothing
            Set oSession = Nothing
            Exit Sub
         End If

         '&H33020003 = PR_CONTENT_COUNT
         NumMessages = oInfoStore.Fields(&H36020003)

         If Err.Number <> 0 Then

            sMsg = "Error Retrieving PR_CONTENT_COUNT: "
            sMsg = sMsg & Err.Number & " " & Err.Description
            WScript.Echo sMsg
            WScript.Echo "Server: " & obArgs.Item(0)
            WScript.Echo "Mailbox: " & obArgs.Item(1)
            Set oInfoStore = Nothing
            Set oInfoStores = Nothing
            Set oSession = Nothing
            Exit Sub
         End If

         sMsg = "Storage Used in " & oInfoStore.Name
         sMsg = sMsg & " (bytes): " & StorageUsed
         WScript.Echo sMsg
         WScript.Echo "Number of Messages: " & NumMessages
      End If
   Next

   ' Log off.
   oSession.LogOff

   ' Clean up memory.
   Set oInfoStore = Nothing
   Set oInfoStores = Nothing
   Set oSession = Nothing
End Sub

Quote:

---

Make sure CDO 1.21 is installed.

---

        $Outlook = CreateObject("Outlook.Application")
        $NS      = $Outlook.GetNamespace("MAPI")
        $Fldr    = $NS.GetDefaultFolder(6)
        $Unread  = $Fldr.UnReadItemCount
        $Outlook = 0
        if $unread
                $=sendmessage(@wksta,"You have $unread unread email messages")
                endif

Dim $oSession, $oInfoStores, $oInfoStore, $StorageUsed, $NumMessages, $strProfileInfo, $sMsg, $server, $mailbox

$server = "mailserver"
$mailbox = @USERID

If $server = ""
	?"Please specify a server."
	Sleep 5
	Exit
Else
	If $mailbox = ""
		?"Please specify a mailbox."
		Sleep 5
		Exit
	EndIf
EndIf

   ;Create Session object.
$oSession = CreateObject("MAPI.Session")
If @ERROR
	$sMsg = "Error creating MAPI.Session."
	$sMsg = $sMsg + "Make sure CDO 1.21 is installed. "
	$sMsg = $sMsg + @ERROR + " " + @SERROR
    ?$sMsg
    Exit @ERROR
EndIf

$strProfileInfo = $server + " " + $mailbox

;Log on.
;!!!! This line is untranslated and therefor gives errors !!!!
$oSession.Logon , , False, True, , True, $strProfileInfo
If @ERROR
	$sMsg = "Error logging on: "
	$sMsg = $sMsg +@ERROR + " " + @SERROR
	?$sMsg
	?"Server: " $server
	?"Mailbox: " $mailbox
	$oSession = 0
	Exit @ERROR
EndIf

;Grab the information stores.
$oInfoStores = $oSession.InfoStores
If @ERROR
	$sMsg = "Error retrieving InfoStores Collection: "
	$sMsg = $sMsg + @ERROR +  " " + @SERROR
	?$sMsg
	?"Server: " + $server
	?"Mailbox: " + $mailbox
	$oInfoStores = 0
	$oSession = 0
	Exit @ERROR
EndIf

;Loop through information stores to find the user's mailbox.
For Each $oInfoStore in $oInfoStores
	If InStr($oInfoStore.Name, "Mailbox - ")
		;!!!! This line gives errors !!!!
		$StorageUsed = $oInfoStore.Fields(&HE080003)
		If @ERROR
			$sMsg = "Error retrieving PR_MESSAGE_SIZE: "
			$sMsg = $sMsg + @ERROR " " + @SERROR
			?$sMsg
			?"Server: " + $server
			?"Mailbox: " $mailbox
			$oInfoStore = 0
			$oInfoStores = 0
			$oSession = 0
			Exit @ERROR
		EndIf
		
		;!!!! This line gives errors !!!!
		$NumMessages = $oInfoStore.Fields(&H36020003)
		If@ERROR
			$sMsg = "Error Retrieving PR_CONTENT_COUNT: "
			$sMsg = $sMsg +@ERROR + " " + @SERROR
			?sMsg
			?"Server: " $server
			?"Mailbox: " $mailbox
			$oInfoStore = 0
			$oInfoStores = 0
			$oSession = 0
			Exit @ERROR
		EndIf
	
		$sMsg = "Storage Used in "  $oInfoStore.Name
		$sMsg = $sMsg + " (bytes): " + $StorageUsed
		?$sMsg
		?"Number of Messages: " + $NumMessages
	EndIf
Next

;Log off.
$rc = $oSession.LogOff

;Clean up memory.
$oInfoStore = 0
$oInfoStores = 0
$oSession = 0

$oSession.Logon(,,0,1,,1,$strProfileInfo)

;This script logs on to a server that is running Exchange Server.
;It displays the current number of bytes that are used in the user's mailbox and the number of messages.
;This requires that CDO 1.21 is installed on the computer.
;
Dim $oSession, $oInfoStores, $oInfoStore, $StorageUsed, $NumMessages, $strProfileInfo, $sMsg, $server, $mailbox
;
;Set mail server mailbox to query.
$server = "put your mail server here"
$mailbox = "put the mailbox to query here"
;
;Check if the server and mailbox are not empty.
If $server = ""
	?"Please specify a server."
	Sleep 5
	Exit
Else
	If $mailbox = ""
		?"Please specify a mailbox."
		Sleep 5
		Exit
	EndIf
EndIf
;
;Create Session object.
$oSession = CreateObject("MAPI.Session")
If @ERROR
	$sMsg = "Error creating MAPI.Session."
	$sMsg = $sMsg + "Make sure CDO 1.21 is installed. "
	$sMsg = $sMsg + @ERROR + " " + @SERROR
    ?$sMsg
    Exit @ERROR
EndIf
;
;Set the login string.
$vbLf = Chr(10)
$strProfileInfo = $server + $vbLf + $mailbox
;
;Log on to the server.
$oSession.Logon(,,0,1,,1,$strProfileInfo)
If @ERROR
	$sMsg = "Error logging on: "
	$sMsg = $sMsg +@ERROR + " " + @SERROR
	?$sMsg
	?"Server: " $server
	?"Mailbox: " $mailbox
	$oSession = 0
	Exit @ERROR
EndIf
;
;Grab the information stores.
$oInfoStores = $oSession.InfoStores
If @ERROR
	$sMsg = "Error retrieving InfoStores Collection: "
	$sMsg = $sMsg + @ERROR +  " " + @SERROR
	?$sMsg
	?"Server: " + $server
	?"Mailbox: " + $mailbox
	$oInfoStores = 0
	$oSession = 0
	Exit @ERROR
EndIf
;
;Loop through information stores to find the user's mailbox.
For Each $oInfoStore in $oInfoStores
	If InStr($oInfoStore.Name, "Mailbox - ")
		;
		;Get the amount of space ussed by the mailbox.
		$StorageUsed = $oInfoStore.Fields(&E080003)
		If @ERROR
			$sMsg = "Error retrieving PR_MESSAGE_SIZE: "
			$sMsg = $sMsg + @ERROR " " + @SERROR
			?$sMsg
			?"Server: " + $server
			?"Mailbox: " $mailbox
			$oInfoStore = 0
			$oInfoStores = 0
			$oSession = 0
			Exit @ERROR
		EndIf
		;
		;Get the number of messages in the mailbox.
		$NumMessages = $oInfoStore.Fields(&36020003)
		If@ERROR
			$sMsg = "Error Retrieving PR_CONTENT_COUNT: "
			$sMsg = $sMsg +@ERROR + " " + @SERROR
			?"Server: " $server
			?"Mailbox: " $mailbox
			$oInfoStore = 0
			$oInfoStores = 0
			$oSession = 0
			Exit @ERROR
		EndIf
		;
		;Display the results.
		$sMsg = "Storage Used in " + $oInfoStore.Name
		$sMsg = $sMsg + " (bytes): " + $StorageUsed
		?$sMsg
		?"Number of Messages: " + $NumMessages
		Sleep 5
	EndIf
Next
;
;Log off.
$rc = $oSession.LogOff
;
;Clean up memory.
$oInfoStore = 0
$oInfoStores = 0
$oSession = 0