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
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
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
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
nie potrafie znaleźć darmowego programu który byłby za darmo
---------------------------------------------------------------------------------------
sprawdź czy na systemie jest system
nie potrafie znaleźć darmowego programu który byłby za darmo
---------------------------------------------------------------------------------------
sprawdź czy na systemie jest system
Użytkownicy przeglądający to forum: Brak zarejestrowanych użytkowników oraz 6 gości