This topic has been archived. It cannot be replied.
-
工作学习 / IT技术讨论 / 谁知道怎么用Perl去找remote login user。 没找到现成的module。
-redspider(忙啥！歇着吧！);
2004-2-18
(#1610554@0)
-
i did it like this.sub usr {
$ip = shift;
@sortie_nbtstat = `nbtstat -A $ip`;
$usager = "---Logoff---";
for $i (@sortie_nbtstat) {
if (( $i =~ /<03>/ ) && ( $i !~ /\s*PC\s*|\s*POR\s*/ ) && ( $i =~ /([A-Z_]{3,12})/)) {
$usager = $1;
}
}
return $usager;
}
-redspider(忙啥！歇着吧！);
2004-2-24
{263}
(#1618723@0)
-
晕！
-bylogic(混吧);
2004-2-24
(#1618989@0)