我正在讀更多(幾天後),並且有一個PPTP「數據庫」,您可以使用它來做到這一點。
下面的代碼:
#!/usr/bin/perl -w
@line = `/usr/bin/tdbdump /var/run/pppd2.tdb |grep "PEERNAME="`;
foreach $user (@line) {
chomp ($user);
undef $name;
undef $iplocal;
@record = split (/\;/, $user);
foreach $field (@record) {
if ($field =~ /PEERNAME/) {
$field =~ s/PEERNAME\=//gi;
$name = $field;
}
if ($field =~ /IPREMOTE/) {
$field =~ s/IPREMOTE\=//gi;
$field =~ s/(.*)\\.*/$1/gi;
$iplocal = $field;
}
}
if ((defined $name) && (defined $iplocal)) {
print ("$iplocal $name\n");
}
}
我複製了腳本的/ usr/bin中運行它容易。樣本輸出將是這樣的:
[email protected]:~# wppp
192.168.0.128 test
我希望它能幫助別人:)