$computer = "."
$objWMIService = GetObject( "winmgmts://" + $computer + "/root/CIMV2" )
$colDisks = $objWMIService.ExecQuery("Select * FROM Win32_LogicalDisk")
For Each $objDisk in $colDisks
Select
Case $objDisk.DriveType = "2"
$Devtype = "floppy drive."
Case $objDisk.DriveType = "3"
$DevType = "hard drive."
? " "
? " Drive: " + $objDisk.Name
? " Device type:................" + $DevType
? " File System:................" + $objDisk.FileSystem
$dfs=CInt ($objDisk.FreeSpace)
$dds=Cint ($objDisk.Size)
$sss= $dds - $dfs
? " Free Space:................." + $objDisk.FreeSpace + " / " + $objDisk.Size
? "amir : " + $sss + " - " + $dfs + " - " + $dds
? " "
Case $objDisk.DriveType = "4"
$DevType = "mapped network drive."
Case $objDisk.DriveType = "5"
$DevType = "CD or DVD drive."
? " "
? " Drive: " + $objDisk.Name
? " Device type:................" + $DevType
? " "
Case 1
$DevType = "Unknown"
EndSelect