| 1 | # Manage the to-do list.
|
|---|
| 2 |
|
|---|
| 3 | # use warnings;
|
|---|
| 4 | # use strict;
|
|---|
| 5 | use Win32::NetResource; # for get_drive_path
|
|---|
| 6 |
|
|---|
| 7 | my $drive="z:";
|
|---|
| 8 | my $ret;
|
|---|
| 9 |
|
|---|
| 10 | print ("Calling GetUNCName $drive\n");
|
|---|
| 11 | if (Win32::NetResource::GetUNCName ($ret, $drive)) {
|
|---|
| 12 | print ("success \$ret = $ret\n");
|
|---|
| 13 | # all done
|
|---|
| 14 | }
|
|---|
| 15 | elsif ($^E == "ERROR_NOT_CONNECTED") {
|
|---|
| 16 | # Not a network drive, so just return the drive letter itself.
|
|---|
| 17 | $ret = $drive;
|
|---|
| 18 | }
|
|---|
| 19 | else {
|
|---|
| 20 | print ("\$ret = $ret\n");
|
|---|
| 21 | die "Unable to GetUNCName for $drive: $^E";
|
|---|
| 22 |
|
|---|
| 23 | }
|
|---|
| 24 |
|
|---|
| 25 |
|
|---|
