Blah
######################################################################## # Created with: SAPIEN Technologies, Inc., PrimalForms 2009 v1.1.10.0 # Created on: 10/19/2010 4:19 PM # Created by: Kevin Curran # Organization: Disorganized ######################################################################## param([switch]$debug) #this will allow the write-debug information to be writen to the console If ($debug) {$DebugPreference="Continue"} $LogPath="$($env:systemdrive)\scripts\logs\" $TranscriptLog = $LogPath + "PopUpMessage_" + $(get-date -uformat "%Y-%m-%d") + "_Transcript.log" Start-Transcript $TranscriptLog $StartTime = Get-Date IF (Get-PSSnapin | where {$_.name -eq "quest.activeroles.admanagement"}) {write-host "Quest Active Roles snapin already loaded"} Else {add-PSSnapin quest.activeroles.admanagement} #this module is not signed allow the import Set-ExecutionPolicy -Scope process unrestricted -Force Import-Module PSTerminalServices Write-Host "DebugPreference: $DebugPreference" #$Group = "Domain Admins" $Group = "TEST USERS" $PopupMessage = "Hey there how are you doing." #Build a list of servers $Servers = Get-QADComputer -SearchRoot 'blah.corp/Domain Controllers' foreach ($Server in $Servers) { #query each server for the list of Terminal Services sessions that have a username Write-Debug "Get the list of TS Sessions for $($Server.Name)" #this seems to terminate the script if it gets an error even if you use the -ErrorAction #trying to catch error try { $TSSessions = Get-TSSession -ComputerName $($Server.Name) | where {$_.Username -ne ""} } Catch { write-host -ForegroundColor red "Error: Failed to get sessions from machine (Error:" $_.Exception.Message ")" write-host #continue #not sure why continue doesn't actually continue } #if there are no sessions move on to the next server if ($TSSessions -eq $null) { Write-Host "$($Server.Name) has no open Terminal Services Sessions" } Else { #query each session on the server foreach ($session in $TSSessions) { #If you are a member of this group send the users Session a message box If ($(Get-QADMemberOf -Identity "$($session.Username)" -Name $Group)) { Write-Host -ForegroundColor green "User:$($session.Username) on Server:$($session.server.servername) is a member of $Group" try { Send-TSMessage -ComputerName $($session.server.servername) -id $($session.SessionId)-Text $PopupMessage -Caption "Notice" } Catch { write-host -ForegroundColor red "Error: Failed to send message (Error:" $_.Exception.Message ")" write-host #continue #not sure why continue doesn't actually continue } } Else { Write-Debug "User:$($session.Username) on Server:$($session.server.servername) is a not member of $Group" } } } } $StopTime = Get-Date $ElapsedTime =$StopTime - $StartTime Stop-Transcript $smtpServer = "mail.blah.com" $To = "Kevin Curran <kcurran@blah.com>" $From = "AD Reporting <ADReporting@blah.com>" $message = "Positive Pay Popup message script has completed `r`n`r`n" $message = $message + "please look at the attached log files for errors `r`n`r`n" $message = $message + "This script was run by " + $env:username + " on " + $env:COMPUTERNAME $message = $message + " and ran for $([Math]::Round($ElapsedTime.TotalMinutes,0)) Minutes" $Attachments = $TranscriptLog Send-MailMessage -From $From -To $To -SmtpServer $smtpServer ` -Subject "Popup message script completed" -Body $message -Attachments $Attachments #notes for manual testing #$session = Get-TSSession -ComputerName server | where {$_.Username -ne ""} #If ($(Get-QADMemberOf -Identity "$($session.Username)" -Name "Domain Admins")) {Write-Host "Member"} Else {Write-Host "not a member"} #$session | Send-TSMessage -Text "blah" -Caption "Notice"