Discussion :

[Panwelaa]

Bonjour,

alors j'ai un petit probleme j'ai créer ( en parti car je me suis aidé de script deja existant ) ce script servant a envoyer un mail quand l'espace d'un disque a depasser telle limite
je l'ai ecrit sur mon pc ( Seven ) est il marche tres bien sur mon pc
quand j'ai voulu le mettre sur le server 2008 de mon entreprise il me fait des erreurs a la ligne 8

voici le script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

sur le serveur a la ligne 8 j'ai ajouter ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objWMIService = GetObject("winmgmts:root\cimv2:Win32_LogicalDisk='C:'")

ensuite sa me dit que jai une erreur a la ligne 9

sur mon pc j'ai qu'un seul disque et partion

sur le serveur jai :
un disque avec 2 partition
un raid 5 en 2 partition connecter en Esata
et un autre raid 5 connecter en reseau

merci d'avance de votre aide

Cordialement

[Panwelaa]

arf c'est bon du coup c'etait la fonctionalité WMI qui etait mal installé

mon 2eme probleme c'est :

jai donc 4 disque LOGIQUE C D E F

Je voudrait dire par exemple C et D envoyer un mail quand il reste que 50 gb de libre
et pour E et F 200 Gb
est il possible de faire ceci ? si il faut faire 2 script ( 1 script pour chaque Disque Physique il n'y a pas de probleme )

merci d'avance