BandaAncha.eu

  • 🔍 en 📰 artículos ⏎
  • 🔍 en 💬 foros ⏎
  • 🔍 en 👇 este 💬 foro ⏎
  • 🔍 en 👇 este 💬 tema ⏎
Regístrate Regístrate Identifícate Identifícate

crear .bat

santi-ti

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!!!!

BocaDePez
BocaDePez

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

🗨️ 2
santi-ti

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

🗨️ 1
Buster

Mira en Google si el programa ya existe porque con un .bat es imposible hacerlo.

raxor

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 MessageAttachment

Dim 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 If

Set ol = Nothing

Esto lo guardas y lo dejas en c:\envioaviso.vbs

Suerte ;)

🗨️ 1
santi-ti

Gracias, funciona perfectamente!!!!!!!!1