Polecam połączenie tego skryptu z wysyłaniem maila gdzie body maila to zmienna str, do tego dodajemy parametr od którego ma wysyłać maile np: 5GB (5*1024*1024) i mamy narzędzie które powiadamia nas o sytuacjach krytycznych w naszym środowisku
Const HARD_DISK = 3
strComputer = "name-of-your-server"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set Disks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
str = str & "Server: " & strComputer & vbcrlf
For Each objDisk in Disks
str = str & "Disk: "& objDisk.DeviceID & vbTab
str = str & " Free Disk Space: "& FormatNumber(CLng(objDisk.FreeSpace / 1024 / 1024),0,,,-1) & " MB" & vbcrlf
Next
str = str & vbcrlf
WScript.echo str
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
