Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^5: server login

by NetWallah (Canon)
on Feb 29, 2012 at 16:19 UTC ( [id://956970]=note: print w/replies, xml ) Need Help??


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

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

Replies are listed 'Best First'.
Re^6: server login
by Anonymous Monk on Mar 02, 2012 at 15:08 UTC
    How would I go about with the diconnecting the drive? Would I use the same command as you listed in the first post?
      net use z: /d

      Where z: is the drive you wish to disconnect.

      net use /help

      Provides basic help, and instructions for getting more help on specific functions.

Re^6: server login
by Anonymous Monk on Mar 02, 2012 at 15:26 UTC
    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|; } } }
      Google the error message.

      I see reports of this message appearing in Ctrix servers.

      One possible corrective action seems to be to map to the root of the drive (C$), then access sub-directories.

      Another google hit indicates this may be cause by cache config, if the remote server is Linux-based Samba.

                  “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

        Thank you very much for all your help. Really helped me out a lot. Thank you again.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://956970]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (8)
As of 2024-04-19 15:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found