in reply to server login

It looks like you are accessing Windows servers via CIFS.

If so, you can try to shell-execute a command like: 

net use \\<servername>\C$\VoiceGenie\mp\log  <ServerPassword> /user:<U
+serName>

[download]
before your access attempt. After you are done, do : 
net use \\<servername>\C$\VoiceGenie\mp\log /D

[download]
To "forget" the virtual mount.

            “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^2: server login
by Anonymous Monk on Feb 27, 2012 at 14:10 UTC
    First, thank you for your response to my question. I have tried to implement this but it is giving me some trouble with the syntax, not too worried just need to mess around with it more. I am wondering though, how would I implement this in my actual perl code? I need to be able to perform this log in log many times for different servers. Thank you in advance.
[reply]
      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

[reply]
[d/l]
        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]
        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]

In Section Seekers of Perl Wisdom