hola a tod@s
Necesito crear un .bat que me avise cuando quede menos de 500MB de espacio en disco de C: y me envie un correo notificandomelo, el equipo donde quiero hacer esto es SMTP.
Gracias por vuestra ayuda!!!!
hola a tod@s
Necesito crear un .bat que me avise cuando quede menos de 500MB de espacio en disco de C: y me envie un correo notificandomelo, el equipo donde quiero hacer esto es SMTP.
Gracias por vuestra ayuda!!!!
Te paso el seudocodigo y tu lo implementas:
:INICIO
Dir c: > c:\salida.txc
Programa que revisa la salida y envia el correo si detecta que la ultima cifra es menor de cierta cantidad
GOTO INICIO
Evidentemente el programa lo deberias hacer tu, propongo en C ya que por hay librerias de acceso a SMTP que te iran bien y tambien dejalo dormido unos cuantos minutos no sea que afecte el rendimiento al sistema.
Programarlo todo en bat me parece algo excesivo, en un shell mas sencillo con el grep pero eso es otra historia
No entiendo nada, soy muy novato en esto y no lo entiendo
Perdona por si te molesta pero no se por donde cojerlo.....
Muchas gracias de verdad
Mira en Google si el programa ya existe porque con un .bat es imposible hacerlo.
Panel de control --> herramientas Administrativas --> rendimiento
Alertas (boton derecho) --> Nueva configuracion de alerta --> Pon el nombre " Alerta disco duro" o algo así"
Agregar --> en "objeto del rendimiento" busca: "Disco Logico" --> en "contadores de la lista" busca, "% de espacio libre".
En "seleccionar intancias de la lista" pon el disco que quieres controlar.--> Agregas y cierras.
En "Alertar cuando el valor sea" pones inferior a limite: 500000.
En accion pones que se ejecute un programa. (haz lo de debajo y luego pones c:\avisomail.vbs
Crea un fichero de texto y renombralo a avisomail.vbs con el siguiente contenido (edita el destino y mensaje)
Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachmentDim ol, ns, newMail
ToAddress = "midirecciondecorre@servidor.com" ' change this...
MessageSubject = "TE ESTA PETANDO EL DISCO C"
MessageBody = "TE QUEDAN MENOS DE 500 MB CHAVALOTE"Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon "","",true,false
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
MsgBox "unknown recipient"
Else
newMail.Recipients.Add(myRecipient)
newMail.Send
End IfSet ol = Nothing
Esto lo guardas y lo dejas en c:\envioaviso.vbs
Suerte ;)
Gracias, funciona perfectamente!!!!!!!!1