Skip to main content

Reporting on SMTP Protocol Log Settings and Log Directories on all Exchange Server in a Domain

Apart from message tracking logs one of the most useful things you can have when trying to track down message transfer problems are SMTP protocol logs. This is one thing I usually always enable on any Exchange server I’m managing. One of the things that is missing is a way in which you can manage these files over a long period of time if you leave logging enabled (something like the badmail detection and archiving would be nice actually most of the work is already done its just a matter of adaptation).

So what I’ve decided to do was put together a script that would first enumerate all the SMTP virtual servers on all Exchange servers within a domain and then report on if logging was enabled, what type of logging is being used, how many logfiles are in the logging directory, how much space the log files are taking up and what the oldest log file in the directory is. Because the log settings for a SMTP VS are stored in the metabase the next part of the script uses the ADSI IIS provider to connect to the metabase on the Exchange server and then retrieve information about logging for that Virtual server. To determine first if logging is enabled the Logtype property is checked if the value is 1 then logging has been enabled on the VS if its 0 it hasn’t. The next value that is checked is the logpluginclsid property this property will tell you what type of logging is being used via which clsid is stored in the property. With Exchange this will be one of four types W3C , NCSA, IIS or ODBC. If its ODBC logging then there will be no log files so the script will drop out here. If a log file format is being used the next property that is checked is the logfiledirectory property. By default if you turn on logging and don’t configure the logging directory this property will be null under the VS node and the Logfile directory from the parent node will be used. The next part of the script formats the log file directory into a format that can be used in the rest of the script. I’ve created two versions of this script the first is a fso version which uses the WSH File Scripting Object to connect to the administrative shares on the Exchange Server and then access the logfile directory. The second version is a WMI version which uses WMI to query the CIM_DATAFILE class this will mean the script will still work even if the administrative shares have been disabled for security reasons. The rest of the script then connects to the logging directory via FSO or WMI and then counts the number of log files in the directory and works out how much space they are using and what the oldest file in the directory is. The result is then output to the commandline and also they are written to a CSV file on the c:\ called STMPVSSetting.csv

I’ve put a downloadable copy of the code here the WMI version of the script looks like

lfcount = 0
lfsize = 0
lfoldatenum = ""
Set fso = CreateObject("Scripting.FileSystemObject")
set wfile = fso.opentextfile("c:\SMTPVSSettings.csv",2,true)
wfile.writeline("Servername,Virtual Server Name,Logging Type,Log File Dir,Number
of LogFiles,Space Used(MB),Oldest Log File")
set conn = createobject("ADODB.Connection")
set com = createobject("ADODB.Command")
Set iAdRootDSE = GetObject("LDAP://RootDSE")
strNameingContext = iAdRootDSE.Get("configurationNamingContext")
strDefNamingContext = iAdRootDSE.Get("defaultNamingContext")
Conn.Provider = "ADsDSOObject"
Conn.Open "ADs Provider"
Com.ActiveConnection = Conn
Com.ActiveConnection = Conn
Wscript.echo
Wscript.echo "SMTP Virtual Servers Logfile Setting and Resources"
vsQuery = "<LDAP://" & strNameingContext & ">;(objectCategory=protocolCfgSMTPServer);name,distinguishedName;subtree"
Com.ActiveConnection = Conn
Com.CommandText = vsQuery
Set Rs = Com.Execute
While Not Rs.EOF
strstmsrv = "LDAP://" & rs.fields("distinguishedName")
set svsSmtpserver = getobject(strstmsrv)
wscript.echo
wscript.echo "ServerName:" &
mid(svsSmtpserver.distinguishedName,instr(svsSmtpserver.distinguishedName,"CN=Protocols,")+16,instr(svsSmtpserver.distinguishedName,",CN=Servers")-(instr(svsSmtpserver.distinguishedName,"CN=Protocols,")+16))
call
getSTMPstatus(mid(svsSmtpserver.distinguishedName,instr(svsSmtpserver.distinguishedName,"CN=Protocols,")+16,instr(svsSmtpserver.distinguishedName,",CN=Servers")-(instr(svsSmtpserver.distinguishedName,"CN=Protocols,")+16)),svsSmtpserver.adminDisplayName)
rs.movenext
wend
wfile.close

sub getSTMPstatus(servername,vsname)
Set SMTPVSS = GetObject("IIS://" & Servername & "/SMTPSVC")
for each SMTPVS in SMTPVSS
if SMTPVS.KeyType = "IIsSmtpServer" then
if SMTPVS.ServerComment = vsname then
wscript.echo "SMTP Server : " & SMTPVS.ServerComment
if SMTPVS.logtype = 0 then
wscript.echo "Logging not enabled"
wfile.writeline(servername & "," & SMTPVS.ServerComment & "," & "Logging not
enabled,,,,")
else
select case SMTPVS.logpluginclsid
case "{FF160663-DE82-11CF-BC0A-00AA006111E0}" Wscript.echo "Logging Type : W3C
Extended Log File Format"
lfiles = 1
ltype = "W3C Extended Log File Format"
case "{FF16065B-DE82-11CF-BC0A-00AA006111E0}" Wscript.echo "Logging Type : ODBC
Logging"
wfile.writeline(servername & "," & SMTPVS.ServerComment & "," & "ODBC
Logging,,,,")
case "{FF16065F-DE82-11CF-BC0A-00AA006111E0}" Wscript.echo "Logging Type : NCSA
Log File Format"
lfiles = 1
ltype = "NCSA Log File Format"
case "{FF160657-DE82-11CF-BC0A-00AA006111E0}" Wscript.echo "Logging Type :
Microsoft IIS Log File Format"
lfiles = 1
ltype = "Microsoft IIS Log File Format"
end select
if lfiles = 1 then
if isnull(SMTPVS.logfiledirectory) then
wscript.echo "Log File Directory : " & SMTPVSS.logfiledirectory & "SMTPSVC" &
SMTPVS.name
lfiledir = SMTPVSS.logfiledirectory & "SMTPSVC" & SMTPVS.name
logfileunc = "\" &
mid(SMTPVSS.logfiledirectory,3,len(SMTPVSS.logfiledirectory)-2) & "SMTPSVC" &
SMTPVS.name
else
if mid(SMTPVS.logfiledirectory,len(SMTPVS.logfiledirectory),1) = "\" then
lfiledir = SMTPVS.logfiledirectory & "SMTPSVC" & SMTPVS.name
wscript.echo "Log File Directory : " & SMTPVS.logfiledirectory & "SMTPSVC" &
SMTPVS.name
logfileunc = "\" & mid(SMTPVS.logfiledirectory,3,len(SMTPVS.logfiledirectory)-2)
& "SMTPSVC" & SMTPVS.name
else
lfiledir = SMTPVS.logfiledirectory & "\" & "SMTPSVC" & SMTPVS.name
wscript.echo "Log File Directory : " & SMTPVS.logfiledirectory & "\" & "SMTPSVC"
& SMTPVS.name
logfileunc = "\" & mid(SMTPVS.logfiledirectory,3,len(SMTPVS.logfiledirectory)-2)
& "\" & "SMTPSVC" & SMTPVS.name
end if
end if
drive = left(SMTPVS.logfiledirectory,1) & ":"
lfilepath = replace(logfileunc,"\","\\")
lfilepath = right(lfilepath,(len(lfilepath)-2)) & "\\"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & servername & "\root\cimv2")
Set lfiles = objWMIService.ExecQuery _
("select * from CIM_DataFile where path = """ & lfilepath & """ and extension =
""log"" and drive = """ & drive & """")
for each lfile in lfiles
lfcount = lfcount + 1
lfsize = lfsize + lfile.filesize
if lfcount = 1 then lfolddatenum = cdate(DateSerial(Left(lfile.lastmodified, 4),
Mid(lfile.lastmodified, 5, 2), Mid(lfile.lastmodified, 7, 2)) & " " &
timeserial(Mid(lfile.lastmodified, 9, 2),Mid(lfile.lastmodified, 11,
2),Mid(lfile.lastmodified,13, 2)))
if lfolddatenum > lfile.LastModified then
lfolddatenum = cdate(DateSerial(Left(lfile.lastmodified, 4),
Mid(lfile.lastmodified, 5, 2), Mid(lfile.lastmodified, 7, 2)) & " " &
timeserial(Mid(lfile.lastmodified, 9, 2),Mid(lfile.lastmodified, 11,
2),Mid(lfile.lastmodified,13, 2)))
end if
next
wscript.echo "Number of Log files in Directory : " & lfcount
wscript.echo "Disk Space being used : " & formatnumber(lfsize/1048576,2,0,0,0) &
" MB"
wscript.echo "Oldest Log file in this Directory : " & lfolddatenum
wfile.writeline(servername & "," & SMTPVS.ServerComment & "," & ltype & "," &
lfiledir & "," & lfcount & "," & formatnumber(lfsize/1048576,2,0,0,0) & "," &
lfolddatenum)
lfcount = 0
lfsize = 0
lfolddatenum = ""
ltype = ""
lfiledir = ""

end if
lfiles = 0
end if
end if
end if
next

end sub
 

Popular posts from this blog

The MailboxConcurrency limit and using Batching in the Microsoft Graph API

If your getting an error such as Application is over its MailboxConcurrency limit while using the Microsoft Graph API this post may help you understand why. Background   The Mailbox  concurrency limit when your using the Graph API is 4 as per https://docs.microsoft.com/en-us/graph/throttling#outlook-service-limits . This is evaluated for each app ID and mailbox combination so this means you can have different apps running under the same credentials and the poor behavior of one won't cause the other to be throttled. If you compared that to EWS you could have up to 27 concurrent connections but they are shared across all apps on a first come first served basis. Batching Batching in the Graph API is a way of combining multiple requests into a single HTTP request. Batching in the Exchange Mail API's EWS and MAPI has been around for a long time and its common, for email Apps to process large numbers of smaller items for a variety of reasons.  Batching in the Graph is limited to a m
Read more

Sending a Message in Exchange Online via REST from an Arduino MKR1000

This is part 2 of my MKR1000 article, in this previous post  I looked at sending a Message via EWS using Basic Authentication.  In this Post I'll look at using the new Outlook REST API  which requires using OAuth authentication to get an Access Token. The prerequisites for this sketch are the same as in the other post with the addition of the ArduinoJson library  https://github.com/bblanchon/ArduinoJson  which is used to parse the Authentication Results to extract the Access Token. Also the SSL certificates for the login.windows.net  and outlook.office365.com need to be uploaded to the devices using the wifi101 Firmware updater. To use Token Authentication you need to register an Application in Azure https://msdn.microsoft.com/en-us/office/office365/howto/add-common-consent-manually  with the Mail.Send permission. The application should be a Native Client app that use the Out of Band Callback urn:ietf:wg:oauth:2.0:oob. You need to authorize it in you tenant (eg build a small ap
Read more

How to test SMTP using Opportunistic TLS with Powershell and grab the public certificate a SMTP server is using

Most email services these day employ Opportunistic TLS when trying to send Messages which means that wherever possible the Messages will be encrypted rather then the plain text legacy of SMTP.  This method was defined in RFC 3207 "SMTP Service Extension for Secure SMTP over Transport Layer Security" and  there's a quite a good explanation of Opportunistic TLS on Wikipedia  https://en.wikipedia.org/wiki/Opportunistic_TLS .  This is used for both Server to Server (eg MTA to MTA) and Client to server (Eg a Message client like Outlook which acts as a MSA) the later being generally Authenticated. Basically it allows you to have a normal plain text SMTP conversation that is then upgraded to TLS using the STARTTLS verb. Not all servers will support this verb so if its not supported then a message is just sent as Plain text. TLS relies on PKI certificates and the administrative issue s that come around certificate management like expired certificates which is why I wrote th
Read more
All sample scripts and source code is provided by for illustrative purposes only. All examples are untested in different environments and therefore, I cannot guarantee or imply reliability, serviceability, or function of these programs.

All code contained herein is provided to you "AS IS" without any warranties of any kind. The implied warranties of non-infringement, merchantability and fitness for a particular purpose are expressly disclaimed.