Skrypt ostrzegający przed kończącym się miejscem

[ToServeAndProtect]

Szukam skryptu ostrzegającego przed kończącym się miejscem na dysku. Potrzebny jest mi do serwerów w firmie. Będzie ostrzegał jak wolne miejsce spadnie poniżej xGB i wyśle maila na dany mail.

Zapewne da się coś takiego zrobić. Szukałem programów ale znajdowałem płatne. Jeśli jest jakiś dobry soft ale damrowy to może być i soft

[Łowca Androidów]

W skryptach nie jestem mocny, ale może to Cię naprowadzi, albo kogoś kto tu zajrzy:
https://technet.microsoft.com/pl-pl/library/jak-sprawdzic-ilosc-wolnego-miejsca-na-dysku.aspx

Mam jeszcze coś takiego:

Dla jednego dysku z którego jest uruchamiany:

Kod: Zaznacz wszystko

strPath = Wscript.ScriptFullName
strDrive = Left(strPath, 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DeviceID = '" & strDrive & "'")
For Each objDisk in colDisks
    intFreeSpace = objDisk.FreeSpace
    intTotalSpace = objDisk.Size
    pctFreeSpace = intFreeSpace / intTotalSpace
    Wscript.Echo "Wolnego miejsca: " & FormatPercent(pctFreeSpace)
    Wscript.Echo "Albo: " & FormatNumber(intFreeSpace/1073741824,2) & " GB"
Next


Wynik wyświetli się w procentach,ale jak klikniemy jeszcze raz ENTER otrzymay GB
Jeśli chcemy wynik w bajtach to kasujemy dzielenie przez 1073741824

Dla wszystkich dysków:

Kod: Zaznacz wszystko

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DriveType = 3")
For Each objDisk in colDisks
    intFreeSpace = objDisk.FreeSpace
    intTotalSpace = objDisk.Size
    pctFreeSpace = intFreeSpace / intTotalSpace
    If pctFreeSpace <= .1 Then
        If pctFreeSpace <= .05 Then
            Wscript.Echo "Wartość krytyczna - " & objDisk.DeviceID, FormatPercent(pctFreeSpace)
        Else
            Wscript.Echo "Ostrzeżenie - " & objDisk.DeviceID, FormatPercent(pctFreeSpace)
        End If
    Else
        Wscript.Echo "Masz na dysku " & objDisk.DeviceID, FormatPercent(pctFreeSpace) & " wolnego miejsca"
    End If
Next


Jeśli wynik chcemy w GB to zastępujemy:
FormatPercent(pctFreeSpace)
tym:
FormatNumber(intFreeSpace/1073741824,2) & " GB"


Oba skrypty zapisujmey jako *.vbs

Jeśli chodzi o wysyłanie to z tym są problemy

Te skrypty napisano mi na innym forum - poprosiłem.

Dodano Dzisiaj, 13:50:
No i mam skrypt dzialający - wysyła emaile - tyle emaili ile jest dysków

Kod: Zaznacz wszystko

strComputer = "."Set objWMIService = GetObject("winmgmts:" &

"{impersonationLevel=impersonate}!\\" & strComputer &

"\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("Select * from

Win32_LogicalDisk Where DriveType = 3")
For Each objDisk in colDisks
    intFreeSpace = objDisk.FreeSpace
    intTotalSpace = objDisk.Size
    DriveLetter = objDisk.DeviceID   
    pctFreeSpace = intFreeSpace / intTotalSpace
On Error Resume Next
Dim WshShell
set WshShell=CreateObject("WScript.Shell")
WshShell.run "cmd.exe"
WScript.Sleep 1000
WshShell.SendKeys "telnet poczta.interia.pl 587"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "ehlo nazwa_usera@interia.pl"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "auth login"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "Tu wpisujesz zakodowaną nazwa_usera z

podanej wyżej strony"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "Tu wpisujesz zakodowane hasło z

podanej wyżej strony"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "mail from: <nazwa_usera@interia.pl>"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "RCPT TO: <nazwa_odbiorcy@gmail.pl>"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "DATA"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "TO: <nazwa_usera@gmail.com>"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "FROM: <Nazwa_usera@interia.pl>"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "SUBJECT: Na dysku " & DriveLetter & "

pozostalo " & FormatPercent(pctFreeSpace) & " procent

wolnego miejsca."
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "."
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "QUIT"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "EXIT"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
Next


Ten skrypt jest pod Interię
Parametry polecenia MAIL i RCTP mają być jak podane niżej
- przynajmniej na interii.pl

• mail from: <nazwa_usera@interia.pl>
• RCPT TO: <nazwa_odbiorcy@gmail.pl>

Jeśli to Win7 to trzeba dodać usługę telnet.
Potem wejśc na stronę:
http://www.webpan.com/Customers/Email/base64_conversion.htm
Służy do kodowania usera i hasła do poczty email

To też otrzymałem na innym forum

[ToServeAndProtect]

OK, mam czas

Ale nie wiem jak zastosować dane skrypty


Ten ostatni skrypt wypełniłem swoimi danymi. Ale skąd ma pobrać dane ten skrypt (o miejscu na dysku). Pierwszy i drugi skrypt działa idealnie Jest to co chcę. Tylko teraz nie wiem jak informację ze skryptu przesłać na maila. Dodatkowo, skrypt pokazuje miejsce jak go uruchomie. A potrzebuję takiego co sam się uruchomi jak miejsce spadnie do iluś tam procent.

[Łowca Androidów]

Przykro mi - więcej nie pomogę bo jak pisałem - to była pomoc na innym forum - ja ze srypów jestem cieniutki.

[ToServeAndProtect]

a jakie to forum możesz podesłać na priv chyba, że nie udzielą mi odpowiedzi bo to jakieś tajne zgromadzenie