Perl脚本打包后管理员身份运行看不到映射的网络硬盘！

b114213903

为方便在Windows系统上，自动向另一台电脑共享的目录里自动上传数据，写了一个Perl脚本，并用PDK打包成EXE
在Windows10系统上，直接打开由于权限不足，有些数据读不到，于是“右键”-“以管理员身份运行”程序。
发现原来直接打开软件时，可见的网络映射硬盘不见了！




这是什么情况？如何能在“以管理员身份运行”时，也能看到网络磁盘？

谢谢！



测试源码和打包后的可执行文件：

1. #!perl
   
2. use Win32::GUI qw(WS_EX_TOPMOST);
   
3. 
   
4. my $main = Win32::GUI::Window->new(
   
5.     -name => 'Main',
   
6.     -text => 'Test!',
   
7.     -height => 160,
   
8.     -width => 240,
   
9.         -topmost => 1,
   
10.         -onResize=>\&Resize,
    
11. );
    
12. 
    
13. $main->AddTextfield(
    
14.         -name        => 'Item',
    
15.         -pos        => [5,5],
    
16.         -size        => [$main->ScaleWidth()-10,$main->ScaleHeight()-10],
    
17.         -onGotFocus        => \&Clk,
    
18. );
    
19. 
    
20. $main->Center();
    
21. $main->Show();
    
22. Win32::GUI::DoEvents();
    
23. Win32::GUI::Dialog();
    
24. exit(0);
    
25. 
    
26. sub Clk{
    
27.         my $dir=$main->BrowseForFolder(
    
28.                 -title                =>        'Select the Original dir!',
    
29.                 -folderonly        =>        1,
    
30.                 -owner                 =>        $main,
    
31.                 -addexstyle => WS_EX_TOPMOST
    
32.                 );
    
33.         $main->{'Item'}->Text("$dir");
    
34.         return 0;
    
35. }
    
36. 
    
37. sub Resize{
    
38.         $self=shift;
    
39.         $self->{'Item'}->Resize($main->ScaleWidth()-10,$main->ScaleHeight()-10);
    
40. }

复制代码

test.zip (1.51 MB, 下载次数: 10)

2016-07-27 07:16 上传

点击文件名下载附件
打包后的可执行文件