Function Get-Session($HostName)
{
$Computer = query session /server:$HostName
$UserSession = ($Computer -replace "\s+", ";") | ConvertFrom-Csv -Delimiter ";" -Header "HOSTNAME", "SESSIONNAME", "USERNAME", "ID", "STATE", "TYPE", "DEVICE"
$UserSession | % {$_.HOSTNAME = $HostName}
$UserSession = $UserSession | ? {$_.STATE -eq "Actif"}
Return $UserSession
}
Get-Session NomDeLaMachine
Faire la génération d'une clef ($Key) depuis un site qui est capable de générer des mots de passe complex et remplacer la valeur de $Key
Add-Type -AssemblyName System.Security
$key = "c!LL!hm&&A##oaQ/-G4x+#TBzS!!tzCT#k!rs9NNz"
Function Mask($Message)
{
$encryptedBytes = [System.Security.Cryptography.ProtectedData]::Protect([System.Text.Encoding]::UTF8.GetBytes($Message), [System.Text.Encoding]::UTF8.GetBytes($key), [System.Security.Cryptography.DataProtectionScope]::CurrentUser)
$encrypted = [Convert]::ToBase64String($encryptedBytes)
Return $encrypted
}
Function UnMask($Message)
{
$decryptedBytes = [System.Security.Cryptography.ProtectedData]::Unprotect([Convert]::FromBase64String($Message), [System.Text.Encoding]::UTF8.GetBytes($key), [System.Security.Cryptography.DataProtectionScope]::CurrentUser)
$decrypted = [System.Text.Encoding]::UTF8.GetString($decryptedBytes)
Return $decrypted
}
Update 10/02/2023
--------------------------------------------------
$i = 0
$PathPicture = "C:\..........\..........\imagesscreen"
New-Item $PathPicture -ItemType Directory -ErrorAction SilentlyContinue
Remove-Item "$($PathPicture)\*.*" -Force -Recurse
sleep -Seconds 5
do {
sleep -Seconds 1
$i++
$File = "$($PathPicture)\Image$($i).bmp"
Add-Type -AssemblyName System.Windows.Forms
Add-type -AssemblyName System.Drawing
$Screen = [System.Windows.Forms.SystemInformation]::VirtualScreen
$Width = [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Width
$Height = [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Height
$Left = 0
$Top = 0
($bitmap = New-Object System.Drawing.Bitmap $Width, ($Height-40)) | Out-Null
($graphic = [System.Drawing.Graphics]::FromImage($bitmap)) | Out-Null
($graphic.CopyFromScreen($Left, $Top, 0, 0, $bitmap.Size)) | Out-Null
$bitmap.Save($File) | Out-Null
$CountPicture = (Get-ChildItem "$($PathPicture)\Image*.*").Count
If($CountPicture -ge 2)
{
$Picture1 = Get-ChildItem "$($PathPicture)\Image$($i).bmp"
$Picture2 = Get-ChildItem "$($PathPicture)\Image$($i-1).bmp"
}
else
{
Continue
}
$f1 = Get-FileHash -Path $Picture1
$f2 = Get-FileHash -Path $Picture2
Write-Host "$($Picture2.Name) : $($f2.Hash)"
Write-Host "$($Picture1.Name) : $($f1.Hash)"
if($f1.Hash -ne $f2.Hash)
{
Write-Host "PlaySound" -ForegroundColor Yellow
$PlayWav = New-Object System.Media.SoundPlayer
$PlayWav.SoundLocation = "C:\Windows\Media\Alarm01.wav"
$PlayWav.playsync()
#& "C:\Program Files\VideoLAN\VLC\vlc.exe" --play-and-exit '"C:\Windows\Media\Alarm01.wav"'
sleep -Seconds 10
# (New-Object Media.SoundPlayer 'C:\Windows\Media\Afternoon\Windows Notify.wav').Play();
}
Remove-Item $Picture2 -Force
} while (
$true
)
Il faudra faire un changement de valeur $Push si trop long (en secondes)
$wshell = New-Object -ComObject wscript.shell
[int]$Push = 300
Do
{
$wshell.SendKeys('^')
Write-Host "$(Get-Date) : Push CTRL"
start-sleep $Push
#Write-host "$([int]$Push - [Int]$i )"
} While ($p -ne 'n')
