Category Archives: Scripts

I use this to regenerate reminder alerts for certain alerts. This script will trigger for alerts with “Disk” in the name.

$MS = “yourRMS.yourCO.com”
$connect = New-SCOMManagementGroupConnection –ComputerName $MS

Get-SCOMAlert -criteria ‘ResolutionState = “0” AND Severity = “2”‘ |
Where-Object {$_.Name -like “*disk*” -and $_.IsMonitorAlert -eq $true} |
Set-SCOMAlert -ResolutionState 0 |
out-null

DOWNLOAD: http://www.scomgod.com/wp-content/uploads/2014/06/CloseAlerts.zip

$RMS = “YOUR-RMS-NAME”
Add-PSSnapin “Microsoft.EnterpriseManagement.OperationsManager.Client”
Set-Location “OperationsManagerMonitoring::”
New-ManagementGroupConnection -ConnectionString:$RMS
Set-Location $RMS

$alerts = get-alert |where-object {$_.ResolutionState -eq 0}

foreach($alert in $alerts)

{
resolve-alert -comment “Resolving Alert” -Alert $alert
}

Can someone make this PowerShell? :) It works great as it is but CDO is such a drag. Enjoy!

‘Script to list all password that will list
‘all accounts with passwords expiring within the next 30 days

On Error Resume Next

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
Const ONE_HUNDRED_NANOSECOND = .000000100
Const SECONDS_IN_DAY = 86400
DayCount = 30
OUtoSearch = “OU=NY”

Set OFSO = CreateObject(“Scripting.FileSystemObject”)

nof = “E:\logs\AcctsToExp.txt”

If OFSO.FileExists (nof) Then
OFSO.DeleteFile(“E:\logs\AcctsToExp.txt”)
End If

If not OFSO.FileExists (nof) Then
Set objFile = OFSO.CreateTextFile(nof)
End If

‘Const ForAppending = 8
‘Set objFile = OFSO.OpenTextFile (nof, ForAppending)
objFile.WriteBlankLines (1)
objFile.WriteLine “Passwords due to expire in the” & ” ” & OUtoSearch & ” OU” & ” during the next ” & DayCount & ” Days” & vbTab & vbTab & Now
objFile.WriteLine

Set objConnection = CreateObject(“ADODB.Connection”)
objConnection.Open “Provider=ADsDSOObject;”
Set objCommand = CreateObject(“ADODB.Command”)
objCommand.ActiveConnection = objConnection
objCommand.CommandText = “;” & “(&(objectCategory=person) (objectClass=User));” & _
“userAccountControl,distinguishedName,sAMAccountName,cn;subtree”

‘objCommand.CommandText = “;” & “(&(objectCategory=person) (objectClass=User));” & _
‘”userAccountControl,distinguishedName,sAMAccountName,cn;subtree”

‘-objCommand.CommandText = “;(objectCategory=User)” & _
‘- “;userAccountControl,distinguishedName,sAMAccountName;subtree”
objCommand.Properties(“Page Size”) = 4000
objCommand.Properties(“Timeout”) = 90
objCommand.Properties(“Cache Results”) = True
Set objRecordSet = objCommand.Execute

intCounter = 0
‘wscript.echo objRecordset.RecordCount
If objRecordset.RecordCount > 0 then
objRecordset.MoveFirst
end if

Do Until objRecordset.EOF
Uname = objRecordset.Fields(“distinguishedName”)
ShName = objRecordset.Fields(“sAMAccountName”)
Namelenght = Len(ShName)
SpacesToAdd = 15 – NameLenght
DisplayName = ShName & Space(SpacesToAdd)
Set objUser = GetObject(“LDAP://” & Uname )
intUserAccountControl = objUser.Get(“userAccountControl”)
If intUserAccountControl And ADS_UF_DONT_EXPIRE_PASSWD Then
‘objFile.WriteLine DisplayName & vbTab & vbTab & “The password does not expire.”
Else
dtmValue = objUser.PasswordLastChanged
intTimeInterval = Int(Now – dtmValue)
Set objDomain = GetObject(“LDAP://DC=myco,DC=com”)
Set objMaxPwdAge = objDomain.Get(“maxPwdAge”)
If objMaxPwdAge.LowPart = 0 Then
objFile.WriteLine DisplayName & vbTab & vbTab & “The Maximum Password Age is set to 0, Password does not expire.”
Else
dblMaxPwdNano = Abs(objMaxPwdAge.HighPart * 2^32 + objMaxPwdAge.LowPart)
dblMaxPwdSecs = dblMaxPwdNano * ONE_HUNDRED_NANOSECOND
dblMaxPwdDays = Int(dblMaxPwdSecs / SECONDS_IN_DAY)
End If
If intTimeInterval >= dblMaxPwdDays Then
objFile.WriteLine DisplayName & vbTab & vbTab & “The password has expired.”
Else
If Int((dtmValue + dblMaxPwdDays) – Now) < DayCount Then
objFile.WriteLine DisplayName & vbTab & vbTab & “The password will expire on ” & DateValue(dtmValue + dblMaxPwdDays) & ” (” & Int((dtmValue + dblMaxPwdDays) – Now) & ” days from today).”
End If
End If
End If

intCounter = intCounter + 1
objRecordset.MoveNext
Loop

objConnection.Close
objfile.close
OFSO.Close

‘====================================================
‘EMAIL Routine
‘====================================================

Set objMessage = CreateObject(“CDO.Message”)
objMessage.Subject = “Password Expiration Report For New York Office”
objMessage.From = “PASSWORD-EXPIRATION@myco.com”
objMessage.To = “SupportSupervisors@myco.com”
objMessage.TextBody = “Password expiration for New York Attached”
objMessage.AddAttachment “e:\logs\acctstoexp.txt”
‘==This section provides the configuration information for the remote SMTP server.
‘==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

‘Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtp.myco.com”

‘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

I had to implement a script to check a file share for a client recently. This worked like a charm.

Option Explicit

‘Set Dimension
DIM fso
DIM objMessage

‘Set Object
Set fso = CreateObject(“Scripting.FileSystemObject”)

Function SendMail(strRecipient, strHeader)
Set objMessage = CreateObject(“CDO.Message”)
objMessage.Subject = strHeader
objMessage.From = “share-alert@myco.com”
objMessage.To = strRecipient
objMessage.TextBody = “Problem with file share!”
objMessage.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2
objMessage.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserver“) = “SMTP.myco.com”
objMessage.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25
objMessage.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout“) = 60
objMessage.Configuration.Fields.Update
objMessage.Send
Set objMessage = Nothing
End Function

‘Create Condition

If (fso.FileExists(“\\server\share\test.txt“)) Then
WScript.Quit()

Else

‘Alert User

Sendmail “alert@myco.com”,”ALERT: Share needs attention!”

End If

‘Exit Script
WScript.Quit()

Download: http://www.scomgod.com/wp-content/uploads/2012/07/SystemsReport-.zip
Reference: http://www.simple-talk.com/sysadmin/powershell/building-a-daily-systems-report-email-with-powershell/

Task Arguments (I’m lazy)

c:\#software\sysreport\SystemsReport.ps1 c:\#software\sysreport\list.txt

http://www.scomgod.com/wp-content/uploads/2012/06/ListADAttributes.zip

Use:

C:\>cscript list2.vbs > attributes.csv