Wednesday, October 26, 2005

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
 

No comments: