Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  List  Exchange  Queue  Information  

 Content of List Exchange Queue Information.vbs
MD5 Hash: 5EFB7E191DA9A2FB7DF71E60B63A12D2
' Description: Returns queue information for a computer running Microsoft Exchange Server 2003.


On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\ROOT\MicrosoftExchangeV2")

Set colItems = objWMIService.ExecQuery("Select * from ExchangeQueue")

For Each objItem in colItems
Wscript.Echo "Can enumerate all: " & objItem.CanEnumAll
Wscript.Echo "Can enumerate failures: " & objItem.CanEnumFailed
Wscript.Echo "Van enumerate first N messages: " & _
objItem.CanEnumFirstNMessages
Wscript.Echo "Can enumerate frozen messages: " & _
objItem.CanEnumFrozen
Wscript.Echo "Can enumerate messages not meeting the criteria: " & _
objItem.CanEnumInvertSense
Wscript.Echo "Can enumerate messages larger than X: " & _
objItem.CanEnumLargerThan
Wscript.Echo "Can enumerate largest N messages: " & _
objItem.CanEnumNLargestMessages
Wscript.Echo "Can enumerate oldest N messages: " & _
objItem.CanEnumNOldestMessages
Wscript.Echo "Can enumerate messages older than X: " & _
objItem.CanEnumOlderThan
Wscript.Echo "Can enumerate recipients: " & _
objItem.CanEnumRecipient
Wscript.Echo "Can enumerate senders: " & objItem.CanEnumSender
Wscript.Echo "Global stop: " & objItem.GlobalStop
Wscript.Echo "Increasing time: " & objItem.IncreasingTime
Wscript.Echo "Link name: " & objItem.LinkName
Wscript.Echo "Message enumeration flags supported: " & _
objItem.MsgEnumFlagsSupported
Wscript.Echo "Number of messages: " & objItem.NumberOfMessages
Wscript.Echo "Protocol name: " & objItem.ProtocolName
Wscript.Echo "Queue name: " & objItem.QueueName
Wscript.Echo "Size of queue: " & objItem.SizeOfQueue
Wscript.Echo "Version: " & objItem.Version
Wscript.Echo "Virtual machine: " & objItem.VirtualMachine
Wscript.Echo "Virtual server name: " & objItem.VirtualServerName
Wscript.Echo
Next

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a