$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