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  Message  Tracking  Entry  Information  

 Content of List Exchange Message Tracking Entry Information.vbs
MD5 Hash: A742706683E4EE21D9C7A122A884C42C
' Description: Returns message tracking entry 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 Exchange_MessageTrackingEntry")

For Each objItem in colItems
Wscript.Echo "Attempted partner server: " & _
objItem.AttemtpedPartnerServer
Wscript.Echo "Client IP: " & objItem.ClientIP
Wscript.Echo "Client name: " & objItem.ClientName
Wscript.Echo "Cost: " & objItem.Cost
Wscript.Echo "Delivery time: " & objItem.DeliveryTime
Wscript.Echo "Encrypted: " & objItem.Encrypted
Wscript.Echo "Entry type: " & objItem.EntryType
Wscript.Echo "Expansion DL: " & objItem.ExpansionDL
Wscript.Echo "Key ID: " & objItem.KeyID
Wscript.Echo "Linked message ID: " & _
objItem.LinkedMessageID
Wscript.Echo "Message ID: " & objItem.MessageID
Wscript.Echo "Origination time: " & objItem.OriginationTime
Wscript.Echo "Partner server: " & objItem.PartnerServer
Wscript.Echo "Priority: " & objItem.Priority
Wscript.Echo "Recipient address: " & _
objItem.RecipientAddress
Wscript.Echo "Recipient count: " & objItem.RecipientCount
Wscript.Echo "Recipient status: " & objItem.RecipientStatus
Wscript.Echo "Sender address: " & objItem.SenderAddress
Wscript.Echo "Server IP: " & objItem.ServerIP
Wscript.Echo "Server name: " & objItem.ServerName
Wscript.Echo "Size: " & objItem.Size
Wscript.Echo "Subject: " & objItem.Subject
Wscript.Echo "Subject ID: " & objItem.SubjectID
Wscript.Echo "Time logged: " & objItem.TimeLogged
Wscript.Echo "Version: " & objItem.Version
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