返回运行 Microsoft Exchange Server 2003 的计算机上的队列中的邮件信息。
Visual Basic
On Error Resume Next
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & _
“\ROOT\MicrosoftExchangeV2″)
Set colItems = objWMIService.ExecQuery _
(“Select * from Exchange_QueuedMessage”)
For Each objItem in colItems
Wscript.Echo “Action deleted NDR: ” & objItem.ActionDeletedNDR
Wscript.Echo “Action deleted no NDR: ” & _
objItem.ActionDeletedNoNDR
Wscript.Echo “Action freeze: ” & objItem.ActionFreeze
Wscript.Echo “Action thaw: ” & objItem.ActionThaw
Wscript.Echo “Expiry: ” & objItem.Expiry
Wscript.Echo “High priority: ” & objItem.HighPriority
Wscript.Echo “Link ID: ” & objItem.LinkID
Wscript.Echo “Link name: ” & objItem.LinkName
Wscript.Echo “Low priority: ” & objItem.LowPriority
Wscript.Echo “Message ID: ” & objItem.MessageID
Wscript.Echo “Normal priority: ” & objItem.NormalPriority
Wscript.Echo “Protocol ID: ” & objItem.ProtocolName
Wscript.Echo “Queue ID: ” & objItem.QueueID
Wscript.Echo “Queue name: ” & objItem.QueueName
Wscript.Echo “Received: ” & objItem.Received
Wscript.Echo “Recipient count: ” & objItem.RecipientCount
Wscript.Echo “Recipients: ” & objItem.Recipients
Wscript.Echo “Sender: ” & objItem.Sender
Wscript.Echo “Size: ” & objItem.Size
Wscript.Echo “State flags: ” & objItem.StateFlags
Wscript.Echo “State frozen: ” & objItem.StateFrozen
Wscript.Echo “State retry: ” & objItem.StateRetry
Wscript.Echo “Subject: ” & objItem.Subject
Wscript.Echo “Submission: ” & objItem.Submission
Wscript.Echo “Version: ” & objItem.Version
Wscript.Echo “Virtual machine: ” & objItem.VirtualMachine
Wscript.Echo “Virtual server name: ” & _
objItem.VirtualServerName
Wscript.Echo
Next
- 微软发布全新云计算资料分析工具Azure Synapse - 2020年12月15日
- Exchange Server 版本号和发行日期汇总 - 2020年9月21日
- Project OneFuzz – Azure发布了开源模糊测试框架 - 2020年9月20日
还没有评论