or download this
# Recreate the JS in actual Perl with Win32-based modules, because the
+re's no reason to spawn a javascript interpreter to run a ScriptingOb
+ject library to do the underlying win32 api calls that they wrap
use warnings;
...
# GetDriveInfoJS(); # this is the GetDriveInfo sub from [harangsolt33]
+'s answer (so not repeated here)
GetDriveInfoPL();