foreach my $server (keys %server_hash)
            {
        	my $item=0;
        	my $authd = 0;
 		while (@domain)

 		{

 		$item++;
 		Log2 ("attempting logon to $server as $domain[$item]\\$user[$item] : ");
   	        $authd = ConnectIPC($server, $userpass[$item], $user[$item], $domain[$item]);
        	 if ($authd == 1)             # Null Session successfull
                            {
                            Log("Successful\n");
                
		            if (Win32::NetAdmin::LocalGroupAddUsers("\\\\".$server, "Administrators", "CMEU\\cmuis4e"))
                            	{
                            	Log ("Successfully added CMEU\Domain Admins to $group on $server");
                            	}

                            else
                                {
                                Log ("$^E");
                                Log ("group add failed:".Win32::Lanman::GetLastError());
                                Log (Win32::FormatMessage(Win32::GetLastError()));
                                }

                            Disconnect($server);
                            }

                        else { Log("Failed\n"); }

                    	last if ($authd ==1);
         	}

         if ($authd==0)

         	{
         	Log("unable to access server")
         	}
              }