none
Script de discos duros RRS feed

  • Pregunta

  •  

    Alguien sabe un script sobre discos duros? supongo que sera fácil para vosotros pero es que soy nuevo

    Donde puedo encontrar manuales, o ver como se ejecuta un script?

    Saludos y gracias.

    viernes, 23 de noviembre de 2007 9:56

Respuestas

  • Hola =0)

     

     

       Dim fso, d, dc, s, n, i
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set dc = fso.Drives
       i=1
       For Each d in dc
          s = ""
          n = ""
          s = s & d.DriveLetter
      if d.drivetype = 2 then
     MiVar =  "Espacio libre: " & FormatNumber(d.AvailableSpace/1075, 0) & " en disco " & d.driveletter & "  " &  d.volumename
     end if
       i = i + 1
       Next

     

     

     

    Este solo te funcionara si tienes permisos totales dentro del server / Pc en caso de tener un cluster busca la propiedad IsReady y modificas el codigo para validar si tienes acceso mendiante esa propiedad.

     

    Saludos

     

    sábado, 1 de diciembre de 2007 17:27

Todas las respuestas

  • Hola fipv,

     

    Si no especificas más no creo que te podamos ayudar ¿qué quieres hacer concretamente con los discos?

     

    Un saludo,

    Rafael Valcárcel

     

    sábado, 24 de noviembre de 2007 2:07
  • Pues lo que quiero saber es cuanto de capacidad tiene el disco duro, cuanto tienen ocupados...

    Seguramente para vosotros esto será muy facilillo, pero a mi me cuesta..jeje que soy nuevo en esto.

     

    Saludos y gracias.

    lunes, 26 de noviembre de 2007 8:33
  • Hola,

     

    prueba esto:

     

    Dim fsObj Unidades, Unidad

    set fsObj = CreateObject("Scripting.FileSystemObject")

    set Unidades = fsObj.Drives

    for each Unidad in Unidades

       WScript.Echo  Unidad.DriveLetter & " - Capacidad: " & Unidad.TotalSize 
    next

    set Unidades = nothing
    set fsObj =  nothing

    Saludos,

    José Luis Cuesta

    martes, 27 de noviembre de 2007 12:20
  • Copio esto que me dices, y da error.

    Saludos y gracias.

    jueves, 29 de noviembre de 2007 8:43
  • Ya se, me da error la unidad A.

    cual es la variable que te recoge el tanto por ciento de máquina?

    Saludos y muchas gracias.

    jueves, 29 de noviembre de 2007 12:21
  • Hola =0)

     

     

       Dim fso, d, dc, s, n, i
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set dc = fso.Drives
       i=1
       For Each d in dc
          s = ""
          n = ""
          s = s & d.DriveLetter
      if d.drivetype = 2 then
     MiVar =  "Espacio libre: " & FormatNumber(d.AvailableSpace/1075, 0) & " en disco " & d.driveletter & "  " &  d.volumename
     end if
       i = i + 1
       Next

     

     

     

    Este solo te funcionara si tienes permisos totales dentro del server / Pc en caso de tener un cluster busca la propiedad IsReady y modificas el codigo para validar si tienes acceso mendiante esa propiedad.

     

    Saludos

     

    sábado, 1 de diciembre de 2007 17:27