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