none
Script de discos duros RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

     

    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

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    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

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    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
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    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
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    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
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Copio esto que me dices, y da error.

    Saludos y gracias.

    jueves, 29 de noviembre de 2007 8:43
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    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
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    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
    |