Set colItems = objWMIService.ExecQuery("Select * from IIsImapServer")
For Each objItem in colItems Wscript.Echo "IMAP Service Version: " & objItem.ImapServiceVersion Wscript.Echo "Name: " & objItem.Name Wscript.Echo "Server State: " & objItem.ServerState Next