script to check drive space on removable drives only

[k33]

The following code is provided by Microsoft scripting. I want to modify to check for low disk space ONLY on specified drives via user input OR only on removable drives. Either would work. Any suggestions?

Const CONVERSION_FACTOR = 1048576
Const WARNING_THRESHOLD = 100
Computer = "Workstation1"
Set objWMIService = GetObject("winmgmts://" & Computer)
Set colLogicalDisk = objWMIService.InstancesOf("Win32_LogicalDisk&quot
For Each objLogicalDisk In colLogicalDisk
FreeMegaBytes = objLogicalDisk.FreeSpace / CONVERSION_FACTOR
If FreeMegaBytes < WARNING_THRESHOLD Then
Wscript.Echo objLogicalDisk.DeviceID & &quot; is low on disk space.&quot;
Else
Wscript.Echo objLogicalDisk.DeviceID & &quot; has adequate disk space.&quot;
End If
Next


Thanks

 

[Sysgrunt]

For removable drives add the lines marked with ***.

Const CONVERSION_FACTOR = 1048576
Const WARNING_THRESHOLD = 100
Computer = &quot;Workstation1&quot;
Set objWMIService = GetObject(&quot;winmgmts://&quot; & Computer)
Set colLogicalDisk = objWMIService.InstancesOf(&quot;Win32_LogicalDisk&quot
For Each objLogicalDisk In colLogicalDisk

*** If objLogicalDisk.DriveType = &quot;2&quot; then

FreeMegaBytes = objLogicalDisk.FreeSpace / CONVERSION_FACTOR
If FreeMegaBytes < WARNING_THRESHOLD Then
Wscript.Echo objLogicalDisk.DeviceID & &quot; is low on disk space.&quot;
Else
Wscript.Echo objLogicalDisk.DeviceID & &quot; has adequate disk space.&quot;
End If

*** End If

Next

 

[k33]

Thanks!! That worked.