Chiedete e vi sarà dato…. magari!!
Dipende anche dal modo con cui si chide e soprattutto a chi.
Carissima….. hai chiesto e ti ho dato anche se questa volta si tratta solo di script….;)
Menomale che non siamo a scuola, quindi puoi copiare il codice nel blocco note e poi lo salvi in .vbs
Questo script fa un controllo dei drive (unità) ed elenca le loro caratteristiche nel seguente modo:
  • lettera dell’unità;
  • tipo (file system);
  • numero di serie ;
  • nome del volume;
  • dimensioni effettive;
  • spazio disponibile.
Dim oFS, oDrive, sOutput
Set oFS = CreateObject(“Scripting.FileSystemObject”)
For Each oDrive In oFS.Drives
With oDrive
If .IsReady Then
sOutput = “Unità:” & .DriveLetter & vbCRLF
sOutput = sOutput & ” Tipo:” & .FileSystem _
& vbCRLF
sOutput = sOutput & ” Numero di Serie:” & .SerialNumber _
& vbCRLF
sOutput = sOutput & ” Nome del Volume:” & .VolumeName _
& vbCRLF
sOutput = sOutput & ” Dimensioni:” & _
Round((.TotalSize / 1073741824), 2) & “GB” _
& vbCRLF
sOutput = SOutput & ” Spazio disponibile:” & _
Round((.AvailableSpace / 1073741824), 2) & “GB” _
& vbCRLF
WScript.Echo sOutput
else
WScript.Echo “Unità:” & .DriveLetter & ” non pronta”
End If
End With
Next
Vota...