in reply to Re^2: server login
in thread server login

Try something like : 
  qx|net use \\\\<servername>\\C\$\\VoiceGenie\\mp\\log  $ServerPasswo
+rd /user:$username|;

[download]

            “PHP is a minor evil perpetrated and created by incompetent amateurs, whereas Perl is a great and insidious evil perpetrated by skilled but perverted professionals.”
        ― Jon Ribbens

Replies are listed 'Best First'.
Re^4: server login
by Anonymous Monk on Feb 29, 2012 at 14:05 UTC
    That worked like a charm. Does that need to be closed or unmounted by including another command? Thank you very much for assistance. It is much appreciated.
[reply]
Re^4: server login
by Anonymous Monk on Feb 29, 2012 at 14:10 UTC
    Also one other question regarding the use. Before to mounts to each server it says "System error 55 has occurred. The specified network resource or device is no longer available." It connects and searches the drives as though nothing went wrong.
[reply]
      Yes - I'd recommend DISCONNECTING the drive after using it, as indicated in my first post.

      Your "System Error 55" is probably a result of NOT disconnecting, and trying to re-connect, (attempting to re-connect to an existing network drive)

      I'd suggest checking if the path exists (use the perl "-e" operator). Run the "NET USE" command only if the path does not already exist.

                  “PHP is a minor evil perpetrated and created by incompetent amateurs, whereas Perl is a great and insidious evil perpetrated by skilled but perverted professionals.”
              ― Jon Ribbens

[reply]
        How would I go about with the diconnecting the drive? Would I use the same command as you listed in the first post?
[reply]
        You can disregard my last note. I was able to implement the disconnent. However I still get the system error 55? Any idea where else this could be being thrown from, or how I could fix it? The new code is located below. Thank you for all of your help this far. It is very much appreciated. 
         
foreach $server ( @servers )
{
    if( $found == 0 )
    {
        if( -e "\\\\$server\\C\$\\" )
        {
            print "\n\nServer is already linked\n\n";
        
            find( \&finddata, "\\\\$server\\c\$\\VoiceGenie\\mp\\logs\
+\" )or 
                warn "Could not enter the specified path \\\\$server\\
+c\$\\VoiceGenie\\mp\\logs\\.\n"; #Function that allows the use of Fil
+e::Find.
        }
        
        else
        {
            print "\n\nServer not linked connecting now\n\n";
        
            qx|net use \\\\$server\\C\$\\VoiceGenie\\mp\\log  $ServerP
+assword /user:$username|;
        
            find( \&finddata, "\\\\$server\\c\$\\VoiceGenie\\mp\\logs\
+\" ) or 
                warn "Could not enter the specified path \\\\$server\\
+c\$\\VoiceGenie\\mp\\logs\\.\n"; #Function that allows the use of Fil
+e::Find.
                
            qx|net use \\\\$server\\C\$\\VoiceGenie\\mp\\log /D|;

        }
    }
}

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom