Previous Page
Next Page

The Exchange_QueueSMTPVirtualServer Class

For the first code sample (ExchangeSMTPQueue.vbs), consider the Exchange_QueueSMTPVirtualServer class, which returns properties for Simple Mail Transfer Protocol (SMTP) queue virtual servers. ExchangeSMTPQueue.vbs is shown here:

ExchangeSMTPQueue.vbs

Option Explicit
On Error Resume Next
Dim strComputer
Dim wmiNS
Dim wmiQuery
Dim objWMIService
Dim colItems
Dim objItem

strComputer = "."
wmiNS = "\root\MicrosoftExchangeV2"
wmiQuery = "Select * from Exchange_QueueSMTPVirtualServer"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem In colItems
  WScript.Echo "Caption: " & objItem.Caption
  WScript.Echo "Description: " & objItem.Description
  WScript.Echo "GlobalActionsSupported: " _
    & objItem.GlobalActionsSupported
  WScript.Echo "GlobalStop: " & objItem.GlobalStop
  WScript.Echo "InstallDate: " & objItem.InstallDate
  WScript.Echo "Name: " & objItem.Name
  WScript.Echo "ProtocolName: " & objItem.ProtocolName
  WScript.Echo "Status: " & objItem.Status
  WScript.Echo "VirtualMachine: " & objItem.VirtualMachine
  WScript.Echo "VirtualServerName: " & objItem.VirtualServerName
  WScript.Echo "-=-"
Next


Previous Page
Next Page