Blue Quality Studios

psIMAlert Example Scripts

Send a Test Alert to a single account using the 'Identity' option.

Send a Test Alert to each account listed in a text file.
Note: Each line in the text file can be a 'DisplayName', 'samAccountName', 'mail', SIP URI, LegacyExchangeDn, AdsPath, Dn

Send a Test Alert to all account assigned to a Lync or OCS Pool using the 'PoolName' option.

Send a Test (HTML) Alert to each account associated with an Lync or OCS Pool using AD lookup and pipelining.

#
# Send a Test (HTML) Alert to each account associated with an OCS Pool
#
#
# Add psIMAlert SnapIn (if not already registered)
if ((Get-PSSnapin "psIMAlert" -ErrorAction SilentlyContinue) -eq $null)
{
   Add-PSSnapin "psIMAlert" 
}

# xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
write-host -foregroundcolor white  -backgroundcolor blue "                                                                               "
write-host -foregroundcolor white  -backgroundcolor blue "psIMAlert                                                                      "
write-host -foregroundcolor white  -backgroundcolor blue "                                                                               "
write-host -foregroundcolor white  -backgroundcolor blue "# Enter an OCS Pool Name.                                                      "
write-host -foregroundcolor white  -backgroundcolor blue "                                                                               "
# xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

$strOcsPoolName = read-host -prompt "OCS Pool Name"

$root = [ADSI]"LDAP://rootDSE"

$strPoolDN=""
$strPoolDNa = "CN=LC Services,CN=Microsoft,CN=$strOcsPoolName,CN=Pools,CN=RTC Service,CN=Services,CN=Configuration,$($root.defaultNamingContext)" 
$strPoolDNb = "CN=LC Services,CN=Microsoft,CN=$strOcsPoolName,CN=Pools,CN=RTC Service,CN=Microsoft,CN=System,$($root.defaultNamingContext)" 
$objPoola = ([ADSI]"LDAP://$strPoolDNa").objectClass
if ($objPoola -eq $null)
{
  # Global RTC Configuration is old style (prior to OCS 2007 R2) [Domain Config]
  $strPoolDN = $strPoolDNb
}
else
{
  # Global RTC Configuration is new style (OCS 2007 R2 and later) [Forest Config Container]
  $strPoolDN = $strPoolDNa
}

$strAdAttribName="msRTCSIP-PrimaryHomeServer"; 
$strAdAttribValue= $strPoolDN

$TARGETOU = "$($root.defaultNamingContext)"
$ADSCOPE = "SUBTREE"
$strFilter = "(&($strAdAttribName=$strAdAttribValue))"
$ADSIZE = "1000"

$objOU = New-Object System.DirectoryServices.DirectoryEntry("LDAP://$TARGETOU")
$ADSearcher = New-Object System.DirectoryServices.DirectorySearcher
$ADSearcher.SearchRoot = $objOU
$ADSearcher.PageSize = $ADSIZE
$ADSearcher.Filter = $strFilter
$ADSearcher.SearchScope = $ADSCOPE
$ADSearcher.PropertiesToLoad.Clear() 
$ADSearcher.PropertiesToLoad.Add("distinguishedname")

$ADResults = $ADSearcher.FindAll()
 
$list = new-Object system.Collections.ArrayList

foreach ($ADResult in $ADResults)
{
  $aProps = $ADResult.Properties

[psobject]$temp = New-Object psobject
  $strDn = [string]$aProps.distinguishedname
  $temp = add-member -input $temp -passthru -membertype noteproperty -name distinguishedname -value strDn
  $n=$list.Add($temp)
}

#$list |fl

$strHtml = $env:ProgramFiles + "\Blue Quality Studios\psIMAlert\HtmlTemplates\RtcAlert.html" 
Send-Alert -Identity $id -SubjectLine TestAlert -Priority Urgent  -MessageHtmlTemplateFName "$strHtml"

Send a Test Alert to accounts with an AD attribute value.

#
# Send a Test Alert to accounts with an AD attribute value. 
#
#
#
# Add psIMAlert SnapIn (if not already registered)
if ((Get-PSSnapin "psIMAlert" -ErrorAction SilentlyContinue) -eq $null)
{
   Add-PSSnapin "psIMAlert" 
}

# xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
write-host -foregroundcolor white  -backgroundcolor blue "                                                                               "
write-host -foregroundcolor white  -backgroundcolor blue "psIMAlert Example                                                              "
write-host -foregroundcolor white  -backgroundcolor blue "                                                                               "
write-host -foregroundcolor white  -backgroundcolor blue "# Enter an Active Directory Attribute Name.                                    "
write-host -foregroundcolor white  -backgroundcolor blue "#    Example Active Directory Attribute Names are:                             "
write-host -foregroundcolor white  -backgroundcolor blue "#       samAccountName, DisplayName, Name, sn, givenName, mail                 "
write-host -foregroundcolor white  -backgroundcolor blue "                                                                               "
# xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

$strAdAttribName = read-host -prompt "Active Directory Attribute Name" 
$strAdAttribValue = read-host -prompt "Active Directory Attribute Value"

$root = [ADSI]"LDAP://rootDSE"
#$TARGETOU = "CN=Users,$($root.defaultNamingContext)"
$TARGETOU = "$($root.defaultNamingContext)"
$ADSCOPE = "SUBTREE"
$strFilter = "(&($strAdAttribName=$strAdAttribValue))"
$ADSIZE = "1000"

$objOU = New-Object System.DirectoryServices.DirectoryEntry("LDAP://$TARGETOU")
$ADSearcher = New-Object System.DirectoryServices.DirectorySearcher
$ADSearcher.SearchRoot = $objOU
$ADSearcher.PageSize = $ADSIZE
$ADSearcher.Filter = $strFilter
$ADSearcher.SearchScope = $ADSCOPE

$ADResults = $ADSearcher.FindAll()
 
$list = new-Object system.Collections.ArrayList

foreach ($ADResult in $ADResults)
{
  $aProps = $ADResult.Properties

$objUser = [ADSI]�LDAP://$($aProps.distinguishedname)�

$aDNs = $aDNs + $aProps.distinguishedname
  [psobject]$temp = New-Object psobject
  $strDn = [string]$aProps.distinguishedname
  $temp = add-member -input $temp -passthru -membertype noteproperty -name DistinguishedName -value $strDn
  $n=$list.Add($temp)
}

#$list |fl

$strHtml = $env:ProgramFiles + "\Blue Quality Studios\psIMAlert\HtmlTemplates\TestAlert.html"

$list | send-alert -Subjectline "Test Alert"  -MessageHtmlTemplateFName "$strHtml" |ft -auto

#Send-Alert -Identity $id -SubjectLine TestAlert -Priority Urgent  -MessageHtmlTemplateFName "$strHtml" -FastLookupMode -log