Principales respuestas
Script de discos duros

Pregunta
-
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
NextEste 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
- Marcado como respuesta Atilla ArrudaModerator lunes, 8 de marzo de 2010 22:02
Todas las respuestas
-
-
-
Hola,
prueba esto:
Dim fsObj Unidades, Unidad
set fsObj = CreateObject("Scripting.FileSystemObject")
set Unidades = fsObj.Drivesfor each Unidad in Unidades
WScript.Echo Unidad.DriveLetter & " - Capacidad: " & Unidad.TotalSize
next
set Unidades = nothing
set fsObj = nothingSaludos,
José Luis Cuesta
-
-
-
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
NextEste 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
- Marcado como respuesta Atilla ArrudaModerator lunes, 8 de marzo de 2010 22:02