Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- cls
- #Nastaveni
- $senzor = "" # napriklad http://192.168.1.1/api/power?apikey=53B8B55BEE6A4775" #Je treba znat IP adresu a API klic (k nalezeni v administraci)
- #Nastaveni Emailu
- $SMTPUsername = "" #napriklad neco@seznam.cz
- $SMTPServer = "" #napriklad smtp.seznam.cz
- $SecureStringPassword = Read-Host "Heslo" -AsSecureString
- $EmailCredential = New-Object -TypeName System.Management.Automation.PSCredential -ArgumentList $SMTPUsername,$SecureStringPassword
- $email1 = "" #emailova adresa, nebo specialni e-mail od operatora, ktery vam doruci zpravu jako sms napriklad 606123456@sms.t-mobile.cz - Musi se nastavit v aplikaci Muj T-Mobile->Sluzby->Ostatni sluzby->Email do SMS
- $pocitadlo = 5 #Kdyz se spusti program a susicka je jeste vypnuta, tak aby to neposlalo zbytecne info - ono se to v dalsim kroku kdyztak pri vyssi spotrebe vynuluje
- while (1){
- #Vypis stavu
- $stav = Invoke-WebRequest -uri $senzor
- $cas = Get-Date -Format "yyyy-MM-dd HH:mm"
- write-host $cas $stav.Content "W - pocitadlo: " $pocitadlo
- if([INT]$stav.Content -lt 5){ #Nastaveni pocitadla - pricte hodnotu, pokud je spotreba nizsi, nez 5W (normalni spotreba susicky je treba 400, ale i vic W)
- $pocitadlo = $pocitadlo + 1
- }
- else{
- $pocitadlo = 0
- }
- if($pocitadlo -eq 3){ #Pokud 3x za sebou je hodnota nizsi, nez 5 W, tak posli e-mail ze je konec
- write-host("I: Mail byl odeslán") -ForegroundColor Yellow
- Send-MailMessage -From $SMTPUsername -To $email1 -Subject "Susicka - Konec" -SmtpServer $SMTPServer -Credential $EmailCredential
- }
- Start-Sleep -Seconds 30 #Cekej na dalsi mereni
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement