Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6814[/thread]

link speed herausfinden

Leser: 1


<< |< 1 2 3 4 >| >> 35 Einträge, 4 Seiten
Rambo
 2005-03-24 16:45
#52907 #52907
User since
2003-08-14
803 Artikel
BenutzerIn

user image
hallo,
gibt es eine möglichkeit mit perl die speed der netzwerkkarte
heraus zufinden (10/100 half/full usw.)

hatte bis her noch nichts gefunden bei google
Strat
 2005-03-25 12:34
#52908 #52908
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
betriebbsystem? lokal? remote?
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Rambo
 2005-03-25 13:15
#52909 #52909
User since
2003-08-14
803 Artikel
BenutzerIn

user image
erst mal nur win und lokal
esskar
 2005-03-25 13:25
#52910 #52910
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=Rambo,25.03.2005, 12:15]erst mal nur win und lokal[/quote]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use Win32::IPHelper;
  use Data::Dumper;
  my $IfIndex;
  # the value for AdapterName is found in @IP_ADAPTER_INFO, for example
  # $IP_ADAPTER_INFO[0]{'AdapterName'};
  my $AdapterName = '{05BD2B74-F102-4A5E-BED6-11373A07D16D}'; # BITTE ANPASSEN
  $ret = Win32::IPHelper::GetAdapterIndex(\$AdapterName,\$IfIndex);
  if($ret == 0)
  {
    my %MIB_IFROW;
    $ret = Win32::IPHelper::GetIfEntry($IfIndex,\%MIB_IFROW);
    if($ret == 0)
        {
      print Data::Dumper->Dump([\%MIB_IFROW], [qw(MIB_IFROW)]);
    }
    else
    {
      printf "GetIfEntry() error %u: %s\n", $ret, Win32::FormatMessage($ret);
    }
  }
  else
  {
    printf "GetAdapterIndex() error %u: %s\n", $ret, Win32::FormatMessage($ret);
  }


den Namen zum anpassen bekommst du auch raus
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
use Win32::IPHelper;
  use Data::Dumper;
  my @IP_ADAPTER_INFO;
  $ret = Win32::IPHelper::GetAdaptersInfo(\@IP_ADAPTER_INFO);
  if($ret == 0)
  {
    print Data::Dumper->Dump([\@IP_ADAPTER_INFO], [qw(IP_ADAPTER_INFO)]);
  }
  else
  {
    printf "GetAdaptersInfo() error %u: %s\n", $ret, Win32::FormatMessage($ret);
  }
Rambo
 2005-03-26 18:42
#52911 #52911
User since
2003-08-14
803 Artikel
BenutzerIn

user image
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 :-(

Code: (dl )
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
[E|B]
 2005-03-26 19:06
#52912 #52912
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Code: (dl )
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
$MIB_IFROW = {
               'Mtu' => 1500,
               'InUnknownProtos' => 270,
               'OutQLen' => 0,
               'PhysAddrLen' => 6,
               'OperStatus' => 5,
               'InErrors' => 0,
               'Type' => 6,
               'Speed' => 100000000,
               'AdminStatus' => 1,
               'Descr' => 'Realtek RTL8139-Familie-PCI-Fast Ethernet-NIC - Paketplaner-Miniport',
               'InOctets' => 202461024,
               'InDiscards' => 0,
               'DescrLen' => 69,
               'Index' => 2,
               'OutOctets' => 179095440,
               'OutNUcastPkts' => 325,
               'OutUcastPkts' => 494836,
               'OutDiscards' => 0,
               'LastChange' => 25363384,
               'InUcastPkts' => 456541,
               'InNUcastPkts' => 554,
               'OutErrors' => 0,
               'Name' => '',
               'PhysAddr' => '0010dc3456dca882'
             };

speed =  100000000
Adapter Type =  'Realtek RTL8139-Familie-PCI-Fast Ethernet-NIC - Paketplaner-Miniport'
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
esskar
 2005-03-26 19:26
#52913 #52913
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
$MIB_IFROW = {
'Mtu' => 1500,
'InUnknownProtos' => 54,
'OutQLen' => 0,
'PhysAddrLen' => 6,
'OperStatus' => 5,
'InErrors' => 0,
'Type' => 6,
'Speed' => 5500000,
'AdminStatus' => 1,
'Descr' => 'Belkin 802.11g Netzwerkadapter #2 - Paketplaner-Miniport',
'InOctets' => 2220053654,
'InDiscards' => 0,
'DescrLen' => 57,
'Index' => 2,
'OutOctets' => 1900158549,
'OutNUcastPkts' => 860,
'OutUcastPkts' => 2895361,
'OutDiscards' => 0,
'LastChange' => 10644947,
'InUcastPkts' => 2920346,
'InNUcastPkts' => 940,
'OutErrors' => 0,
'Name' => '',
'PhysAddr' => '0011503b547d4f86'
};

speed = 5500000
Adapter Type = 'Belkin 802.11g Netzwerkadapter #2 - Paketplaner-Miniport'
Rambo
 2005-03-26 19:32
#52914 #52914
User since
2003-08-14
803 Artikel
BenutzerIn

user image
@E|B danke schön

ich glaub ich muss noch weiter suchen denn hiermit finde
ich leider nicht heraus in welchem duplex modus die karte
eingestellt ist. ich habe bisher noch keine software gefunden
die dies abfragt denke aber das wenn man ein paar tools zusammen
schliest das man dies über die registry raus finden müste?!

bei google ist mir bis her kein einziges tool aufgefallen was dies
kann, alle teilen nur mit welcher speed man verbunden ist aber
micht wie die karte genau eingestellt ist.

mal sehen ob ich was finde denn so ein tool zu schreiben
trauen ich mir noch nicht zu :-)

merci rambo

ps. @esskar du hast aber ein sehr gutes wlan :-)\n\n

<!--EDIT|Rambo|1111858440-->
[E|B]
 2005-03-26 20:03
#52915 #52915
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Evtl. kommst du über die Registry dran.
Bei mir stehen diverse Netzwerkkartenwerte in HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\. Dort gibt es viele Schlüssel, du müsstest die dann nach "duplex" durchsuchen. Vielleicht findest du dann deine Einstellung. Bei mir gibt es einen Key mit DuplexMode = 1. Evtl. hilft dir das weiter. Eine andere einfachere Möglichkeit sehe ich derzeit nicht.\n\n

<!--EDIT|[E|B]|1111860234-->
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
esskar
 2005-03-26 20:24
#52916 #52916
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=Rambo,26.03.2005, 18:32]ps. @esskar du hast aber ein sehr gutes wlan :-)[/quote]
an welchen Werten liesst du dies heraus?
<< |< 1 2 3 4 >| >> 35 Einträge, 4 Seiten



View all threads created 2005-03-24 16:45.