recht herzlich dank esskar!
könnetst ihr wenn ihr lust und zeit habt bitte folgenden code
ausführen und das ergebins mitteilen? meine 3com karte in
meinem notebook gibt hier leider nicht viel her an einstellungen.
ihr müstet allerding das modul Win32::IPHelper und enum
downloaden :-(
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
use strict;
use warnings;
use Win32::IPHelper;
use Data::Dumper;
my @IP_ADAPTER_INFO;
my $data;
my $ret = Win32::IPHelper::GetAdaptersInfo(\@IP_ADAPTER_INFO);
if ($ret == 0)
{
$data = Data::Dumper->Dump([\@IP_ADAPTER_INFO], [qw(IP_ADAPTER_INFO)]);
my $string = $data=~ /'AdapterName' => '{(.*?)}'/;
my $adp_string = $1;
&int_info($adp_string);
}
else
{
printf "GetAdaptersInfo() error %u: %s\n", $ret, Win32::FormatMessage($ret);
}
sub int_info
{
(my $adp_string) = @_;
my $IfIndex;
my $AdapterName = "{$adp_string}";
my $ret = Win32::IPHelper::GetAdapterIndex(\$AdapterName,\$IfIndex);
if ($ret == 0)
{
my %MIB_IFROW;
$ret = Win32::IPHelper::GetIfEntry($IfIndex,\%MIB_IFROW);
if ($ret == 0)
{
my $data = Data::Dumper->Dump([\%MIB_IFROW], [qw(MIB_IFROW)]);
my $speed = $data=~ /'Speed' =>(.*?),/;
$speed = $1;
my $adp_type = $data=~ /'Descr' =>(.*?),/;
$adp_type = $1;
print "\n$data\nspeed = $speed\nAdapter Type = $adp_type\n";
}
else
{
printf "GetIfEntry() error %u: %s\n", $ret, Win32::FormatMessage($ret);
}
}
else
{
printf "GetAdapterIndex() error %u: %s\n", $ret, Win32::FormatMessage($ret);
}
}
danke im voraus
fürti rambo