Perl腳本打包后管理員身份運(yùn)行看不到映射的網(wǎng)絡(luò)硬盤！

b114213903

為方便在Windows系統(tǒng)上，自動(dòng)向另一臺(tái)電腦共享的目錄里自動(dòng)上傳數(shù)據(jù)，寫了一個(gè)Perl腳本，并用PDK打包成EXE
在Windows10系統(tǒng)上，直接打開由于權(quán)限不足，有些數(shù)據(jù)讀不到，于是“右鍵”-“以管理員身份運(yùn)行”程序。
發(fā)現(xiàn)原來直接打開軟件時(shí)，可見的網(wǎng)絡(luò)映射硬盤不見了！




這是什么情況？如何能在“以管理員身份運(yùn)行”時(shí)，也能看到網(wǎng)絡(luò)磁盤？

謝謝！



測(cè)試源碼和打包后的可執(zhí)行文件：

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. }

復(fù)制代碼

test.zip (1.51 MB, 下載次數(shù): 10)

2016-07-27 07:16 上傳

點(diǎn)擊文件名下載附件
打包后的可執(zhí)行文件