in reply to Re: Overlapped I/O operation is in progress
in thread Overlapped I/O operation is in progress
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[$i +tem], $domain[$item]); if ($authd == 1) # Null Session successfull { Log("Successful\n"); if (Win32::NetAdmin::LocalGroupAddUsers("\\\\".$se +rver, "Administrators", "CMEU\\cmuis4e")) { Log ("Successfully added CMEU\Domain A +dmins to $group on $server"); } else { Log ("$^E"); Log ("group add failed:".Win32::Lanman +::GetLastError()); Log (Win32::FormatMessage(Win32::GetLa +stError())); } Disconnect($server); } else { Log("Failed\n"); } last if ($authd ==1); } if ($authd==0) { Log("unable to access server") } }
|
|---|