Caratteristiche Drive

Lo script in questione serve a visualizzare le caratteristiche dei drive, facendo un controllo delle unità presenti nel pc ed elencando le loro caratteristiche nel seguente modo.

  • lettera dell'unità
  • tipo (file system)
  • numero di serie
  • nome del volume
  • dimensioni effettive
  • spazio disponibile

Copia e incolla nel blocco note e poi salva in .vbs

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
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento