take screenshot of desktop every 15 seconds

printscreen.ps1

Add-Type -AssemblyName System.Drawing

$timer = New-Object timers.timer
$timer.Interval = 15000
$timer.Enabled = $true
$timer.start()

Register-ObjectEvent -InputObject $timer -EventName Elapsed -SourceIdentifier PrintScreen -Action {
  $folderName = Get-Date -Format "yyyy-MM-dd"
  $fileName = "$(Get-Date -Format "yyyy-MM-dd HH mm ss").jpg"
  $folderPath = Join-Path "C:\printscreendiary" $folderName
  $filePath = Join-Path $folderPath $fileName
  [void](New-Item -ItemType Directory -Force -Path $folderPath)
  
  # https://learn.microsoft.com/en-us/windows/win32/cimwin32prov/win32-videocontroller
  $vc = Get-WmiObject Win32_VideoController | Where-Object -Property Availability -eq 3
  $width = [convert]::ToInt32($vc.CurrentHorizontalResolution)
  $height = [convert]::ToInt32($vc.CurrentVerticalResolution)
  $bmp = New-Object System.Drawing.Bitmap $width, $height
  $p0 = New-Object System.Drawing.Point 0, 0
  $size = New-Object System.Drawing.Size $width, $height
  $graphics = [System.Drawing.Graphics]::FromImage($bmp)
  $graphics.CopyFromScreen($p0, $p0, $size)
  $graphics.Dispose() 
  
  $encoderParamSet = New-Object System.Drawing.Imaging.EncoderParameters(1) 
  $encoderParamSet.Param[0] = New-Object System.Drawing.Imaging.EncoderParameter([System.Drawing.Imaging.Encoder]::Quality, 90) 
  $jpgCodec = [System.Drawing.Imaging.ImageCodecInfo]::GetImageEncoders() | Where-Object { $_.MimeType -eq 'image/jpeg' }
  $bmp.Save($filePath , $jpgCodec, $encoderParamSet)
  $bmp.Dispose()
}
# Get-EventSubscriber
# Unregister-Event -SourceIdentifier PrintScreen