Linuxos4all: April 2014

Thursday, April 17, 2014

script to kill a processes after 12 hours of run and send an e-mail with the resultant process List

'program to kill the process after 12 hours and send an e-mail with the process list other than the killed processes

'Below variable holds the process name as you see in the task manager

processName = "iexplore.exe"

'Below varaible holds the time range which can hold the values such as "h" for hours, "n" for minutes

timerange = "h"

'Below varaible kills the process with the time bound in relation with the timerange i.e., hours or minutes

killtime = 12

'From address, make sure the from address has rights to send an e-mail.

emailFrom = "xyz@abc.com"

'send an e-mail to primary recipent

emailTo = "asdf@abc.com"

'send an e-mail to secondary recipent

emailCC = "ghjkl@abc.com"

strComputer = "."

flag = 0

Set wshNetwork = WScript.CreateObject( "WScript.Network" )

strComputerName = wshNetwork.ComputerName

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = '" &processName& "'")

For Each objProcess in colProcessList

          dtmProcessCreationDate = objProcess.CreationDate

          WMIDateStringToDate = CDate(Mid(dtmProcessCreationDate, 5, 2) & "/" & _

Mid(dtmProcessCreationDate, 7, 2) & "/" & Left(dtmProcessCreationDate, 4) _

& " " & Mid (dtmProcessCreationDate, 9, 2) & ":" & _

Mid(dtmProcessCreationDate, 11, 2) & ":" & Mid(dtmProcessCreationDate, _

13, 2))

          timeElapsed = DateDiff(timerange,WMIDateStringToDate,now)

          'WScript.Echo objProcess.Caption

          'WScript.Echo WMIDateStringToDate

          'WScript.Echo Now

          'WScript.Echo "Time Elapsed:" & timeElapsed



          If timeElapsed > killtime Then

preturn = objProcess.Terminate()

        If preturn = 0 Then

        pstatus = "Successful kill of the process:"

                   pid = objProcess.ProcessId

                   filepath = writeprocess()

        Call sendmail(pstatus,pid,filepath)

        End If

        If preturn = 2 Then

        pstatus = "Access Denied"

                   pid = objProcess.ProcessId

                   filepath = writeprocess()

        Call sendmail(pstatus,pid,filepath)

        End If

        If preturn = 3 Then

        pstatus = "Insufficient Privilege"

                   pid = objProcess.ProcessId

                   filepath = writeprocess()

        Call sendmail(pstatus,pid,filepath)

        End If

        If preturn = 8 Then

        pstatus = "Unknown Failure"

                   pid = objProcess.ProcessId

                   filepath = writeprocess()

        Call sendmail(pstatus,pid,filepath)

        End If

        If preturn = 9 Then

        pstatus = "Path Not Found"

                   pid = objProcess.ProcessId

                   filepath = writeprocess()

        Call sendmail(pstatus,pid,filepath)

        End If

        If preturn = 21 Then

        pstatus = "Invalid Parameter"

                   pid = objProcess.ProcessId

                   filepath = writeprocess()

        Call sendmail(pstatus,pid,filepath)

        End If

End If



Next

Function writeprocess()

                   strProcessList = ""

                   strProcessList = "<HTML>" &vbNewLine & "<BODY>" & "<TABLE border=" & "1" & " style="& "width:400px & " & ">" & "<TH>" & "ProcessName" & "</TH>" & "<TH>" & "ProcessOwner" & "</TH>" & "<TH>" & "ProcessID" & "</TH>" & vbNewLine

                   Set colProcessList = objWMIService.ExecQuery _

        ("Select * from Win32_Process Where Name <> '" & processName & "'")

                   For Each objProcess in colProcessList

                   Return = objProcess.GetOwner(strNameOfUser)

        If Return <> 0 Then

    strNameOfUser = "Unable to Fetch Owner info:" & Return

    'WScript.Echo "Could not get owner info for process " & objProcess.Name & VBNewLine & "Error = " & Return

        Else

    'Wscript.Echo "Process " & objProcess.Name & " is owned by " & "\" & strNameOfUser & "."

        End If

        strProcessList = strProcessList & "<TR>" & vbNewLine

        strProcessList = strProcessList & "<TD>" & objProcess.Caption & "</TD>"

        strProcessList = strProcessList & "<TD>" & strNameOfUser & "</TD>"

        strProcessList = strProcessList & "<TD>" & objProcess.ProcessId & "</TD>"

        'strProcessList = strProcessList & objProcess.Caption & vbTab & strNameOfUser & vbTab & objProcess.PageFileUsage & vbNewLine

        strProcessList = strProcessList & "</TR>" & vbNewLine

                   Next

                   strProcessList = strProcessList & "</TABLE></BODY>" &vbNewLine & "</HTML>" &vbNewLine

                   Dim objFSO 'As FileSystemObject

                 Dim objTextFile 'As Object



                 Const ForReading = 1

        Const ForWriting = 2

                 Const ForAppending = 8



                     Set objFSO = CreateObject("Scripting.FileSystemObject")

                     currentDirectory = objFSO.GetAbsolutePathName(".")

                     filePath = currentDirectory & "\processlist.html"

                     Set objTextFile = objFSO.CreateTextFile(filePath,2,True)

                     ' Write a line.

                     objTextFile.Write (strProcessList)

                     objTextFile.Close

                     'WScript.Echo strProcessList

                   writeprocess = filePath

End Function

Function sendmail(processStatus,ProcessId,filePath)

Set objMessage = CreateObject("CDO.Message")

                             objMessage.From = emailFrom

                             objMessage.To = emailTo

                             objMessage.Cc = emailCC

                             objMessage.Configuration.Fields.Item _

                             ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

                             objMessage.Configuration.Fields.Item _

                             ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.abc.com"

                             objMessage.Configuration.Fields.Item _

                             ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 8181

                             objMessage.Configuration.Fields.Update

                             objMessage.Subject = processStatus & " for the process " & processName & " with Process ID " & ProcessId

                             mailbody = "Process List other than IE from ProcessPool is enclosed" & vbNewLine

                             objMessage.AddAttachment filePath

                             objMessage.TextBody = mailbody

                             objMessage.Send

End Function

Wednesday, April 16, 2014

Nagios : Add services into service group : Shell script

#!/bin/bash
#Author : Ranjith Kumar R
#Date : 16th April 2014
#Purpose : Add services into the nagios service group.

echo "Please enter service group name"

read svcgroup

while read server

do

servername=`echo $server | cut -d';' -f1`

OUTPUT=`find /usr/local/nagios -name "$servername"_DB.cfg | grep -i $servername`
RESULT=`echo $?`

if [ "$RESULT" -eq "0" ]; then

OUTPUT1=`cat $OUTPUT | grep -i "$svcgroup" | grep "service_description" | awk '{print $2}' > /tmp/svcgroup.txt`

RESULT1=`echo $?`

if [ "$RESULT1" -eq "0" ]; then

echo "success" > /dev/null

fi
fi

while read service

do

startlinenum=`grep -nr -A 2 -B 14 """$service""" "$OUTPUT" | grep "servicegroups" | cut -d'-' -f1 | head -1`

if [ "$startlinenum" == "" ]; then

continue

fi

format=`echo "$startlinenum"s/DBservices/DBservices,$svcgroup/`

sed "$format" $OUTPUT > "$OUTPUT".temp

mv "$OUTPUT".temp "$OUTPUT"

done < /tmp/svcgroup.txt
done < /usr/local/nagios/libexec/tools/devicelist

rm -rf /tmp/svcgroup.txt

Tuesday, April 15, 2014

To Send an e-mail for the active account in AD users to reset there Password every 14th, 7th and 1st day of password expiry or password age.

'Account used to run script needs read access to Domain.
'Any standard Domain User account should work.

'Set the following variables
MyDomain = "domain.com"
'MyDN = "OU=xyz Users,DC=domain,DC=com"
OutputFile = "C:\Passwordnotify\passAge.csv"

Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
MyDN = strDNSDomain
'Wscript.Echo MyDN
'Do not modify below this line
Const SEC_IN_DAY = 86400
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const ADS_SCOPE_SUBTREE = 2

Set objDomainNT = GetObject("WinNT://" & MyDomain)
intMaxPwdAge = objDomainNT.Get("MaxPasswordAge") / SEC_IN_DAY
'Wscript.Echo "Max password age:" & intMaxPwdAge
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, distinguishedName from 'LDAP://" & MyDN & _
"' Where objectClass='user' AND objectClass <> 'computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

On Error Resume Next

Set FSO = CreateObject("Scripting.FileSystemObject")
'Set oFile=fso.GetFile(OutputFile)
'If Err.Number = 0 Then
' Set AFileStream = FSO.OpenTextFile(OutputFile,2)
'Else
Set AFileStream = FSO.CreateTextFile(OutputFile,2)
'End If

AFileStream.WriteLine "Name" & VbTab & "Password Status" & VbTab & "Last Change" & _
VbTab & "Expiration Date"

Do Until objRecordSet.EOF

If (InStr(objRecordSet.Fields("Name").Value, "SystemMailbox") = 1) Then
objRecordSet.MoveNext
Else
ldapStr = "LDAP://" & objRecordSet.Fields("distinguishedName").Value
'Wscript.Echo "Ldap String:" & ldapStr
Set objUserLDAP = GetObject(ldapStr)
intCurrentValue = objUserLDAP.Get("userAccountControl")

If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then
'Do nothing
Else
dtmValue = objUserLDAP.PasswordLastChanged
'Wscript.Echo "Last Password Cahange:" & dtmValue
intTimeInterval = int(now - dtmValue)

If intTimeInterval >= intMaxPwdAge Then
PassExpStatus = "Expired"
Else
PassExpStatus = "Active"
IntTimeIntervalDiff = intMaxPwdAge - intTimeInterval
'Set a message string to on how to reset the password.
'Send an e-mail to reset the password for 14,7 and 1 day respectively.
mailbody = "Password expiry Notification" & VbNewline _
& "This email was auto generated by a Domain.COM exchange organization to alert you on your password expiry. Please follow one of the below procedures to change your password on time." & vbNewLine _
& "=============================instructions=====================" & vbNewLine _
& "The steps to change are as follows." & VbNewline _
& "Method1:Computer" & VbNewLine _
& "Step1: Once logged into the computer, press Ctrl+Alt+Del simultaneously(Ensure no programs are opened after logged in to computer)." & vbnewline _
& "Step2:Click on Change a Password." & VbNewline _
& "Step3: Enter the old password and type new password and confirm it again." & VbNewline _
& "Step4 :Click OK and logoff and login to the computer with the new password" & VbNewline & vbNewLine _
& "OR Method2: Webmail Step1:Login to webmail https://mail.domain.com/owa" & VbNewline _
& "Step2:In Outlook Web App, click Options > See All Options" & VbNewline _
& "Step3:click on Change your password Enter old password, new password and confirm it again" & VbNewline _
& "Step4:Click on Save Step5:Logout and login with the new password to webmail" & vbNewLine _
& "==========================end of details==================" & vbNewLine

If IntTimeIntervalDiff = 14 then
Set objMessage = CreateObject("CDO.Message")
objMessage.From = "noreply.PwdNotification@domain.com"
objMessage.To = objUserLDAP.mail
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 8181
objMessage.Configuration.Fields.Update

objMessage.Subject = "your windows password will expire in "& intTimeInterval & "days."
objMessage.TextBody = mailbody
objMessage.Send
End If

If intTimeIntervalDiff = 7 then
Set objMessage = CreateObject("CDO.Message")
objMessage.From = "noreply.PwdNotification@domain.com"
objMessage.To = objUserLDAP.mail
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 8181
objMessage.Configuration.Fields.Update

objMessage.Subject = "your windows password will expire in "& intTimeInterval & "days."
mailbody = str
objMessage.Send
End If

If intTimeIntervalDiff = 99 then
Set objMessage = CreateObject("CDO.Message")
objMessage.From = "noreply.PwdNotification@domain.com"
objMessage.To = objUserLDAP.mail
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 8181
objMessage.Configuration.Fields.Update

objMessage.Subject = "your windows password will expire in "& intTimeInterval & "days."
objMessage.TextBody = mailbody
objMessage.Send
End If
End If

PassLastChangeDate = DateValue(dtmValue)
PassExpDate = DateValue(dtmValue + intMaxPwdAge)
AFileStream.WriteLine objRecordSet.Fields("Name").Value & VbTab & PassExpStatus & _
VbTab & PassLastChangeDate & VbTab & PassExpDate &VbTab & objUserLDAP.mail &VbTab & intTimeIntervalDiff
'Wscript.Echo objUserLDAP.mail
End If
objRecordSet.MoveNext
End If
Loop
AFileStream.Close

Linuxos4all