you should be look at AT service. Change the user that start the service to your username and try. If it work, that's the user's privilege specified on AT service.
Yves. -----Original Message----- From: Glenn Meyer [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 06, 2003 9:19 AM To: [EMAIL PROTECTED] Subject: Mapping unc share drives... Please help... Desperate - final piece of the puzzle!! I need to map a UNC share to move some files. This code works fine when I run it manually. I cannot get it to run with an AT command. Any ideas? I have tried the following AT commands with no success and no results returned. All other AT commands seem to be working as expected. at 00:01 script.pl at 00:01 /interactive script.pl at 00:01 /interactive cmd /k "script.pl" <<< Short script from "Win32 Perl Programming" second edition pages 60 & 61 >>> use Win32::NetResource; my %NetResource = ( LocalName => "Q:", RemoteName => "\\\\main\\share" ); my $User = "tester"; my $Passwd = "passw0rd"; Win32::NetResource::AddConnection ( \%NetResource, $Passwd, $User, 0 ); <<< end >>> <<< Short script from "Win32 Perl Programming" second edition pages 60 & 61 PLUS error sub from pages 27 & 28 >>> use Win32::NetResource; use Win32::WinError; my %NetResource = ( LocalName => "Q:", RemoteName => "\\\\main\\share" ); my $User = "tester"; my $Passwd = "passw0rd"; if( Win32::NetResource::AddConnection ( \%NetResource, $Passwd, $User, 0 ) ) { print "Successful!\n"; } else { print NetError(); } sub NetError { my( $Error, $Text, $Provider ); $Error = Win32::GetLastError(); if( ERROR_EXTENDED_ERROR == $Error ) { Win32::NetResource::WNetGetLastError($Error, $Text, $Provider ); $Result = "Error $Error; $Text (generated by $Provider)"; } else { $Text = Win32::FormatMessage( $Error ); $Result = "Error $Error: $Text"; } return $Result; } <<< end >>> I have even tried this with a simple batch file and I can't get it to work.... at 00:01 script.bat <<< script.bat >>> net use Q: \\main\share /user:tester passw0rd <<< end >>> Again, works great running it manually, but never works and returns no errors when run by AT command. I have tried it on more than one machine. Is this possibly something that NT won't do? Thank you!! _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
