[sunnykey]

Его Величество "Король Кода и Властелин Железа" оскорбился прочитанным и сказал, что до конца недели всё сделает и даже лучше чем было. А я просто хотел помочь. Ладно, ждём результата с нетерпением. »

Рабочие и крестьяне не дождались

Код:

#Powershell script.
#Don't forget unlock script executing by 
#using command "Set-ExecutionPolicy RemoteSigned" or "Set-ExecutionPolicy Unrestricted"
#Save this file with ".ps1" extension
$TeamViewerPath='C:\TeamViewer.exe'
Start-Process -FilePath $TeamViewerPath -WindowStyle Normal
Start-Sleep -Seconds 10
Add-Type -AssemblyName System.Drawing
$jpegCodec=[Drawing.Imaging.ImageCodecInfo]::GetImageEncoders() | `
    Where-Object {$_.FormatDescription -eq "JPEG"}
Start-Sleep -Milliseconds 250
[Windows.Forms.Sendkeys]::SendWait("{PrtSc}")        
Start-Sleep -Milliseconds 250
$bitmap=[Windows.Forms.Clipboard]::GetImage()    
$EncoderParameters=New-Object Drawing.Imaging.EncoderParameters  
$EncoderParameters.Param[0]=New-Object Drawing.Imaging.EncoderParameter `
    ([System.Drawing.Imaging.Encoder]::Quality,[long]100)  
$screenCapturePathBase="${Env:TMP}\ScreenCapture"
$bitmap.Save("${screenCapturePathBase}.jpg",$jpegCodec,$EncoderParameters)
$From="from_username@doman"
$To="to_username@domain"
$Subject="Powershell"
$Attachment="${screenCapturePathBase}.jpg"
$Body="This is test message"
$Password="password"
$SecPassword=New-Object -TypeName System.Security.SecureString
$Password.ToCharArray() | foreach {$SecPassword.AppendChar($_)}
$Credintial=New-Object -TypeName System.Management.Automation.PSCredential -ArgumentList $From,$SecPassword
$smtpServer="smtp.domain"
Send-MailMessage -From $From -To $To -Subject $Subject -Attachments $Attachment `
    -Body $Body -Credential $Credintial -SmtpServer $smtpServer