1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Dim strComputer
Dim objWMIService
Dim colDisks
Dim objDisk
Dim intFreeSpace
Dim FreeSpaceMO
strComputer = "192.168.0.5"
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
FreeSpaceMO = intFreeSpace / 1024 / 1024
If FreeSpaceMO < 25000 Then
With CreateObject("CDO.Message")
.From = "test"
.To = "@gmail.com"
.Subject = "Notification - Espace disponible inférieur à 1GO sur " & strComputer
.TextBody = objDisk.DeviceID & FreeSpaceMO & " MO de Libres "
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "name"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Pass"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update()
.Send()
End With
End If
Next |
