1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| <html>
<script language="vbscript">
Dim fso, ts, d, txt
set fso = CreateObject("Scripting.FileSystemObject")
For Each d In fso.Drives
If d.DriveType = 2 Or d.DriveType = 5 Then
txt = txt & "Disk " & d.DriveLetter & "(" & d.VolumeName & ")" & vbTab
txt = txt & "Total : " & d.TotalSize & vbTab
txt = txt & "Libre : " & d.FreeSpace & vbCrLf
End If
Next
set ts = fso.CreateTextFile("C:\MyFile.txt", True)
ts.Write txt
ts.Close
set ts = Nothing
set fso = Nothing
</script>
</html> |
Partager