Bonjour,
je cherche à récupérer en VBS l'espace disponible sur un volume monté dans
un répertoire (point de montage).
J'ai bien trouvéla fonction "Win32_Volume" dans WMI, mais celle ci n'est
valable que sous 2003 et je suis en 2000 :/.
Cela est un peu problématique. Je peux surveiller l'espace disque de toutes
mes partitions serveur sauf sur ces montage.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jbongran
Laurent Dumont wrote:
Bonjour, je cherche à récupérer en VBS l'espace disponible sur un volume monté dans un répertoire (point de montage). J'ai bien trouvéla fonction "Win32_Volume" dans WMI, mais celle ci n'est valable que sous 2003 et je suis en 2000 :/.
Cela est un peu problématique. Je peux surveiller l'espace disque de toutes mes partitions serveur sauf sur ces montage.
Avez vous une idée à me soumettre??
D'avance merci, Laurent
Extrait de l'aide de vbscript 5.6 Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Lecteur " & UCase(drvPath) & " - " s = s & d.VolumeName & "<BR>" s = s & "Espace disponible : " & FormatNumber(d.FreeSpace/1024, 0) s = s & " KOctets" ShowFreeSpace = s End Function
Laurent Dumont wrote:
Bonjour,
je cherche à récupérer en VBS l'espace disponible sur un volume monté
dans un répertoire (point de montage).
J'ai bien trouvéla fonction "Win32_Volume" dans WMI, mais celle ci
n'est valable que sous 2003 et je suis en 2000 :/.
Cela est un peu problématique. Je peux surveiller l'espace disque de
toutes mes partitions serveur sauf sur ces montage.
Avez vous une idée à me soumettre??
D'avance merci,
Laurent
Extrait de l'aide de vbscript 5.6
Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Lecteur " & UCase(drvPath) & " - "
s = s & d.VolumeName & "<BR>"
s = s & "Espace disponible : " & FormatNumber(d.FreeSpace/1024, 0)
s = s & " KOctets"
ShowFreeSpace = s
End Function
Bonjour, je cherche à récupérer en VBS l'espace disponible sur un volume monté dans un répertoire (point de montage). J'ai bien trouvéla fonction "Win32_Volume" dans WMI, mais celle ci n'est valable que sous 2003 et je suis en 2000 :/.
Cela est un peu problématique. Je peux surveiller l'espace disque de toutes mes partitions serveur sauf sur ces montage.
Avez vous une idée à me soumettre??
D'avance merci, Laurent
Extrait de l'aide de vbscript 5.6 Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Lecteur " & UCase(drvPath) & " - " s = s & d.VolumeName & "<BR>" s = s & "Espace disponible : " & FormatNumber(d.FreeSpace/1024, 0) s = s & " KOctets" ShowFreeSpace = s End Function
Laurent Dumont
"jbongran" a écrit dans le message de news:415c7fcf$0$7738$
Laurent Dumont wrote:
Bonjour, je cherche à récupérer en VBS l'espace disponible sur un volume monté dans un répertoire (point de montage). J'ai bien trouvéla fonction "Win32_Volume" dans WMI, mais celle ci n'est valable que sous 2003 et je suis en 2000 :/.
Cela est un peu problématique. Je peux surveiller l'espace disque de toutes mes partitions serveur sauf sur ces montage.
Avez vous une idée à me soumettre??
D'avance merci, Laurent
Extrait de l'aide de vbscript 5.6 Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Lecteur " & UCase(drvPath) & " - " s = s & d.VolumeName & "<BR>" s = s & "Espace disponible : " & FormatNumber(d.FreeSpace/1024, 0) s = s & " KOctets" ShowFreeSpace = s End Function
Oui, merci, mais cela ne me permet malheureusment pas de voir les volumes montés :/ à moins que je n'ai pas mis la bonne syntaxe dans drvpath...
a+ Laurent
"jbongran" <jbongran@free.fr> a écrit dans le message de
news:415c7fcf$0$7738$626a14ce@news.free.fr...
Laurent Dumont wrote:
Bonjour,
je cherche à récupérer en VBS l'espace disponible sur un volume monté
dans un répertoire (point de montage).
J'ai bien trouvéla fonction "Win32_Volume" dans WMI, mais celle ci
n'est valable que sous 2003 et je suis en 2000 :/.
Cela est un peu problématique. Je peux surveiller l'espace disque de
toutes mes partitions serveur sauf sur ces montage.
Avez vous une idée à me soumettre??
D'avance merci,
Laurent
Extrait de l'aide de vbscript 5.6
Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Lecteur " & UCase(drvPath) & " - "
s = s & d.VolumeName & "<BR>"
s = s & "Espace disponible : " & FormatNumber(d.FreeSpace/1024, 0)
s = s & " KOctets"
ShowFreeSpace = s
End Function
Oui, merci, mais cela ne me permet malheureusment pas de voir les volumes
montés :/
à moins que je n'ai pas mis la bonne syntaxe dans drvpath...
"jbongran" a écrit dans le message de news:415c7fcf$0$7738$
Laurent Dumont wrote:
Bonjour, je cherche à récupérer en VBS l'espace disponible sur un volume monté dans un répertoire (point de montage). J'ai bien trouvéla fonction "Win32_Volume" dans WMI, mais celle ci n'est valable que sous 2003 et je suis en 2000 :/.
Cela est un peu problématique. Je peux surveiller l'espace disque de toutes mes partitions serveur sauf sur ces montage.
Avez vous une idée à me soumettre??
D'avance merci, Laurent
Extrait de l'aide de vbscript 5.6 Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Lecteur " & UCase(drvPath) & " - " s = s & d.VolumeName & "<BR>" s = s & "Espace disponible : " & FormatNumber(d.FreeSpace/1024, 0) s = s & " KOctets" ShowFreeSpace = s End Function
Oui, merci, mais cela ne me permet malheureusment pas de voir les volumes montés :/ à moins que je n'ai pas mis la bonne syntaxe dans drvpath...
