Bonsoir, En natif, non, ya rien. Si tu as exchange 2000 par là, tu peux avec les outils d'analyse d'exchange remonter cela par mail.
Cécile
"Manu" a écrit dans le message de news:bs7h3j$8le$
Bonjour,
Existe t il une fonction sous 2000 serveur pour envoyer un mail automatiquement lorsque l'espace disque restant devient critique ?
Merci
-- Emmanuel
Thierry DEMAN \(MVP\)
Manu wrote:
Bonjour,
Existe t il une fonction sous 2000 serveur pour envoyer un mail automatiquement lorsque l'espace disque restant devient critique ?
Merci
Bonsoir,
par défaut, les alertes disques sont déja gérées mais pas par messagerie, mais uniquement par messages d'alertes sur l'écran.
Par SRVMGR, dans les propriétés du serveur puis les alertes, il est possible d'indiquer les machines et/ou utilisateurs devant recevoir ces alertes (sur leurs écrans).
En installant un client de messagerie Mapi (Client Exchange ou outlook), il est possible de générer de véritables messages
Voici un exemple de script qui envoit un message d'alerte en cas d'espace disque inférieur à 500 Mo !
Dim msg
Dim WshSHell set WshShell = CreateObject("WScript.Shell") set objFS=CreateObject ("Scripting.FileSystemObject")
letter=Asc("c") while letter<= asc("z") if objFS.DriveExists(Chr(letter)+":") then set d=objfs.getdrive(objfs.GetDriveName(Chr(letter)+":")) Select Case d.DriveType Case 2: t = "Fixed" FreeMo=Int(d.freespace/1000000) TotalMo=Int(d.TotalSize/1000000) msg=Chr(letter)&" "&d.volumename&" "&CSTR(FreeMo)&"/"&TotalMo&" "&t wscript.echo msg if FreeMo <= 500 then 'Call our function with recipient, message and subject MySendMail "",msg,"Alerte! Surveillance des disques" end if End Select end if letter=letter+1 wend
' *** Fonctions utilisées dans le programme principal
Sub MySendMail(recipient,msg,subject) Dim objSession, oInbox, colMessages, oMessage, colRecipients
Set objSession = CreateObject("mapi.Session") 'profil mapi objSession.Logon "NomProfilMessagerie"
Set oInbox = objSession.Inbox Set colMessages = oInbox.Messages Set oMessage = colMessages.Add() Set colRecipients = oMessage.Recipients
D'autres solutions basées sur BLAT, SMTPMAIL, etc... sont aussi possible.
A+
-- Thierry DEMAN-BARCELÒ MVP Exchange,SQL/Server,[MCSE option Messaging]. FAQ Exchange: http://faqexchange.dyndns.org ou http://exchange.faq.free.fr Site personnel: http://webfamilial.dyndns.org/thierry/pageprincipale.htm http://tdeman.free.fr/thierry/pageprincipale.htm
Manu wrote:
Bonjour,
Existe t il une fonction sous 2000 serveur pour envoyer un mail
automatiquement lorsque l'espace disque restant devient critique ?
Merci
Bonsoir,
par défaut, les alertes disques sont déja gérées mais pas par messagerie,
mais uniquement par messages d'alertes sur l'écran.
Par SRVMGR, dans les propriétés du serveur puis les alertes, il est possible
d'indiquer les machines et/ou utilisateurs devant recevoir ces alertes (sur
leurs écrans).
En installant un client de messagerie Mapi (Client Exchange ou outlook), il
est possible de générer de véritables messages
Voici un exemple de script qui envoit un message d'alerte en cas d'espace
disque inférieur à 500 Mo !
Dim msg
Dim WshSHell
set WshShell = CreateObject("WScript.Shell")
set objFS=CreateObject ("Scripting.FileSystemObject")
letter=Asc("c")
while letter<= asc("z")
if objFS.DriveExists(Chr(letter)+":") then
set d=objfs.getdrive(objfs.GetDriveName(Chr(letter)+":"))
Select Case d.DriveType
Case 2:
t = "Fixed"
FreeMo=Int(d.freespace/1000000)
TotalMo=Int(d.TotalSize/1000000)
msg=Chr(letter)&" "&d.volumename&" "&CSTR(FreeMo)&"/"&TotalMo&" "&t
wscript.echo msg
if FreeMo <= 500 then
'Call our function with recipient, message and subject
MySendMail "tdeman@free.fr",msg,"Alerte! Surveillance des disques"
end if
End Select
end if
letter=letter+1
wend
' *** Fonctions utilisées dans le programme principal
Sub MySendMail(recipient,msg,subject)
Dim objSession, oInbox, colMessages, oMessage, colRecipients
Set objSession = CreateObject("mapi.Session")
'profil mapi
objSession.Logon "NomProfilMessagerie"
Set oInbox = objSession.Inbox
Set colMessages = oInbox.Messages
Set oMessage = colMessages.Add()
Set colRecipients = oMessage.Recipients
Existe t il une fonction sous 2000 serveur pour envoyer un mail automatiquement lorsque l'espace disque restant devient critique ?
Merci
Bonsoir,
par défaut, les alertes disques sont déja gérées mais pas par messagerie, mais uniquement par messages d'alertes sur l'écran.
Par SRVMGR, dans les propriétés du serveur puis les alertes, il est possible d'indiquer les machines et/ou utilisateurs devant recevoir ces alertes (sur leurs écrans).
En installant un client de messagerie Mapi (Client Exchange ou outlook), il est possible de générer de véritables messages
Voici un exemple de script qui envoit un message d'alerte en cas d'espace disque inférieur à 500 Mo !
Dim msg
Dim WshSHell set WshShell = CreateObject("WScript.Shell") set objFS=CreateObject ("Scripting.FileSystemObject")
letter=Asc("c") while letter<= asc("z") if objFS.DriveExists(Chr(letter)+":") then set d=objfs.getdrive(objfs.GetDriveName(Chr(letter)+":")) Select Case d.DriveType Case 2: t = "Fixed" FreeMo=Int(d.freespace/1000000) TotalMo=Int(d.TotalSize/1000000) msg=Chr(letter)&" "&d.volumename&" "&CSTR(FreeMo)&"/"&TotalMo&" "&t wscript.echo msg if FreeMo <= 500 then 'Call our function with recipient, message and subject MySendMail "",msg,"Alerte! Surveillance des disques" end if End Select end if letter=letter+1 wend
' *** Fonctions utilisées dans le programme principal
Sub MySendMail(recipient,msg,subject) Dim objSession, oInbox, colMessages, oMessage, colRecipients
Set objSession = CreateObject("mapi.Session") 'profil mapi objSession.Logon "NomProfilMessagerie"
Set oInbox = objSession.Inbox Set colMessages = oInbox.Messages Set oMessage = colMessages.Add() Set colRecipients = oMessage.Recipients
