Windows Service monitoring and mail reporting Scripts

-
Create following two files and modify accordingly as per your requirement. Create a scheduled batch file to execute.

File name Service Test.bat
Set Location as C:\
---------
c:\
date /t >C:\PortsReport.txt
time /t >>C:\PortsReport.txt
portQry -n Server name -e 25 >>C:\PortsReport.txt
portQry -n Server name -e 110 >>C:\PortsReport.txt
portQry -n Server name -e 80 >>C:\PortsReport.txt
set /A STATUS = 0For /F " eol=; delims=: tokens=3" %%I in (' Find /I /C "NOT LISTENING"C:\PortsReport.txt') Do Set status=%%I
if /I %STATUS% gtr 0 cscript C:\Errormail.vbs
-----

File Name ErrorMail.vbs
Set Location as C:\
----
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Server Protocol Status Report"
objMessage.From = ""
objMessage.To = ""
objMessage।TextBody = ""
objMessage.AddAttachment "C:\PortsReport.txt"
objMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP ServerobjMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
'Server port (typically 25)objMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
--------

Comments

Post a Comment

Popular posts from this blog

LDAP Queries

-
This LDAP query should show you all users in your enviroment with exchange mailboxes that have OWA enabled . (&(objectCategory= user )(!protocolsettings=HTTP*0*)(msExchUserAccountControl=0)) This LDAP query should show you all users in your enviroment with exchange mailboxes that have OWA disabled. (&(objectCategory= user )(protocolsettings=HTTP*0*)(msExchUserAccountControl=0))
Read more

Exchange 2007 Powershell

-
Mailbox Size Report - Individual Database cls Get-MailboxStatistics -Database "ecgcmail01\webmail users\mailboxes" | Sort-Object TotalItemsize -Descending | Where {$_.TotalItemSize -gt 145MB} | ft Displayname , @{expression={$_.TotalItemSize.Value.ToMB()}}, StorageLimitStatus Get-MailboxStatistics -Database "ecgcmail01\general users\mailboxes" | Sort-Object TotalItemsize -Descending | Where {$_.TotalItemSize -gt 65MB} | ft Displayname , @{expression={$_.TotalItemSize.Value.ToMB()}}, StorageLimitStatus ******************************* update 10K Photo in AD Import-RecipientDataProperty -Identity "Bharat Suneja" -Picture -FileData ([Byte[]]$(Get-Content -Path "C:\pictures\BharatSuneja.jpg" -Encoding Byte -ReadCount 0)) ************************************** Enable OWA for list of users $path = “d:\Andy\Owa.txt” foreach ($line in Get-Content $path) { Set-CASMailbox –Identity $line –OWAEnabled:$true } ******************************
Read more

Delete Media Files

-
Script to delete media files Script Code: ------------------------------------------------------------------------------ strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'wma' OR Extension = 'flv' OR Extension = 'jpg' OR Extension = 'mov' OR Extension = 'avi' OR Extension = '3gp' OR Extension = 'flv' OR Extension = 'vob' OR Extension = 'mpeg'") For Each objFile in colFiles objFile.Delete Next
Read more